<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Seria isso?<br><span style="font-family:monospace,monospace"><br>str(exp)<br>contrasts(exp$trat)<br><br>mat.c <- matrix(c(-1,0,1,2,-1,-1), nc=2)<br>contrasts(exp$trat) <- mat.c<br><br>m0 <- aov(y~trat, data=exp)<br><br>summary(m0, split=list("trat"=list("C.orto.1"=1, "C.orto.2"=2)))<br></span></div><span style="font-family:monospace,monospace">​</span><br><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">​À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.​</div><br></div>