<font face="trebuchet ms,sans-serif">Thiago,<br><br>Confesso que nunca vi alguém apresentar em um artigo uma comparação múltipla multivariada. Acredito que você pode usar um algoritmo k-means classificar os centróides em grupos homogeneos e tals, da mesma forma como SkottKnott faz. De qualquer forma, a comparação de modelos que eu me referi está representada no código abaixo<br>
<br><span style="font-family: courier new,monospace;">da <- data.frame(tr=gl(3,8))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">da$y1 <- rnorm(da$tr)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">da$y2 <- rnorm(da$tr)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">da$tr12vs3 <- as.factor(ifelse(as.numeric(da$tr)<=1,1,2))</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">m0 <- aov(cbind(y1,y2)~1, da)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">m1 <- aov(cbind(y1,y2)~tr12vs3, da)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">m2 <- aov(cbind(y1,y2)~tr, da)</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">anova(m0, m1)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">anova(m1, m2)</span><br style="font-family: courier new,monospace;"><br>À disposição.<br>Walmes.<br>
<br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;">

<span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;">

<span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;">

<span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;">

<span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;">

<span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>