Análise de resíduos

Graficamente

par(mfrow=c(2,2))
plot(lat01.av)

Homocedasticidade, Normalidade e Independência

residuos <- (lat01.av$residuals)

par(mfrow=c(2,2))

plot(lat01$trat,residuos)
title("Resíduos vs Estágios \n Homocedasticidade")

preditos <- (lat01.av$fitted.values)

plot(residuos,preditos)
title("Resíduos vs Preditos \n Independência")

qqnorm(residuos,ylab="Residuos", main=NULL)
qqline(residuos)
title("Grafico Normal de \n Probabilidade dos Resíduos")

par(mfrow=c(2,1))

respad <- (residuos/sqrt(anova(lat01.av)$"Mean Sq"[4]))
boxplot(respad)
title("Resíduos Padronizados - outliers")

outlier<-c(max(respad),min(respad))
outlier