[R-br] Resíduos intrigantes entre modelo ponderado e não-ponderado!

[Benilton Carvalho]

e esqueci de dar um exemplo mais tangivel das mudancas que esperam...


set.seed(1)
N <- 100
x <- rnorm(N)
e <- rnorm(100, 0, (x^2+1)^2)
y <- 10-2*x+e
plot(y~x)
mod0 <- lm(y~x)
mod1 <- lm(y~x, weights=1/(x^2+1)^2)
summary(mod0)
summary(mod1)


b