Análise de resíduos

Graficamente

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

Homocedasticidade, Normalidade e Independência

residuos <- (bc01.av$residuals)

par(mfrow=c(2,2))

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

preditos <- (bc01.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(bc01.av)$"Mean Sq"[2]))
boxplot(respad)
title("Resíduos Padronizados - outliers")

plot(bc01$bloco,residuos)
title("Resíduos vs Blocos")