<p># Dados<br>  turma1=c(72,79,93,91,70,95,82,80,74,86,NA)<br>  turma2=c(78,66,65,84,69,73,71,75,68,90,76)<br>  Notas=data.frame(turma1,turma2)</p>
<p><br># Teste da mediana<br>  teste.da.mediana=function(dados,alfa=0.05){<br>  M=median(dados,na.rm=TRUE)<br>  Tabela=table(dados[,1]<=M)<br>  for(j in 2:ncol(dados)) Tabela=rbind(Tabela,table(dados[,j]<=M))<br>  colnames(Tabela)=c("Acima da mediana","Abaixo da mediana")<br>
  rownames(Tabela)=colnames(dados)<br>  if(length(table(Tabela<=5))==1) {Teste=chisq.test(Tabela,correct = FALSE)} else Teste=fisher.test(Tabela)<br>  Conclusão=if(Teste$p.value<alfa) {"Rejeita-se a hipótese de igualdade das medianas"} else "Não se pode rejeitar a hipótese de igualdade das medianas"<br>
  Medianas=apply(Notas,2,median,na.rm=TRUE)<br>  list(Tabela=Tabela,Teste=Teste,Conclusão=Conclusão,Medianas=Medianas)<br>  }</p>
<p>  teste.da.mediana(Notas,alfa=0.05)<br><br><br></p>
<div class="gmail_quote">Em 22 de outubro de 2012 15:54, Márcia Varela da Silva <span dir="ltr"><<a href="mailto:marcinhavarela@hotmail.com" target="_blank">marcinhavarela@hotmail.com</a>></span> escreveu:<br>
<blockquote style="BORDER-LEFT:#ccc 1px solid;MARGIN:0px 0px 0px 0.8ex;PADDING-LEFT:1ex" class="gmail_quote">
<div>
<div dir="ltr">Como fazer o "Teste da Mediana" no R? 
<div><br></div>
<div><br></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>