Trong những ngày này, tôi đang làm việc với Breusch-Pagan để kiểm tra tính đồng nhất.
Tôi đã kiểm tra giá của hai cổ phiếu bằng phương pháp này. Đây là kết quả:
> mod <- lm(prices[,1] ~ prices[,2])
> bp <- bptest(mod)
> bp
studentized Breusch-Pagan test
data: prices[, 1] ~ prices[, 2]
BP = 0.032, df = 1, p-value = 0.858
Đọc kết quả, bộ truyện sẽ là homoscedastic, nhưng nếu tôi vẽ các phần dư và bình phương thì có vẻ như hoàn toàn không! Hãy xem bên dưới:
phần còn lại Vs FItted bên dưới:
Làm thế nào có thể loạt bài này vượt qua thử nghiệm với giá trị p rất cao?