[R-br] RES: RES: [R-brUso do laço for para impessão de mais de um arquivo gerado.

[izi]

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!