<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px"><div id="yiv8437403500"><div id="yui_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="yui_3_16_0_1_1444055757343_2364"><div id="yiv8437403500yui_3_16_0_1_1444055465787_4236"><span></span></div><div></div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211">Pessoal, bom dia!</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211"><br></div><div id="yiv8437403500yui_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="yiv8437403500yui_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="yiv8437403500yui_3_16_0_1_1444055465787_4211" dir="ltr"><br></div><div id="yiv8437403500yui_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="yiv8437403500yui_3_16_0_1_1444055465787_4211"><br></div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211">#----------------------------------------------------------</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">A<-c(27,14,8,18,7)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">B<-c(48,18,32,51,22)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">C<-c(11,0,3,15,8)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">D<-c(44,72,81,55,39)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class=""><br></div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">orq.dados<-data.frame(Campo<-gl(4,5), Orquideas<-c(A,B,C,D)); orq.dados</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">a<- kruskal.test(Orquideas~Campo, orq.dados)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">summary(a)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" class="">names(a)</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" dir="ltr">?kruskal.test </div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" dir="ltr">#----------------------------------------------------------<br></div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" dir="ltr"><br></div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211" dir="ltr">desde já, muito obrigada!</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211">Simone</div><div id="yiv8437403500yui_3_16_0_1_1444055465787_4211"><br></div><div class="yiv8437403500signature" id="yiv8437403500yui_3_16_0_1_1444055465787_4208"><div id="yiv8437403500yui_3_16_0_1_1444055465787_4240"><br></div></div></div></div></div></div></body></html>