[R-br] RES: Calculo de correlcao entre coluas que apresentam NAS de varias matrizes

[Mauro Sznelwar]

Tentei rodar e não consegui. Precisa de alguma biblioteca para isto?

 

Olá, Michelle!

 

Inicialmente gostaria de sugerir que você disponibilizasse os links dos
arquivos do Dropbox diretamente no teu script, evitando as diversas
mensagens de compartilhamento na lista. 

Para isso você pode consultar o tópico que segue:

<http://r-br.2285057.n4.nabble.com/R-br-Problema-em-abrir-conexao-com-source
-do-Dropbox-Public-tp4662507.html>

 

Quanto ao problema em si, não entendi muito bem, mas deixo um trecho de
código que pode te ajudar:

 

### <code r>

urls1 <-
c("https://www.dropbox.com/s/kgxo3s8qrrv74p3/AAparaCalculodaMedia.txt",

 
"https://www.dropbox.com/s/fhutciprhgt077x/AIGparaCalculodaMedia.txt",

 
"https://www.dropbox.com/s/kvubgji1tce8sm8/AXPparaCalculodaMedia.txt")

 

### alterar links públicos para carregamento direto!

urls2 <- sub("^.*/s/", "http://dl.dropbox.com/s/", urls1) 

 

AA  <- read.table(urls2[1], header=T, as.is=T)

AIG <- read.table(urls2[2], header=T, as.is=T)

AXP <- read.table(urls2[3], header=T, as.is=T)

 

sapply(c("AA", "AIG", "AXP"), function(x) length(get(x))) ### tamanhos
diferentes

sapply(c("AA", "AIG", "AXP"), function(x) tail(names(get(x))))

 

COR <- NULL

for (i in 2:394) {

     AA_AIG  <- cor(AA[,i],  AIG[,i],  use = "pairwise.complete.obs")

     AA_AXP  <- cor(AA[,i],  AXP[,i],  use = "pairwise.complete.obs")

     AIG_AXP <- cor(AIG[,i], AXP[,i],  use = "pairwise.complete.obs")

     row <- data.frame(i, AA_AIG, AA_AXP, AIG_AXP)

     COR <- rbind(COR, row)

}

 

head(COR)

### </code>

 

 




Éder Comunello <c <mailto:comunello.eder em gmail.com> omunello.eder em gmail.com>

Dourados, MS - [22 16.5'S, 54 49'W]

 



---
Este email foi escaneado pelo Avast antivírus.
http://www.avast.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150321/eccab902/attachment.html>