José Henrique, Funcionou <div><br></div><div>Quanto a ideia do Tiago, vou testar até quarta..</div><div><br></div><div>agora uma boa macarronada</div><div><br></div><div>Abraço e grato pela ajuda</div><div><br></div><div>Hélio<br>
<br><div class="gmail_quote">Em 10 de março de 2013 12:27, José Henrique [via R-br] <span dir="ltr"><<a href="mailto:ml-node+s2285057n4658527h5@n4.nabble.com" target="_blank">ml-node+s2285057n4658527h5@n4.nabble.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Olhe este segundo aqui.<div class="im"><br><br><br>library(geoR)<br>library(agricolae)<br>dados=read.geodata("c:/fsd.txt ",coords.col=13:14,data.col=4,sep = "",header=T)<br>y=read.geodata("c:/fsd.txt ",coords.col=13:14,data.col=1,sep = "",header=T)<br>
n=summary(dados)[[1]]<br>n<br></div>MSerror1<-aov(y$data ~ dados$data)<br>summary(MSerror1)<br>HSD.test(dados$data,y$data,n-1,0.540,alpha=0.05)<br><br><br>Parece que MSerror tem que aplicar a anova e ver o valor dentro dela e colocar, não tenho certeza.<br>
<br>Ate..<br><br><br><br><br><div class="gmail_quote">Em 10 de março de 2013 12:05, Ze Henrique <span dir="ltr"><<a href="http://user/SendEmail.jtp?type=node&node=4658527&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>></span> escreveu:<div>
<div class="h5"><br><blockquote style="border-left:2px solid #cccccc;padding:0 1em" class="gmail_quote">
Entendi o que faltou para vc conseguir rodar é o pacote agricolae.<br><br>Use assim que vc conseguirá:<br><br>library(geoR)<br>library(agricolae)<br>dados=read.geodata("c:/fsd.txt ",coords.col=13:14,data.col=4,sep = "",header=T)<br>
y=read.geodata("c:/fsd.txt ",coords.col=13:14,data.col=1,sep = "",header=T)<br>n=summary(dados)[[1]]<br>n<br>MSerror=19 # não sei o valor disto e nem pra que serve.<br>HSD.test(dados$data,y$data,n-1,MSerror,alpha=0.05)<br>
<br>Se precisar de algo avise.<br><br>Ate.<br><br><div class="gmail_quote">Em 10 de março de 2013 11:48, Hélio Gallo Rocha <span dir="ltr"><<a href="http://user/SendEmail.jtp?type=node&node=4658527&i=1" rel="nofollow" link="external" target="_blank">[hidden email]</a>></span> escreveu:<br>
<blockquote style="border-left:2px solid #cccccc;padding:0 1em" class="gmail_quote"><div><div><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">José Henrique,</span><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Não sou expert em R, na realidade tenho usado apenas para geoestatistica, não tenho feito a descritiva nele, uso o sisrvar.</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Aprendi a carregar os dados no R na UFLA com o José Marcio no LEMAF.</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">Eu acho essa forma de "carregar" os atributos bastante fácil, pois normalmente tenho vários atributos a serem analisados, dai só indico uqal a coluna que vou analisar naquele momento.</div>
<div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Fiz o seguinte, com om mesmo arquivo anexado no inicio "FSD.txt", que são dados para previsão de safra em café, meço altura, diâmetro e numero de frutos, que serão comparados em quatro modelos para previsão.</div>
<div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">O script rodou, mas emperrei no MSerror, que chutei 19 script:</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><div>dados=read.geodata("fsd.txt ",coords.col=13:14,data.col=4,sep = "",header=T)</div>
<div>y=read.geodata("fsd.txt ",coords.col=13:14,data.col=1,sep = "",header=T)</div></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><div>
n=summary(dados)[[1]]</div><div>n</div></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><div>MSerror=19</div><div>HSD.test(dados$data,y$data,n-1,MSerror,alpha=0.05)</div>
</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Abraço e bom domingo!</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Hélio</div><br><div class="gmail_quote">Em 10 de março de 2013 08:44, José Henrique [via R-br] <span dir="ltr"><<a href="http://user/SendEmail.jtp?type=node&node=4658527&i=2" rel="nofollow" link="external" target="_blank">[hidden email]</a>></span> escreveu:<br>
<blockquote style="border-left:2px solid #cccccc;padding:0 1em" class="gmail_quote"><div>
Um mais ou menos entendi o que o Sr. tentou fazer, mas o comando attach() tem apenas a função de vc não precisar ficar fixando os dados da tabela que vc necessita utilizar no exercício que está sendo realizado.<br><br>Não respondi antes devido ontem o dia ser corrido.<br>
<br>Porem vc consegui fazer o que precisava ou ainda não?<br><br>Outra cousa nunca trabalhei com geoestatistica mas quando quero fazer teste de Tukey não utilizo "DTK.test", pois acho que talvez este comando faz mais que apenas só o teste que vc quer, caso vc queira para fazer o teste de Tukey utilize o pacote (agricolae) e o comando HSD.test(x,trat,Glres,Qmres,alpha=ns)<br>
<br>Caso vc queira posso tentar te ajudar.<br><br>Ate logo.<br><br>Abraço.<br><br><br><br></div><div class="gmail_quote">Em 9 de março de 2013 10:15, Hélio Gallo Rocha <span dir="ltr"><<a href="http://user/SendEmail.jtp?type=node&node=4658522&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>></span> escreveu:<br>
<blockquote style="border-left:2px solid #cccccc;padding:0 1em" class="gmail_quote"><div><div><div><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">Caro José Henrique</span><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
No script que enviei, na linha 4, faltou indicar qual a coluna que estava analisando, no caso seria a 1, data.col=1</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Então X seria a coluna 6 que é a relação diametro/altura</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">F seria a coluna 1 = Variedade ( que no caso são 3), cada uma com 14 repetições.</div>
<div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
Ma tentei a sua forma de carregar os dados, não compreendi direito o comando attach(fsd), ( depois eu estudo), mas retornou o mesmo erro.</div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">Abraço</div><div><div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br></div><div style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div></div><br></div></div></div><div>_______________________________________________<br>
R-br mailing list<br>
<a href="http://user/SendEmail.jtp?type=node&node=4658522&i=1" rel="nofollow" link="external" target="_blank">[hidden email]</a><div><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div></div></blockquote></div>
<div><div>
<br><br clear="all"><br>-- <br><div style="text-align:center">
<font><b>José Henrique Soler Guilhen</b></font><br><font>Graduando em Agronomia</font><font style="font-size:10pt" face="Verdana"></font><br></div><div style="text-align:center"><font style="font-size:10pt" face="Verdana"><font style="font-size:10pt">Universidade Federal do Espírito Santo - CCAUFES</font></font><br>
</div><font style="font-size:10pt" face="Verdana"><br></font>
<br></div><div>_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=4658522&i=2" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br></div><div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
</div><hr color="#cccccc" noshade size="1">
</div><div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif"><div><div>
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
</div></div><a href="http://r-br.2285057.n4.nabble.com/R-br-dados-DTK-test-tp4658513p4658522.html" rel="nofollow" link="external" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-dados-DTK-test-tp4658513p4658522.html</a>
</div><div><div><div>
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a rel="nofollow" link="external">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" link="external" target="_blank">NAML</a>
</div></div></div></div></blockquote></div><br><br clear="all"><div><div><div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div></div><br></div></div><div>_______________________________________________<br>
R-br mailing list<br>
<a href="http://user/SendEmail.jtp?type=node&node=4658527&i=3" rel="nofollow" link="external" target="_blank">[hidden email]</a><br>
</div><div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div></blockquote></div><div>
<div>
<br><br clear="all"><br>-- <br><div style="text-align:center">
<font><b>José Henrique Soler Guilhen</b></font><br><font>Graduando em Agronomia</font><font style="font-size:10pt" face="Verdana"></font><br></div><div style="text-align:center"><font style="font-size:10pt" face="Verdana"><font style="font-size:10pt">Universidade Federal do Espírito Santo - CCAUFES</font></font><br>
</div><font style="font-size:10pt" face="Verdana"><br></font>
</div></div></blockquote></div></div></div><div><div class="h5"><br><br clear="all"><br>-- <br><div style="text-align:center"><font><b>José Henrique Soler Guilhen</b></font><br><font>Graduando em Agronomia</font><font style="font-size:10pt" face="Verdana"></font><br>
</div><div style="text-align:center"><font style="font-size:10pt" face="Verdana"><font style="font-size:10pt">Universidade Federal do Espírito Santo - CCAUFES</font></font><br></div><font style="font-size:10pt" face="Verdana"><br>
</font>
<br>_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=4658527&i=4" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
<hr noshade size="1" color="#cccccc">
</div></div><div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif"><div><div class="h5">
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
</div></div><a href="http://r-br.2285057.n4.nabble.com/R-br-dados-DTK-test-tp4658513p4658527.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-dados-DTK-test-tp4658513p4658527.html</a>
</div><div class="HOEnZb"><div class="h5">
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4" target="_blank">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>
</div></div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div>