<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Segue um CMR.<br><br><span style="font-family:courier new,monospace">data(ex5, package="ExpDes")<br>str(ex5)<br><br>xtabs(~trat+genero, ex5)<br><br>m0 <- aov(sabor~bloco+trat/genero, data=ex5)<br><br>names(coef(m0))<br><br>m0$assign<br>gINt.effects <- names(coef(m0))[m0$assign==3]<br><br>generoINtrat <- lapply(paste0("trat", levels(ex5$trat)),<br>                       grep, gINt.effects)<br><br>summary(m0, split=list("trat:genero"=generoINtrat))<br><br>m1 <- aov(sabor~bloco+genero/trat, data=ex5)<br><br>names(coef(m1))<br><br>m1$assign<br>tINg.effects <- names(coef(m1))[m1$assign==3]<br><br>tratINgenero <- lapply(paste0("genero", levels(ex5$genero)),<br>                       grep, tINg.effects)<br><br>summary(m1, split=list("genero:trat"=tratINgenero))</span><br><br>À disposição.<br>Walmes.<br><br></div>​</div>