<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<span style="font-family: Arial; font-size: 10pt; background-color: rgb(255, 255, 255); ">Marcelo, não sei se vai te ajudar muito mas veja o exemplo abaixo:</span><div><font face="Arial"><br></font></div><div><font face="Arial"><div>z<-rnorm(15,mean=30,sd=5)</div><div>teste<-lapply(1:5,function(i){sample(z,replace=T)})</div><div>am1<-teste[[1]]</div><div>am2<-teste[[2]]</div><div>am3<-teste[[3]]</div><div>am4<-teste[[4]]</div><div>am5<-teste[[5]]</div><div>A<-data.frame(am1,am2,am3,am4,am5)</div><div><br></div><div><br></div><div>for(i in 1:ncol(A)) #Neste primeiro caso será realizada a correlação da variável am1 com todas as variáveis do data.frame() A inclusive com ela mesma. </div><div>{</div><div>r<-cor.test(am1,A[,i],method="pearson")</div><div>print(r)</div><div>}</div><div><br></div><div><br></div><div>for(i in 1:ncol(A))# Neste segundo caso será realizada a correlação da variável am1 com as 4 ultimas colunas do data.frame() A.</div><div>{</div><div>r<-cor.test(am1,A[,(i+1)],method="pearson")</div><div>print(r)</div><div>}</div><div><br></div><div>Att.</div><div><br></div><div>Tiago</div><div><br></div><div>===================================================================================================================================</div></font><div>Tiago de Souza Marçal</div><div><br></div>Graduando em agronomia pela UFES</div><div><br></div><div>Bolsista da FAPES </div><div><span style="font-size: 10pt; ">====================================================================================================================</span></div><div><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">Date: Wed, 3 Oct 2012 11:03:28 -0700<br>From: parre_21@yahoo.com.br<br>To: r-br@listas.c3sl.ufpr.br; emmanuelarnhold@yahoo.com.br<br>Subject: Re: [R-br] correlação de Pearson<br><br><div style="color:#000;background-color:#fff;font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div style="right:auto"><span style="right:auto">Outra opção também, é usar o seguinte:</span></div>
<div style="background-color:transparent;font-style:normal;font-family:Courier New, courier, monaco, monospace, sans-serif;color:rgb(0,0,0);font-size:13px;right:auto"><span style="right:auto"><font size="2"></font></span> </div>
<div style="background-color:transparent;font-style:normal;font-family:Courier New, courier, monaco, monospace, sans-serif;color:rgb(0,0,0);font-size:2px;right:auto"><span style="right:auto"><font size="2">cor.test(x,y,method='pearson')$p.value</font></span></div>
<div style="background-color:transparent;font-style:normal;font-family:Courier New, courier, monaco, monospace, sans-serif;color:rgb(0,0,0);font-size:2px;right:auto"><span style="right:auto"><font size="2"></font></span> </div>
<div style="background-color:transparent;font-style:normal;font-family:Courier New, courier, monaco, monospace, sans-serif;color:rgb(0,0,0);font-size:2px;right:auto"><span style="right:auto"></span> </div>
<div style="background-color:transparent;font-style:normal;font-family:Courier New, courier, monaco, monospace, sans-serif;color:rgb(0,0,0);font-size:2px;right:auto"><span style="right:auto"><font size="2">Só vai mostrar o p-valor do teste.</font> </span></div>
<div></div>
<div style="right:auto"> </div>
<div style="right:auto">Att,<br> <br>Guilherme Parreira da Silva<br>Graduando de Estatística - UFPR<br>(41) 8422-0925<br></div>
<div style="font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt">
<div style="font-family:times new roman, new york, times, serif;font-size:12pt">
<div dir="ltr"><font size="2" face="Arial">
<div style="border-bottom:#ccc 1px solid;border-left:#ccc 1px solid;padding-bottom:0px;line-height:0;padding-left:0px;padding-right:0px;height:0px;font-size:0px;border-top:#ccc 1px solid;border-right:#ccc 1px solid;padding-top:0px" class="hr"></div><b><span style="font-weight:bold">From:</span></b> Emmanuel Arnhold <emmanuelarnhold@yahoo.com.br><br><b><span style="font-weight:bold">To:</span></b> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> <br><b><span style="font-weight:bold">Sent:</span></b> Tuesday, October 2, 2012 4:31:17 PM<br><b><span style="font-weight:bold">Subject:</span></b> Re: [R-br] correlação de Pearson<br></font></div><br>
<div style="right:auto" id="ecxyiv1510585913">
<div style="right:auto">
<div style="background-color:#fff;font-family:Courier New, courier, monaco, monospace, sans-serif;color:#000;font-size:10pt">
<div><span>
<div><font size="2">install.packages("ds")</font></div>
<div><font size="2">require(ds)</font></div>
<div><font size="2"><br></font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>var1=c(10,13,14,16,18,22,29,28,35)</font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>var2=c(0.5,1,1.5,2,2.5,3,3.5,4,4.5)</font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>var3=c(102,NA,106,91,109,108,120,101,NA)</font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>var4=c(500,456,423,378,312,263,200,120,50)</font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>var5=c(18,09,22,NA,26,59,10,NA,96)</font></div>
<div><font size="2"><br></font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>table=data.frame(var1,var2,var3,var4,var5)</font></div>
<div><font size="2"><br></font></div>
<div><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"><font size="2"></font></span></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>r1<-dscor(table)</font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>r1</font></div>
<div><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"><font size="2"></font></span></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>r2<-dscor(table, option=2)</font></div>
<div><font size="2"><span style="white-space:pre" class="ecxyiv1510585913Apple-tab-span"></span>r2</font></div>
<div style="font-family:'Courier New', courier, monaco, monospace, sans-serif;font-size:10pt"><br></div>
<div style="background-color:transparent;font-style:normal;font-family:'Courier New', courier, monaco, monospace, sans-serif;color:rgb(0,0,0);font-size:13px">?dscor</div></span></div>
<div style="font-family:'Courier New', courier, monaco, monospace, sans-serif;font-size:10pt"><br></div>
<div style="font-family:'Courier New', courier, monaco, monospace, sans-serif;font-size:10pt">
<div style="font-family:'times new roman', 'new york', times, serif;font-size:12pt">
<div dir="ltr"><font size="2" face="Arial">
<div style="border-bottom:#ccc 1px solid;border-left:#ccc 1px solid;padding-bottom:0px;line-height:0;padding-left:0px;padding-right:0px;height:0px;font-size:0px;border-top:#ccc 1px solid;border-right:#ccc 1px solid;padding-top:0px" class="hr"></div><b><span style="font-weight:bold">De:</span></b> marcelo claro de souza <marcelo.claro.souza@gmail.com><br><b><span style="font-weight:bold">Para:</span></b> r-br@listas.c3sl.ufpr.br <br><b><span style="font-weight:bold">Enviadas:</span></b> Terça-feira, 2 de Outubro de 2012 13:54<br><b><span style="font-weight:bold">Assunto:</span></b> [R-br] correlação de Pearson<br></font></div><br>
<div style="right:auto" id="ecxyiv1510585913">Boa tarde pessoal<br>Montei uma matriz de correlação utilizando cor(dados, method='pearson')<br>Gostaria de saber se existe alguma função que teste automaticamente o coeficiente de correlação entre as variáveis sem precisar rodar manualmente cor.test(x,y,method='pearson'), afinal são quase 30 variáveis que estou correlacionando.<br>Muito obrigado pela ajuda.<br>Abraço<br><br></div><br>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" 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" rel="nofollow" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código
mínimo reproduzível.<br><br></div></div></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><br></div></div></div><br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div></div> </div></body>
</html>