Este email foi escaneado pelo Avast antivírus.
www.avast.com
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:
Quanto ao problema em si, não entendi muito bem, mas deixo
um trecho de código que pode te ajudar:
### <code r>
### 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>
|
|
Este email foi escaneado pelo Avast antivírus.
|