<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><font size="3">Vc pode enviar um CRM que te ajudo a fazer o fatorial, tenho um script ponto mas como usei muita funções anonima acho que vai ser dificil de vc </font>entender<font size="3">.</font></div><div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font><br></div> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">From:</span></b> FHRB Toledo <fernandohtoledo@gmail.com><br> <b><span style="font-weight: bold;">To:</span></b> r-br@listas.c3sl.ufpr.br; Odirley Campos
<camposagro@yahoo.com.br> <br> <b><span style="font-weight: bold;">Sent:</span></b> Friday, November 16, 2012 9:52 PM<br> <b><span style="font-weight: bold;">Subject:</span></b> Re: [R-br] Experimento fatorial. Desdobramento<br> </font> </div> <br>
<meta http-equiv="x-dns-prefetch-control" content="off"><div id="yiv1275095924">Odirley,<div><br></div><div>Os comando que o prof Walmes postou na wiki do LEG não são exatamente transferidos aos seus dados... Observe:</div><div><br></div><div>Veja os resultados da sua anova, que você chama de "geral", temos 1 grau de liberdade para o fator A e também um grau de liberdade para o fator K dentro de A.</div>
<div><br></div><div>Em seguida você especifica 4 termos (coeficientes do modelo) para cada fator K dentro de A!</div><div><br></div><div>Veja por exemplo qual a saída da função coef(m1). Nela será mostrado quais coeficientes correspondem a quais termos do modelo (pelo nome do coeficiente em cima). O que você deve por como os número no split da função summary são justamente essas posições.</div>
<div><br></div><div>Com certeza essa não é a melhor explicação que você vai ver por aqui, quanto ao seu thread, mas...</div><div><br></div><div>att,</div><div>FH<br><br><div class="yiv1275095924gmail_quote">2012/11/16 Odirley Campos <span dir="ltr"><<a rel="nofollow" ymailto="mailto:camposagro@yahoo.com.br" target="_blank" href="mailto:camposagro@yahoo.com.br">camposagro@yahoo.com.br</a>></span><br>
<blockquote class="yiv1275095924gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div style="font-size: 10pt; font-family: tahoma, 'new york', times, serif;"><div><span>#Pessoal! Boa noite ! <br></span></div>
<div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">#Estou tentando sem sucesso fazer o desdobramento de interações com R. Cheguei a baixar alguns arquivos da net no endereço "<span style="text-decoration:underline;">http://www.leg.ufpr.br/doku.php/ridiculas#desdobramento_de_interacao_em_experimento_fatorial</span>" . Porêm tive o mesmo problema que tive com meus dados. <br>
</div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">#Usei os mesmos comandos retirados da net para os dados tirados de lá. A anova "geral" saiu normalmente:</div>
<div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;"><br></div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">
>rend<-read.table("C:\\Program Files\\R\\RDADOS\\UFPR1.txt",h=T) #após armezenar arquivo no meu PC#</div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">
>rend<br></div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">>m1 <- aov(rg~bloc+A/K, data=rend)</div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">
>summary(m1) #Anova geral saiu norma sem problemas#<br></div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;"> Df Sum Sq Mean Sq F value Pr(>F) <br>
bloc 1 51.3 51.3 3.585 0.0624 . <br>A 1 495.6 495.6 34.633 1.2e-07 ***<br>A:K 1 2213.7 2213.7 154.712 < 2e-16 ***<br>Residuals 71 1015.9 14.3 <br>---<br>
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 <br></div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;"><br></div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;">
>summary(m1,split=list("A:K"=list("A-37.5"=c(1,4,7,10),"A-50.0"=c(2,5,8,11),"A-62.5"=c(3,6,9,12)))) #<span style="background-color:rgb(255,255,0);"><span>Mas o desdobramento não mostra Quadrado médio nem mesmo, F-value ou mesmo o P-value. O que eu posso ter feito de errado??</span></span><br>
</div><div style="font-style: normal; font-size: 13.3333px; background-color: transparent; font-family: tahoma, 'new york', times, serif;"> Df Sum Sq Mean Sq F value Pr(>F) <br>bloc 1 51.3
51.3 3.585 0.0624 . <br>A 1 495.6 495.6 34.633 1.2e-07 ***<br>A:K 1 2213.7 2213.7 154.712 < 2e-16 ***<br> A:K: A-37.5 4 <br> A:K: A-50.0 4 <br>
A:K: A-62.5
4 <br>Residuals 71 1015.9 14.3 <br>---<br>Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 </div><span class="yiv1275095924HOEnZb"><font color="#888888"><div style="text-align: center; font-style: normal; font-size: 13px; background-color: transparent; font-family: arial, helvetica, clean, sans-serif;">
Odirley Campos<br>Engenheiro Agrônomo UFV/MG<br></div></font></span></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div><meta http-equiv="x-dns-prefetch-control" content="on"><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </div></body></html>