Le risposte offerte mi stanno dando alcune idee su cosa sta succedendo qui. Credo che potrebbero esserci stati degli errori commessi per caso. Vedi se la seguente storia ha senso: per iniziare, penso che ci sia probabilmente una forte relazione tra X e Y nei dati (ecco un po 'di codice e una trama):
set.seed(5)
wage <- rlnorm(1000, meanlog=2.3, sdlog=.5)
something_else <- .7*wage + rnorm(1000, mean=0, sd=1)
plot(wage, something_else, pch=3, col="red", main="Plot X vs. Y")
Ma per errore Y era previsto proprio dalla media. A complemento di ciò, i residui del solo modello medio sono tracciati rispetto a X, anche se ciò che si intendeva era tracciare contro i valori adattati (codice e trama):
meanModel <- lm(something_else~1)
windows()
plot(wage, meanModel$residuals, pch=3, col="red",
main="Plot of residuals from Mean only Model against X")
abline(h=0, lty="dotted")
Possiamo risolvere questo problema inserendo il modello appropriato e tracciando i residui da quello (codice e trama):
appropriateModel <- lm(something_else~wage)
windows()
plot(appropriateModel$fitted.values, appropriateModel$residuals, pch=3, col="red",
main="Plot of residuals from the appropriate\nmodel against fitted values")
lines(lowess(appropriateModel$residuals~appropriateModel$fitted.values))
Sembra proprio il tipo di sciocchezze che ho fatto quando stavo iniziando.