<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'>Natalia, envie um CMR para tentarmos ajuda-la<BR> <BR>Att.<BR> <BR>Tiago.  <br><br><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><br> <BR><div><hr id="stopSpelling">Date: Wed, 14 Aug 2013 15:50:42 -0300<br>From: nsmbarreto@gmail.com<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] ExpDes<br><br><div dir="ltr"><div class="ecxgmail_default" style="font-family: georgia,serif; font-size: large;">Prezados,</div><div class="ecxgmail_default" style="font-family: georgia,serif; font-size: large;"><br></div><div class="ecxgmail_default" style="font-family: georgia,serif; font-size: large;">
Ao rodar a programação notei ainda que os g.l do bloco estão errados (tenho 3 blocos, logo g.l=2)</div><div class="ecxgmail_default" style="font-family: georgia,serif; font-size: large;"><br></div><div class="ecxgmail_default"><div class="ecxgmail_default">
<font face="georgia, serif" size="4">rm(list=ls())</font></div><div class="ecxgmail_default"><span style="font-family: georgia,serif; font-size: large;">dados <- read.table("G:/dados.txt", head=T)</span><br></div><div class="ecxgmail_default">
<font face="georgia, serif" size="4">head(dados)</font></div><div class="ecxgmail_default"><font face="georgia, serif" size="4"><br></font></div><div class="ecxgmail_default"><font face="georgia, serif" size="4">__________________________</font></div>
<div class="ecxgmail_default"><font face="georgia, serif" size="4"><br></font></div><div class="ecxgmail_default"><font face="georgia, serif" size="4"><div class="ecxgmail_default">  produtividade hibrido populacao bloco zona</div>
<div class="ecxgmail_default">1           101   30A37        60     1    1</div><div class="ecxgmail_default">2           131   30A37        60     1    1</div><div class="ecxgmail_default">3           138   30A37        60     1    1</div>
<div class="ecxgmail_default">4           128   30A37        60     1    1</div><div class="ecxgmail_default">5           101   30A37        60     1    1</div><div class="ecxgmail_default">6            89   30A37        60     1    1</div>
<div class="ecxgmail_default"><br></div><div class="ecxgmail_default">____________________________</div><div class="ecxgmail_default"><br></div><div class="ecxgmail_default"><div class="ecxgmail_default">library(ExpDes)</div><div class="ecxgmail_default">
fat3.rbd(dados$hibrido, dados$populacao, dados$zona, dados$bloco,</div><div class="ecxgmail_default"><span style="white-space: pre;">                             </span> dados$produtividade, sigT=0.1, sigF=0.1)</div><div><br></div><div>____________________________</div>
<div><br></div><div><div>------------------------------------------------------------------------</div><div>Legend:</div><div>FACTOR 1:  F1 </div><div>FACTOR 2:  F2 </div><div>FACTOR 3:  F3 </div><div>------------------------------------------------------------------------</div>
<div><br></div><div>------------------------------------------------------------------------</div><div>Analysis of Variance Table</div><div>------------------------------------------------------------------------</div><div>
                  DF                                SS                          MS                       Fc                       Pr>Fc</div><div>Block       259.4167                   7279.352         28.06046                0.1136                     1</div>
<div>F1            3.0000                      1149513.560      383171.18652       1551.6394         0</div><div>F2            4.0000                        3798747.062     949686.76545    3845.7259     0</div><div>F3            2.0000                          714265.142     357132.57111       1446.1968          0</div>
<div>F1*F2        12.0000                       202406.001    16867.16674      68.303            0</div><div>F1*F3         6.0000                       13306.876          2217.81275       8.981               0</div><div>F2*F3         8.0000                             23012.734   2876.59176      11.6487             0</div>
<div>F1*F2*F3     24.0000                    62022.721        2584.28002       10.465            0</div><div>Residuals 15563.0000                 3843221.113    246.94603                </div><div>Total     15622.0000                       9813774.560    628.20219                </div>
<div>------------------------------------------------------------------------</div><div><br></div><div>Erro em shapiro.test(anava$residuals) : </div><div>  sample size must be between 3 and 5000</div></div></div></font></div>
</div></div><div class="ecxgmail_extra"><br><br><div class="ecxgmail_quote">Em 14 de agosto de 2013 14:37, Tiago Souza Marçal <span dir="ltr"><<a href="mailto:tiagosouzamarcal@hotmail.com" target="_blank">tiagosouzamarcal@hotmail.com</a>></span> escreveu:<br>
<blockquote class="ecxgmail_quote" style="padding-left: 1ex; border-left-color: rgb(204, 204, 204); border-left-width: 1px; border-left-style: solid;">


<div><div dir="ltr">Natalia ente nos códigos da função e edite esta parte retirando o teste de Shapiro wilk.<br> <br>Depois e só colar a função no R e utilizar a função que você tinha mostrado.<br> <br><font face="Georgia" size="4">fat3.rbd(hibrido, populacao, zona, bloco, Prod, sigT = <strong>0.1</strong>, sigF = <strong>0.1</strong>) # A propósito o alpha que você esta utilizando é de 10%. </font><br>
<font face="Georgia" size="4"></font> <br><font face="Georgia" size="4">Att. </font><br><font face="Georgia" size="4"></font> <br><font face="Georgia" size="4">Tiago.</font><br><br><br><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>
<br> <br><div><hr>Date: Wed, 14 Aug 2013 14:03:08 -0300<br>From: <a href="mailto:nsmbarreto@gmail.com" target="_blank">nsmbarreto@gmail.com</a><br>To: <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
Subject: [R-br] ExpDes<div><div class="h5"><br><br><div dir="ltr"><div style="font-family: georgia,serif; font-size: large;">Boa tarde prezados, </div><div style="font-family: georgia,serif; font-size: large;">estou fazendo uma anova com 3 fatores e bloco</div>

<div style="font-family: georgia,serif; font-size: large;"><br></div><div><font face="georgia, serif" size="4">fat3.rbd(hibrido, populacao, zona, bloco, Prod, sigT = 0.1, sigF = 0.1)</font><br>
</div><div><br></div><div><font face="georgia, serif" size="4">No entanto, a analise nao 'e </font><span style="font-family: georgia,serif; font-size: large;">finalizada pois o teste de shapir</span><span style="font-family: georgia,serif; font-size: large;">o nao 'e  aplicado para amostras maiores que 5000.</span></div>

<div><span style="font-family: georgia,serif; font-size: large;"><br></span></div><div><span style="font-family: georgia,serif; font-size: large;">Por favor o que devo fazer para utilizar esse pacote?</span></div>
<div><span style="font-family: georgia,serif; font-size: large;"><br></span></div><div><span style="font-family: georgia,serif; font-size: large;">Att</span></div><div><br></div>-- <br>
<br>Natália da Silva Martins<br>Contato: <a target="_blank">(19) 8306-4743</a> <br>
</div>
<br></div></div>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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.</div>                                       </div></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><br clear="all"><div><br></div>-- <br>
<br>Natália da Silva Martins<br>Bacharel em Estatística - Universidade Estadual de Maringá/ UEM<br>Mestra em Ciências: Area de concentração: Estatística e Experimentação Agronômica - ESALQ/ USP<br>Doutoranda em Ciências: Area de concentração: Estatística e Experimentação Agronômica - ESALQ/ USP<br>
Contato: (19) 8306-4743 <br>
</div>
<br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div>                                      </div></body>
</html>