<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body>
Oi Rodrigo , acho que entendi errado<br>
este código aqui acredito fazer o que você quer. entretanto ele
retorna uma lista. <br>
a<-cor(bandas)<br>
f<-function(x) x[x<=0.3]<br>
bandas2<-apply(a,2,FUN=f) #seleciona valores menores ou iguais a
0.3, retorna uma lista<br>
#vc pode acessar as correlações significativas assim<br>
bandas2$X1417<br>
<br>
<div class="moz-cite-prefix">On 10-10-2014 10:37, Rodrigo Muniz
wrote:<br>
</div>
<blockquote
cite="mid:CAG_6NRd0emQYd=GTbJyCEeQyqge=sFSgHfyV6HUuUbijQQrqkw@mail.gmail.com"
type="cite">
<div dir="ltr">Olá Fernando, obrigado por dispensar um pouco do
seu tempo para me ajudar.
<div>O procedimento que você fez está correto, pois o resultado
me retorna todos os valores menores que o limite de corte,
porém, da matriz de correlação eu preciso extrair o nome da
coluna e da linha, ou seja, o par de variáveis, cuja
correlação seja menor que 0,3. A partir da extração do nome
dos pares de variáveis eu selecionaria as colunas nos dados
originais (bandas).</div>
<div>Resumindo, o que eu realmente preciso não são os valores e
sim os nomes das variáveis.</div>
<div>Desde já agradeço.</div>
<div>Att...</div>
<div><br>
</div>
</div>
<div class="gmail_extra"><br>
<div class="gmail_quote">2014-10-10 10:04 GMT-03:00 Fernando
Souza <span dir="ltr"><<a moz-do-not-send="true"
href="mailto:nandodesouza@gmail.com" target="_blank">nandodesouza@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
<div> A Lista retornada possui o mesmo número de objetos,
mas não o mesmo número de dados. Sua lista é composta de
20 vetores de tamanho 20, após aplicar a função que lhe
enviei ele selecionará somente os valores menores que o
valor de corte 0,3 dentro de cada vetor. No entanto a
lista continuará com 20 objetos (ou vetores). Tranformei a
lista em data frame para você ver melhor o que aconteceu.
<br>
<br>
<br>
is.list(bandas) #Os dados enviados estão armazenados em
uma lista<br>
str(bandas) # você possui quatrocentos dados 20 obs de 20
variáveis todos os vetores completos<br>
length(bandas)<span class=""><br>
f<-function(x) x[x<=0.3]<br>
</span> bandas2<-lapply(bandas,FUN=f) #seleciona
valores menores ou iguais a 0.3 dentro de cada vetor da
lista<br>
str(bandas2) # mesmo número de objetos 20 vetores contento
20 dados mas observe que alguns vetores não contém dados<br>
df<-data.frame(Data=unlist(sapply(bandas2, "[",
1:length(bandas2)))) # em formato de data frame
<div>
<div class="h5"><br>
<div>On 09-10-2014 22:12, Fernando Antonio de souza
wrote:<br>
</div>
<blockquote type="cite">
<div dir="ltr">Pelo que entendi a lista "banda" que
você enviou contem dados de correlação e você quer
selecionar apenas os cujo valor são menores ou
iguais a 0.3. Se for só isso você pode utilizar o
comando:<br>
<br>
f<-function(x) x[x<=0.3]<br>
lapply(bandas,FUN=f)<br>
</div>
<div class="gmail_extra"><br>
<div class="gmail_quote">Em 9 de outubro de 2014
18:57, Rodrigo Muniz <span dir="ltr"><<a
moz-do-not-send="true"
href="mailto:uenf.rodrigo@gmail.com"
target="_blank">uenf.rodrigo@gmail.com</a>></span>
escreveu:<br>
<blockquote class="gmail_quote" style="margin:0
0 0 .8ex;border-left:1px #ccc
solid;padding-left:1ex">
<div dir="ltr">Caros,
<div>Tenho uma dataframe com cerca de 1500
variáveis e gostaria de saber a correlação
entre essas variáveis, então gerei uma
matriz de correlação. </div>
<div>Como muitas variáveis estão altamente
correlacionadas, eu gostaria de selecionar
apenas as variáveis que tenham, por
exemplo, no máximo uma correlação de 0,3.
Para isso eu utilizei a função
findCorrelation do pacote caret. Pela
descrição, a função foi feita para isso,
selecionar as variáveis mais
correlacionadas, considerando um limite de
corte. </div>
<div>Como eu gostaria das variáveis menos
correlacionadas, eu inverti minha matriz
de correlação, pelo seguinte comando:
as.matrix(sqrt((matrix.cor-1)^2), desta
forma, a função selecionaria as variáveis
menos correlacionada.</div>
<div>No entanto, o resultado da função
sempre me retorna bandas altamente
correlacionada. Por isso gostaria de fazer
de uma forma alternativa. Segue um pequeno
exemplo para ajudar nas considerações.</div>
<div>Se alguém souber uma forma de programar
para obter esse resultado, aceito um
direcionamento.</div>
<div>Desde já agradeço pela atenção.</div>
<div><br>
</div>
<div>require(caret)</div>
<div><br>
</div>
<div>filtro=c(0.7) #Este parâmetro foi
criado para definir o liminar de corte,
como a #matriz está inversa, um valor de
0,7 que dizer que a correlação máxima
entre as #variáveis deve cer de 0,3.</div>
<div><br>
</div>
<div>matrix.cor <-
as.data.frame(cor(bandas))# Gerar a matriz
de correlação</div>
<div><br>
</div>
<div>banda.selecao=bandas[,findCorrelation(as.matrix(sqrt((matrix.cor-1)^2)), </div>
<div> cutoff=as.numeric(filtro),
verbose=FALSE)] # selecionar do dataframe
#original apenas as variáveis com fraca
correlação. <br clear="all">
<div><br>
</div>
<div>
<div>bandas=structure(list(X1417 =
c(0.161042, 0.186075, 0.202966,
0.211156, </div>
<div>0.172813, 0.167929, 0.175015,
0.200225, 0.178143, 0.182516,
0.162152, </div>
<div>0.169258, 0.14955, 0.143907,
0.161655, 0.164643, 0.157703,
0.160282, </div>
<div>0.177145, 0.169043), X1366 =
c(0.352479, 0.376561, 0.372766, </div>
<div>0.39279, 0.36767, 0.368855,
0.361146, 0.390109, 0.373625,
0.383793, </div>
<div>0.371615, 0.375047, 0.363033,
0.341382, 0.372219, 0.375438,
0.359356, </div>
<div>0.372921, 0.375115, 0.36681), X469
= c(0.07749, 0.098493, 0.083867, </div>
<div>0.101454, 0.087098, 0.088587,
0.079879, 0.083187, 0.087261,
0.091197, </div>
<div>0.085591, 0.091496, 0.081759,
0.093462, 0.094817, 0.089399,
0.087421, </div>
<div>0.08966, 0.097024, 0.084687), X1549
= c(0.233143, 0.262691, 0.266292, </div>
<div>0.280087, 0.247662, 0.242888,
0.237161, 0.269429, 0.25326,
0.260258, </div>
<div>0.239942, 0.244771, 0.224855,
0.211901, 0.237555, 0.242471,
0.232943, </div>
<div>0.234706, 0.248407, 0.243808),
X1424 = c(0.149535, 0.176297, </div>
<div>0.193145, 0.197999, 0.16312,
0.156738, 0.165102, 0.190595,
0.165941, </div>
<div>0.171179, 0.149601, 0.158143,
0.139422, 0.131351, 0.150353,
0.153668, </div>
<div>0.145654, 0.149609, 0.162426,
0.158941), X1957 = c(0.045334, </div>
<div>0.078347, 0.055058, 0.071466,
0.04449, 0.052894, 0.066396,
0.087972, </div>
<div>0.053841, 0.073682, 0.068851,
0.04738, 0.044667, 0.060964,
0.061176, </div>
<div>0.065722, 0.052965, 0.05974,
0.07101, 0.076109), X1848 =
c(0.247498, </div>
<div>0.280584, 0.274104, 0.278935,
0.252584, 0.256848, 0.235115,
0.274966, </div>
<div>0.268281, 0.267282, 0.255826,
0.23335, 0.237109, 0.230515,
0.262255, </div>
<div>0.258836, 0.2387, 0.265159,
0.271541, 0.265838), X1537 =
c(0.218761, </div>
<div>0.248475, 0.254953, 0.264756,
0.233748, 0.230395, 0.224644,
0.256149, </div>
<div>0.236666, 0.24462, 0.223847,
0.229429, 0.210074, 0.198872,
0.220081, </div>
<div>0.227677, 0.217309, 0.21968,
0.231893, 0.226282), X1621 =
c(0.285036, </div>
<div>0.31607, 0.313035, 0.331176,
0.302131, 0.300669, 0.290153,
0.323815, </div>
<div>0.307194, 0.318355, 0.298653,
0.303098, 0.285467, 0.269884,
0.297272, </div>
<div>0.301428, 0.291555, 0.300164,
0.302502, 0.299489), X1602 =
c(0.273662, </div>
<div>0.302662, 0.304277, 0.319991,
0.29179, 0.291713, 0.281382,
0.313998, </div>
<div>0.296813, 0.305874, 0.286391,
0.294462, 0.27532, 0.260575,
0.287217, </div>
<div>0.289802, 0.279721, 0.285657,
0.291856, 0.289307), X1865 =
c(0.199668, </div>
<div>0.229541, 0.230852, 0.245059,
0.226876, 0.215756, 0.207998,
0.254432, </div>
<div>0.20988, 0.226653, 0.206045,
0.194866, 0.195796, 0.183774,
0.214694, </div>
<div>0.231647, 0.207081, 0.208682,
0.223025, 0.199142), X1476 =
c(0.144097, </div>
<div>0.170145, 0.187837, 0.192702,
0.158221, 0.154393, 0.160075,
0.184072, </div>
<div>0.162413, 0.166724, 0.147404,
0.15375, 0.133576, 0.128008,
0.146151, </div>
<div>0.150793, 0.143929, 0.141969,
0.158288, 0.154279), X2034 =
c(0.081108, </div>
<div>0.110882, 0.100852, 0.109914,
0.109893, 0.06942, 0.128299,
0.139094, </div>
<div>0.10447, 0.125726, 0.118003,
0.075258, 0.090784, 0.055216,
0.102326, </div>
<div>0.101315, 0.08443, 0.123796,
0.104067, 0.102786), X1460 =
c(0.136055, </div>
<div>0.161915, 0.177241, 0.184844,
0.149423, 0.143712, 0.150499,
0.173385, </div>
<div>0.150807, 0.156626, 0.138878,
0.145282, 0.125618, 0.120778,
0.138968, </div>
<div>0.139961, 0.133014, 0.132243,
0.150618, 0.144916), X1236 =
c(0.41637, </div>
<div>0.440245, 0.422308, 0.453948,
0.428499, 0.436163, 0.427196,
0.454866, </div>
<div>0.433779, 0.451874, 0.447265,
0.44747, 0.44684, 0.422101, 0.451307, </div>
<div>0.452207, 0.436043, 0.454355,
0.44641, 0.437131), X1913 =
c(0.049649, </div>
<div>0.06384, 0.080675, 0.0761,
0.062756, 0.056635, 0.074517,
0.084222, </div>
<div>0.054835, 0.05488, 0.06389,
0.058421, 0.054827, 0.050249,
0.063544, </div>
<div>0.066275, 0.057604, 0.072578,
0.070545, 0.061034), X1885 =
c(0.105368, </div>
<div>0.136086, 0.161411, 0.146339,
0.115904, 0.121671, 0.149059,
0.145293, </div>
<div>0.125417, 0.145147, 0.124081,
0.112018, 0.101411, 0.096761,
0.122112, </div>
<div>0.114244, 0.105535, 0.122283,
0.140519, 0.121402), X492 =
c(0.080821, </div>
<div>0.102833, 0.088743, 0.10809,
0.093344, 0.096766, 0.083556,
0.089436, </div>
<div>0.091601, 0.100154, 0.089925,
0.096294, 0.087353, 0.097834,
0.102614, </div>
<div>0.09692, 0.096883, 0.094752,
0.102917, 0.089361), X1916 =
c(0.037402, </div>
<div>0.063136, 0.08053, 0.071535,
0.059838, 0.0555, 0.060523, 0.079581, </div>
<div>0.044433, 0.055137, 0.055831,
0.054455, 0.054067, 0.055332,
0.062323, </div>
<div>0.0651, 0.05896, 0.075877,
0.069466, 0.064714), X1249 =
c(0.416616, </div>
<div>0.440854, 0.423568, 0.455739,
0.428821, 0.436904, 0.42868,
0.455141, </div>
<div>0.432762, 0.45234, 0.447037,
0.448069, 0.445743, 0.420802,
0.455476, </div>
<div>0.453444, 0.43817, 0.454327,
0.444599, 0.437981)), .Names =
c("X1417", </div>
<div>"X1366", "X469", "X1549", "X1424",
"X1957", "X1848", "X1537", </div>
<div>"X1621", "X1602", "X1865", "X1476",
"X2034", "X1460", "X1236", </div>
<div>"X1913", "X1885", "X492", "X1916",
"X1249"), row.names = c(NA, </div>
<div>20L), class = "data.frame")</div>
</div>
<span><font color="#888888">-- <br>
<div dir="ltr"><b>Rodrigo A. Muniz</b>
<div>Eng. Agrônomo. Ms Produção
Vegetal (UENF)</div>
<div>Doutorando em Engenharia de
Sistemas Agrícolas (ESALQ/USP)</div>
<div>E-mail - <a
moz-do-not-send="true"
href="mailto:muniz.ra@usp.br"
target="_blank">muniz.ra@usp.br</a></div>
<div>Cel <a moz-do-not-send="true"
href="tel:%2819%29%2098300-4333"
value="+5519983004333"
target="_blank">(19) 98300-4333</a> (Pessoal)</div>
<div><br>
</div>
</div>
</font></span></div>
</div>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br"
target="_blank">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>
</div>
</blockquote>
<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 clear="all">
<div><br>
</div>
-- <br>
<div dir="ltr"><b>Rodrigo A. Muniz</b>
<div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div>
<div>Doutorando em Engenharia de Sistemas Agrícolas
(ESALQ/USP)</div>
<div>E-mail - <a moz-do-not-send="true"
href="mailto:muniz.ra@usp.br" target="_blank">muniz.ra@usp.br</a></div>
<div>Cel (19) 98300-4333 (Pessoal)</div>
<div><br>
</div>
</div>
</div>
<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>