<div dir="ltr">Boa noite,<div><br></div><div>Com ajuda de colegas do grupo montei um programa para pegar dados do yahoo e organiza-los. Porém, eu preciso pegar para vårias empresas e por isso fiz um laço com o uso da função for para imprimir a saida. Porem, eu não estou conseguindo fazer com que ele imprima todos e sim, somente o ultimo elemento. No caso abaixo, ele só imprime e salva o arquivo referente a empresa DIS enquanto eu também quero das outras.</div><div>Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos.</div><div><br></div><div>Muito obrigada!</div><div><br></div><div>Michelle</div><div><br></div><div><br></div><div><div>symbol<-c("XOM","AAPL", "DIS")</div><div>for(i in seq_along(symbols)){</div><div>  </div><div>  symbol <- symbols[i]</div><div>  </div><div>URL <- paste0("<a href="http://chartapi.finance.yahoo.com/instrument/1.0/">http://chartapi.finance.yahoo.com/instrument/1.0/</a>",</div><div>              symbol, "/chartdata;type=quote;range=1d/csv")</div><div><br></div><div>tmp <- readLines(URL)</div><div><br></div><div>tabela<-tmp[18:length(tmp)]</div><div><br></div><div>tabela_split<-strsplit(tabela,",")</div><div><br></div><div># matriz para receber os dados</div><div>dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))</div><div><br></div><div><br></div><div>for(j in 1:length(tabela_split)) {</div><div>  dados[j,]<-as.numeric(tabela_split[[j]])</div><div>}</div><div><br></div><div><br></div><div># organizar os nomes de colunas linhas</div><div>dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]])))</div><div><br></div><div>SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")</div><div><br></div><div>write.table(dados,file= SAIDA)</div><div><br></div><div>} </div><div><br></div></div><div><br></div><div><br></div></div>