Você pode testar esta hipótese com um teste de modelo completo versus reduzido. Aqui está como você faz isso. Primeiro, ajuste o modelo e obtenha os resíduos desse modelo. Esquadre os resíduos e some-os. Esta é a soma do erro quadrado do modelo completo. Vamos chamar isso de . A seguir, calcular onde . Esses são seus resíduos sob a hipótese nula. Esquadre-os e resuma-os. Esta é a soma do erro quadrado do modelo reduzido. Vamos chamar isso .Z=aX+bYSSEfZ−Z^Z^=1/2∗X+1/2∗YSSEr
Agora calcule:
F = ,((SSEr−SSEf)/2)/(SSEf/(n−2))
onde é o tamanho da amostra. Sob , essa estatística F segue uma distribuição F com e graus de liberdade.H 0 2 n - 2nH02n−2
Aqui está um exemplo usando R:
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
Rejeite o valor nulo se o valor-p estiver abaixo de 0,05 (se o seu for realmente 0,05).α
Presumo que você realmente quisesse que seu modelo não contivesse uma interceptação. Em outras palavras, suponho que você esteja realmente trabalhando com o modelo e não .Z = c + a X + b YZ=aX+bYZ=c+aX+bY