<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1444222430622_3334"><span id="yui_3_16_0_1_1444222430622_3401">Pessoal, obrigada pela ajuda!</span></div><div id="yui_3_16_0_1_1444222430622_3334"><span id="yui_3_16_0_1_1444222430622_3549">O rank parece que vai funcionar...estou em teste aqui. </span></div><div id="yui_3_16_0_1_1444222430622_3334"><span id="yui_3_16_0_1_1444222430622_3575">Consegui um livro que descreve como fazer o teste no SPSS, Minitab e Excel</span></div><div id="yui_3_16_0_1_1444222430622_3334" dir="ltr"><span><br></span></div><div id="yui_3_16_0_1_1444222430622_3334" dir="ltr"><span>file:///C:/Users/Simone/Desktop/Dytham%202011%20statistics.pdf<br></span></div><div id="yui_3_16_0_1_1444222430622_3334"><span><br></span></div><div id="yui_3_16_0_1_1444222430622_3334"><span id="yui_3_16_0_1_1444222430622_3631">...mas no R, ainda não encontrei nada pronto...</span></div><div id="yui_3_16_0_1_1444222430622_3334"><span>obrigada mais uma vez!</span></div><div id="yui_3_16_0_1_1444222430622_3334" dir="ltr"><span>abraços</span></div><div id="yui_3_16_0_1_1444222430622_3334" dir="ltr"><span>Simone</span></div><div></div><div id="yui_3_16_0_1_1444222430622_3333"> </div><div class="signature" id="yui_3_16_0_1_1444222430622_3326"><div id="yui_3_16_0_1_1444222430622_3332"><i id="yui_3_16_0_1_1444222430622_3331"><b id="yui_3_16_0_1_1444222430622_3330"><font size="3" face="times new roman, new york, times, serif" id="yui_3_16_0_1_1444222430622_3329">***---***---***---***---***---***---***---***---***---***---***---***---***</font></b></i></div><div style="font-family:'times new roman', 'new york', times, serif;font-size:3px;font-weight:bold;" id="yui_3_16_0_1_1444222430622_3328"><i id="yui_3_16_0_1_1444222430622_3689"><b id="yui_3_16_0_1_1444222430622_3688"><font size="3" face="times new roman, new york, times, serif" id="yui_3_16_0_1_1444222430622_3687">* Simone Daniela Sartorio</font></b></i></div><div id="yui_3_16_0_1_1444222430622_3327"><font face="times new roman, new york, times, serif" id="yui_3_16_0_1_1444222430622_3686">* <span class="Apple-tab-span" style="white-space:pre;"> </span>Professora Adjunta II no CCA/UFSCar, Araras/SP.</font></div><div id="yui_3_16_0_1_1444222430622_3325"><font face="times new roman, new york, times, serif" id="yui_3_16_0_1_1444222430622_3324">*<span class="Apple-tab-span" style="white-space:pre;"> </span>Doutora e Mestre em Estatística e Experimentação Agronômica - ESALQ/USP.</font></div><div id="yui_3_16_0_1_1444222430622_3630"><font face="times new roman, new york, times, serif" id="yui_3_16_0_1_1444222430622_3675">* <span class="Apple-tab-span" style="white-space:pre;"> </span>Licenciada em Matemática - UNESP/Rio Claro.</font></div><div id="yui_3_16_0_1_1444222430622_3624"><b id="yui_3_16_0_1_1444222430622_3627" style="font-family: 'times new roman', 'new york', times, serif; font-size: 13px; line-height: 1.22;"><i id="yui_3_16_0_1_1444222430622_3626"><font size="3" face="Times New Roman" id="yui_3_16_0_1_1444222430622_3625">***---***---***---***---***---***---***---***---***---***---***---***---***</font></i></b><br></div><div style="font-family:'Times New Roman';font-size:3px;font-weight:bold;" id="yui_3_16_0_1_1444222430622_3472"><b id="yui_3_16_0_1_1444222430622_3471"><font size="3" face="Times New Roman"><font color="#bf00bf" size="1"><span style="font-family:'times new roman';"><i></i></span></font></font><div id="yui_3_16_0_1_1444222430622_3470"><font size="3" face="Times New Roman" id="yui_3_16_0_1_1444222430622_3469"><i id="yui_3_16_0_1_1444222430622_3468"><span class="tab" id="yui_3_16_0_1_1444222430622_3467"><span class="tab" id="yui_3_16_0_1_1444222430622_3466"><var id="yui-ie-cursor"></var> <span class="tab" id="yui_3_16_0_1_1444222430622_3685"> <span class="tab" id="yui_3_16_0_1_1444222430622_3684"> <span class="tab" id="yui_3_16_0_1_1444222430622_3683"> <span class="tab" id="yui_3_16_0_1_1444222430622_3682"> <span class="tab" id="yui_3_16_0_1_1444222430622_3681"> <span class="tab" id="yui_3_16_0_1_1444222430622_3680"> <span class="tab" id="yui_3_16_0_1_1444222430622_3679"> <span class="tab" id="yui_3_16_0_1_1444222430622_3678"> <span class="tab" id="yui_3_16_0_1_1444222430622_3677"> <span class="tab" id="yui_3_16_0_1_1444222430622_3676"> <span class="tab" id="yui_3_16_0_1_1444222430622_3691"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> <span class="tab"> </span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span>Tenha um bom dia! </i><font face="Courier New, courier, monaco, monospace, sans-serif">;)</font></font></div></b></div></div> <br><div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: Courier New, courier, monaco, monospace, 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 size="2" face="Arial"> Em Quarta-feira, 7 de Outubro de 2015 0:20, Daniel Marcelino <dmsilva.br@gmail.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container">Se você não uma função no R para realizar o teste, isso por si só já<br clear="none">pode ser considerado um sinal de que o teste não é muito popular.<br clear="none"><br clear="none"> Veja o exemplo no livro:<br clear="none"># Sokal RR, Rohlf FJ, 1995. Biometry, 3rd ed. New York: Freeman.<br clear="none"><br clear="none"><br clear="none"> rat <- c(709,679,699,657,594,677,592,538,476,508,505,539)<br clear="none"><br clear="none"> fat <- gl(2,6,labels=c("Fresh","Rancid"))<br clear="none"><br clear="none"> sex <- gl(2,3,12,labels=c("man","woman"))<br clear="none"><br clear="none"> srh(rat,sex,fat)<br clear="none"><br clear="none">Função para gerar os resultados:<br clear="none"><br clear="none">srh <-function(r, pf , sf, n=3){<br clear="none"> abn = (nlevels(pf)*nlevels(sf)*n)<br clear="none"> lm_rank <- lm(rank(r)~pf*sf)<br clear="none"> # the variance must be correct if there are ties<br clear="none"> aov_lm <- anova(lm_rank)<br clear="none"> ans <- aov_lm[1:3,1:3]<br clear="none"> ans[,4] <- ans[,2]/(length(r)*(length(r)+1)/abn)<br clear="none"> ans[,5] <- (1-pchisq(ans[,4],ans[,1]))<br clear="none"> colnames(ans)[4:5] <- c("H","p-value")<br clear="none"> ans<br clear="none">}<br clear="none"><br clear="none"><br clear="none">2015-10-06 9:30 GMT-03:00 Antonio Moita <<a shape="rect" ymailto="mailto:awmoita@yahoo.com.br" href="mailto:awmoita@yahoo.com.br">awmoita@yahoo.com.br</a>>:<br clear="none">> Caros,<br clear="none">><br clear="none">> Dei uma uma olhada no google e encontrei este blog que tem uma forma em<br clear="none">> seis passos para calcular. Este assunto me interessa, qdo tiver mais tempo<br clear="none">> eu vou dar "assuntar" melhor.<br clear="none">><br clear="none">> No R tem o pacote ??? que faz muito mais do que voce pretende realizar, se<br clear="none">> eu nao me engano é o nparLD<br clear="none">><br clear="none">> Att,<br clear="none">> Moita<br clear="none">> <a shape="rect" href="http://blog.excelmasterseries.com/2014/05/scheirer-ray-hope-test-alternative-for.html" target="_blank">http://blog.excelmasterseries.com/2014/05/scheirer-ray-hope-test-alternative-for.html</a><br clear="none">><br clear="none">><br clear="none">><br clear="none">><br clear="none">> Em Segunda-feira, 5 de Outubro de 2015 11:46, Simone D. Sartorio<br clear="none">> <<a shape="rect" ymailto="mailto:sisartorio@yahoo.com.br" href="mailto:sisartorio@yahoo.com.br">sisartorio@yahoo.com.br</a>> escreveu:<br clear="none">><br clear="none">><br clear="none">> Pessoal, bom dia!<br clear="none">><br clear="none">> Eu tentando aplicar um teste não paramétrico, em particular o "teste<br clear="none">> Scheirer-Ray-Hare". Ele é uma extensão do Kruskal-Wallis para experimento<br clear="none">> com 2 fatores (em esquema fatorial). Já fucei no R e não encontrei essa<br clear="none">> função pronta.<br clear="none">> Logo, preciso obter apenas o rank dos dados para poder aplicar o teste, mas<br clear="none">> não obtive sucesso ao procurar como obter esse rank com a função<br clear="none">> kruskal.test...alguém poderia me ajudar?<br clear="none">><br clear="none">> Aqui vai um exemplo fictício para poderem me ajudar...lembrando que esse<br clear="none">> exemplo é de um fator apenas. O que eu quero é apenas a obtenção dos ranks.<br clear="none">><br clear="none">> #----------------------------------------------------------<br clear="none">> A<-c(27,14,8,18,7)<br clear="none">> B<-c(48,18,32,51,22)<br clear="none">> C<-c(11,0,3,15,8)<br clear="none">> D<-c(44,72,81,55,39)<br clear="none">><br clear="none">> orq.dados<-data.frame(Campo<-gl(4,5), Orquideas<-c(A,B,C,D)); orq.dados<br clear="none">> a<- kruskal.test(Orquideas~Campo, orq.dados)<br clear="none">> summary(a)<br clear="none">> names(a)<br clear="none">> ?kruskal.test<br clear="none">> #----------------------------------------------------------<br clear="none">><br clear="none">> desde já, muito obrigada!<br clear="none">> Simone<br clear="none">><br clear="none">><br clear="none">><br clear="none">> _______________________________________________<br clear="none">> R-br mailing list<br clear="none">> <a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">> <a shape="rect" 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 clear="none">> Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne� c�igo<br clear="none">> m�imo reproduz�el.<div class="yqt7661542223" id="yqtfd53291"><br clear="none">><br clear="none">><br clear="none">> _______________________________________________<br clear="none">> R-br mailing list<br clear="none">> <a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">> <a shape="rect" 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 clear="none">> Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a></div>) e forneça código<br clear="none">> mínimo reproduzível.<br><br></div> </div> </div> </div></div></body></html>