Pada hari-hari ini saya bekerja dengan Breusch-Pagan untuk menguji homoseksualitas.
Saya sudah menguji harga dua saham dengan metode ini. Ini hasilnya:
> 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
Membaca hasil seri harus homoseksual, tetapi jika saya merencanakan residu dan kuadrat residu sepertinya sama sekali tidak! Lihatlah di bawah ini:
Residual Vs DIPERBAIKI di bawah:
Bagaimana mungkin seri ini lulus tes dengan nilai p yang sangat tinggi?