<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Boa tarde pessoal,<div><br></div><div>estou querendo pré-determinar contrastes ortogonais na anova para estimar suas somas de quadrado. </div><div><br></div><div>Entretanto, a ordem com que eu insiro os contrastes está diferenciando as somas de quadrado (acredito que seja função do ajuste sequencial)</div><div><br></div><div>Alguém sabe como determinar as somas de quadrado de 2 ou mais contrastes simultâneos usando a função aov() e lm().</div><div><br></div><div>Segue a baixo um cmr com minhas tentativas iniciais. </div><div><br></div><div>CMR</div><div><br></div><div> exp <- structure(list(trat = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, <div>2L, 3L, 3L, 3L, 3L), .Label = c("1", "2", "3"), class = "factor"), </div><div> y = c(35.1246524994234, 45.2412218795633, 38.6536395943239, </div><div> 44.9890868406512, 46.8437044071867, 31.5689442940656, 43.7282923393773, </div><div> 38.1832126839309, 33.8260517315041, 34.600238427063, 46.2089275518832, </div><div> 24.3185159526907)), .Names = c("trat", "y"), row.names = c(NA, </div><div>-12L), class = "data.frame")</div><div><br></div><div>attach(exp)</div><div><br></div><div>m0 <- aov(y ~ trat)</div><div><br></div><div>anova(m0)</div><div><br></div><div>mat.c <- matrix(c(-1,0,1,2,-1,-1),nc=2)</div><div><br></div><div>c1 <- C(trat,c(-1,0,1),1)</div><div><br></div><div>c2 <- C(trat,c(2,-1,-1),1)</div><div><br></div><div>contrasts(trat) <- mat.c</div><div><br></div><div>m1 <- aov(y ~ c1 + trat) # Somente a soma de quadrados de c1 (78.47) correta !!!!!!!!!!!</div><div><br></div><div>anova(m1) </div><div><br></div><div><div>m2 <- aov(y ~ c2 + trat) # Somente a soma de quadrados de c2 (34.41) correta !!!!!!!!!!!</div><div><br></div><div>anova(m2) </div></div><div><br></div><div>Desde já agradeço por qualquer contribuição.</div><div><br></div><div>Att.</div><div><br></div><div>Tiago. </div><br><div>#################################################################</div><div> </div><div>Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES</div><div> </div><div>Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas</div><div> </div><div>################################################################# </div></div><div><br></div> </div></body>
</html>