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

[Mauro Sznelwar]

Por que não estou conseguindo rodar?

 

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 = ".", header = T)

+ }

 

 sapply(symbol, getCSV)

Error in write.table(tab, file = SAIDA, sep = ";", dec = ".", header = T) : 

  unused argument (header = T)

 

 

Oi Luis,

 

Assim fica bem mais elegante =)

Muito obrigada pela dica!

 

Queria aproveitar para perguntar se você saberia um jeito de obter do yahoo usando o R todos os tickers das companhias pertencentes ao NIKKEI, porque ao invés de escrever os 225 tickers no symbol, eu puxaria direto.

 

Muito obrigada mais uma vez!

 

Em 13 de março de 2015 09:50, Luis G. S. e Silva <lgsilvaesilva em gmail.com> escreveu:

Michelle,

 

Essa tarefa pode ser realizada eliminado os loops (for) e algumas linha também. 

Dá uma olhadinha no script abaixo.

 

Abraço

 

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 = ".", header = T)

}

 

sapply(symbol, getCSV)

 



---
Este email foi escaneado pelo Avast antivírus.
http://www.avast.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150315/88a0159d/attachment.html>