<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Você pode obter o quadro de anova com SQ fatiadas para solo/nc e com com a linha do resíduo do modelo completo, o seu avi1. Para isso você não pode abandonar nenhum termo. Veja o exemplo.<br><br><span style="font-family:monospace,monospace">da <- expand.grid(bloc=gl(4,1),<br>                  A=gl(2,1), B=gl(3,1), C=gl(4,1))<br>da$y <- rnorm(nrow(da))<br><br>m0 <- aov(y~bloc+A*B*C, data=da)<br>anova(m0)<br><br>## Fatiar B/C.<br>m1 <- aov(y~bloc+A*B+B/C+A:B:C, data=da)<br>anova(m1)<br><br>m1$assign<br>names(coef(m1))[m1$assign==5]<br><br>summary(m1, split=list("B:C"=list(<br>                           "B1"=c(1,4,7),<br>                           "B2"=c(2,5,8),<br>                           "B3"=c(3,6,9))))<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>