<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1444133769808_4108">Caros,</div><div id="yui_3_16_0_1_1444133769808_4115"><br></div><div id="yui_3_16_0_1_1444133769808_4203">Dei uma uma olhada no google e encontrei este blog que tem uma forma em seis passos para calcular. Este assunto me interessa, qdo tiver mais tempo eu vou dar "assuntar" melhor.</div><div id="yui_3_16_0_1_1444133769808_4309"><br></div><div id="yui_3_16_0_1_1444133769808_4666">No R tem o pacote ??? que faz muito mais do que voce pretende realizar, se eu nao me engano é o nparLD</div><div id="yui_3_16_0_1_1444133769808_4703"><br></div><div id="yui_3_16_0_1_1444133769808_4704">Att,</div><div id="yui_3_16_0_1_1444133769808_4705">Moita<br></div><div dir="ltr" id="yui_3_16_0_1_1444133769808_3968"><a id="yui_3_16_0_1_1444133769808_3966" href="http://blog.excelmasterseries.com/2014/05/scheirer-ray-hope-test-alternative-for.html">http://blog.excelmasterseries.com/2014/05/scheirer-ray-hope-test-alternative-for.html</a></div><div id="yui_3_16_0_1_1444133769808_4667" dir="ltr"><br></div><div id="yui_3_16_0_1_1444133769808_3959"><span></span></div> <br><div class="qtdSeparateBR"><br><br></div><div style="display: block;" class="yahoo_quoted"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font face="Arial" size="2"> Em Segunda-feira, 5 de Outubro de 2015 11:46, Simone D. Sartorio <sisartorio@yahoo.com.br> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container"><div id="yiv8910209989"><div><div style="color:#000;background-color:#fff;font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px;"><div id="yiv8910209989"><div id="yiv8910209989yui_3_16_0_1_1444055757343_2365"><div style="color:#000;background-color:#fff;font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px;" id="yiv8910209989yui_3_16_0_1_1444055757343_2364"><div id="yiv8910209989yui_3_16_0_1_1444055465787_4236"><span></span></div><div></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211">Pessoal, bom dia!</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211"><br></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr">Eu tentando aplicar um teste não paramétrico, em particular o "teste Scheirer-Ray-Hare". Ele é uma extensão do Kruskal-Wallis para experimento com 2 fatores (em esquema fatorial). Já fucei no R e não encontrei essa função pronta. </div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr">Logo, preciso obter apenas o rank dos dados para poder aplicar o teste, mas não obtive sucesso ao procurar como obter esse rank com a função kruskal.test...alguém poderia me ajudar?</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr"><br></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr">Aqui vai um exemplo fictício para poderem me ajudar...lembrando que esse exemplo é de um fator apenas. O que eu quero é apenas a obtenção dos ranks.</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211"><br></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211">#----------------------------------------------------------</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">A<-c(27,14,8,18,7)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">B<-c(48,18,32,51,22)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">C<-c(11,0,3,15,8)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">D<-c(44,72,81,55,39)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989"><br></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">orq.dados<-data.frame(Campo<-gl(4,5), Orquideas<-c(A,B,C,D)); orq.dados</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">a<- kruskal.test(Orquideas~Campo, orq.dados)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">summary(a)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" class="yiv8910209989">names(a)</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr">?kruskal.test </div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr">#----------------------------------------------------------<br></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr"><br></div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211" dir="ltr">desde já, muito obrigada!</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211">Simone</div><div id="yiv8910209989yui_3_16_0_1_1444055465787_4211"><br></div><div class="yiv8910209989signature" id="yiv8910209989yui_3_16_0_1_1444055465787_4208"><div id="yiv8910209989yui_3_16_0_1_1444055465787_4240"><br></div></div></div></div></div></div></div></div><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� c�igo m�imo reproduz�el.<br><br></div> </div> </div> </div></div></body></html>