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:[email protected]> [email protected]> Dourados, MS - [22 16.5'S, 54 49'W] --- Este email foi escaneado pelo Avast antivírus. http://www.avast.com
_______________________________________________ R-br mailing list [email protected] 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.
