Vamos agora explorar um pouco os dados.
names(bc01) summary(bc01) attach(bc01) plot(resp ~ estag + bloco) bc01.mt <- tapply(resp, estag, mean) bc01.mt bc01.mb <- tapply(resp, bloco, mean) bc01.mb plot.default(estag, resp) points(bc01.mt, pch="x", col=2, cex=1.5) plot.default(bloco, resp) points(bc01.mb, pch="x", col=2, cex=1.5)
Nos gráficos e resultados acima procuramos captar os principais aspectos dos dados bem como
verificar se não há interação entre blocos e tratamentos, o que não deve acontecer neste tipo de
experimento.
A seguir vamos ajustar o modelo e obter outros resultados, incluindo a análise de resíduos e testes para verificar a validades dos pressupostos do modelo.