<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix"><br>
median.test<-function(y1,y2){
<br>
z<-c(y1,y2)
<br>
g <- rep(1:2, c(length(y1),length(y2)))
<br>
m<-median(z)
<br>
fisher.test(z<m,g)$p.value
<br>
}
<br>
<br>
Fonte: Lista R<br>
<pre class="moz-signature" cols="72">[]s
Leonard de Assis
assis <dot> leonard <at> gmail <dot> com
</pre>
Em 22/10/2012 16:36, Luiz Henrique da Conceicao Leal escreveu:<br>
</div>
<blockquote
cite="mid:CAA5o0MaT2rBqPit=JqnaZYQHyeWkJcAjcWE4=VUTBxeu=jZdzg@mail.gmail.com"
type="cite">
<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 moz-do-not-send="true"
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 moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
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 moz-do-not-send="true"
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>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>