<html><body><div style="color:#000; background-color:#fff; font-family:verdana, helvetica, sans-serif;font-size:13px"><div dir="ltr" id="yui_3_16_0_1_1423793170325_3183"><br></div><div id="yui_3_16_0_1_1423793170325_3221" dir="ltr">WALMES, muito obrigado!!</div><div id="yui_3_16_0_1_1423793170325_3226" dir="ltr"><br></div><div id="yui_3_16_0_1_1423793170325_3223" dir="ltr">Agora a saída do desdobramento está correta.<br></div><div id="yui_3_16_0_1_1423793170325_3184"><br></div><div id="yui_3_16_0_1_1423793170325_3185"><br></div><div id="yui_3_16_0_1_1423793170325_3182" dir="ltr">#### adaptado de Walmes ---###</div>## Fatiar solo/nc.<br style="" class="">m1 <- aov(mspa~bloco+np*solo + solo/nc + np:solo:nc, data=a1)<br style="" class="">anova(m1)<br style="" class=""> <br style="" class="">m1$assign <br style="" class="">names(coef(m1))[m1$assign==5] # ir mudando o nº ate achar a inter solo:nc<br style="" class=""><br style="" class=""># buscando as posiçoes por expressões regulares,<br style="" class="">grep("ES", names(coef(m1))[m1$assign==5])<br style="" class="">grep("EU_0-10", names(coef(m1))[m1$assign==5]) <br style="" class="">grep("EU_40-60", names(coef(m1))[m1$assign==5])<br style="" class="">grep("SE_0-10", names(coef(m1))[m1$assign==5])<br style="" class="">grep("SE_40-60", names(coef(m1))[m1$assign==5])<br style="" class="">grep("TM", names(coef(m1))[m1$assign==5])<br style="" class=""><br style="" class=""># de posse das posiçoes dos solos informar no summary<br style="" class=""><br style="" class="">summary(m1, split=list("solo:nc"=list(<br style="" class=""> "ES"= c(1),<br style="" class=""> "EU_0-10"=c(2),<br style="" class=""> "EU_40-60"=c(3),<br style="" class=""> "SE_0-10"=c(4), <br style="" class=""> "SE_40-60"= c(5),<br style="" class=""> "TM"= c(6)<br style="" class="">)))<br style="" class=""><br style="" class=""><div id="yui_3_16_0_1_1423793170325_2687" class="signature"><div id="yui_3_16_0_1_1423793170325_2688" style="text-align:center;">Odirley R. Campos<br>Engenheiro Agrônomo UFV/MG</div><div id="yui_3_16_0_1_1423793170325_2686" style="color:rgb(0, 0, 0);font-size:13px;font-family:arial, helvetica, clean, sans-serif;background-color:transparent;font-style:normal;text-align:center;"><br><br></div></div><br><blockquote id="yui_3_16_0_1_1423793170325_2651" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; margin-top: 5px; padding-left: 5px;"><div id="yui_3_16_0_1_1423793170325_2650" style="font-family: verdana, helvetica, sans-serif; font-size: 13px;"><div id="yui_3_16_0_1_1423793170325_2649" style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> </div> </div> </blockquote> </div></body></html>