Muito obrigado!
segue o código
symbol<-c("XOM","AAPL", "DIS")
getCSV <- function(symbol){
URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/";,
symbol, "/chartdata;type=quote;range=1d/csv")
tab <- read.table(URL, sep = ",", dec = ".", skip = 17)
colnames(tab) <-
paste(c("timestamp","close","high","low","open","volume"), 1:6, sep =
"-")
rownames(tab) <- paste(symbol, 1:nrow(tab))
SAIDA <- paste0("Dados",symbol,"yahoo20150312.txt")
write.table(tab, file = SAIDA, sep = ";", dec = ".")
}
sapply(symbol, getCSV)
Você pode ver todo seu histórico de emails aqui:
http://r-br.2285057.n4.nabble.com/R-br-Uso-do-laco-for-para-impessao-de-mais
-de-um-arquivo-gerado-td4663979.html
--
Salah
Saudações!
_______________________________________________
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.
---
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.
