Bu hipotezi tam ve azaltılmış model testiyle test edebilirsiniz. İşte böyle yapıyorsun. İlk olarak, modelini ve kalıntıları bu modelden alın. Kalıntıları düzeltin ve toplayın. Bu, tam model için kare hatanın toplamıdır. Buna . Daha sonra, hesaplamak . Bunlar sıfır hipotezi altındaki artıklarınızdır. Onları kareye alın ve toplayın. Bu, azaltılmış model için kare hatanın toplamıdır. Buna .Z=aX+bYSSEfZ−Z^Z^=1/2∗X+1/2∗YSSEr
Şimdi hesapla:
F = ,((SSEr−SSEf)/2)/(SSEf/(n−2))
burada örnek büyüklüğüdür. altında , bu F-istatistiği ve serbestlik derecesine sahip bir F-dağılımını takip eder.nH02n−2
İşte R'yi kullanan bir örnek:
x <- rnorm(n)
y <- rnorm(n)
z <- 1/2*x + 1/2*y + rnorm(n) ### note I am simulating under H0 here
res <- lm(z ~ x + y - 1)
summary(res)
SSE.f <- sum(resid(res)^2)
zhat <- 1/2*x + 1/2*y
SSE.r <- sum((z-zhat)^2)
F <- ((SSE.r - SSE.f) / 2) / (SSE.f / (n-2))
pf(F, 2, n-2, lower.tail=FALSE) ### this is the p-value
P değeri .05'in altındaysa null değerini reddet ( öğeniz gerçekten .05 ise).α
Modelinizin bir engel içermemesini gerçekten düşündüğünüzü düşünüyorum. Başka bir deyişle, ile değil, modeliyle gerçekten çalıştığınızı .Z=aX+bYZ=c+aX+bY