<div dir="ltr">Adriano e Walmes,<div><br></div><div>Obrigado pelas sugestões, e por compartilhar o livro!</div><div><br></div><div>O modelo ajustou corretamente, perfeito!</div><div><br></div><div>Obrigado mesmo.</div><div>
<br></div><div>abraço,</div><div>FH</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/20 walmes . <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Fernando,<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">
Acho que é assim:<br><span style="font-family:courier new,monospace"><br>
## fatores cruzados<br>xtabs(~local+trat, dados)<br><br>## fatores aninhados<br>xtabs(~trat+eras, dados)<br><br>##  local<br>## +bloco dentro de local<br>## +tratamento<br>## +interação local tratamento<br>mf1 <- lm(terms(resp~local/rep+trat+local:trat, keep=TRUE),<br>

          data=dados)<br>anova(mf1)<br><br>##  local<br>## +bloco dentro de local<br>## +eras<br>## +tratamento dentro de eras<br>## +interação local eras<br>## +interação local tratamento dentro de eras<br>mf2 <- lm(terms(resp~local/rep+eras/trat+local:eras/trat, keep=TRUE),<br>

          data=dados)<br>anova(mf2)<br><br>require(lme4)<br><br>mm1 <- lmer(resp~(1|local/rep)+(1|trat)+(1|local:trat), data=dados)<br>summary(mm1)<br><br>mm2 <- lmer(resp~(1|local/rep)+(1|eras/trat)+<br>            (1|local:eras)+(1|local:eras:trat), data=dados)<br>

summary(mm2)</span><br><br>À disposição.<span class="HOEnZb"><font color="#888888"><br>Walmes.</font></span></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>