Uso do laço for para impessão de mais de um arquivo gerado.

Boa noite, 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. Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos. Muito obrigada! Michelle symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){ symbol <- symbols[i] URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv") tmp <- readLines(URL) tabela<-tmp[18:length(tmp)] tabela_split<-strsplit(tabela,",") # matriz para receber os dados dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split)) for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) } # organizar os nomes de colunas linhas dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]]))) SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt") write.table(dados,file= SAIDA) }

Imagino que você está salvando tudo mas sobrepondo os dados, salve com nomes de arquivos diferentes, por exemplo no final do seu script tente algo assim write.table(dados,file= paste0("SAIDA_",i,".txt")) Assim, você vai salvar um SAIDA_XOM.txt SAIDA_AAPL.txt SAIDA_DIS.txt E assim vai. Agora eu acho que você salva o XOM em SAIDA, depois salva por cima os dados do AAPL no SAIDA, depois salva por cima os dados do DIS a função write.table sempre salva no mesmo lugar, o file= a mesma coisa sempre. Em 12 de março de 2015 17:51, Michelle Bau Graczyk <mbgraczyk@gmail.com> escreveu:
Boa noite,
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. Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos.
Muito obrigada!
Michelle
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv")
tmp <- readLines(URL)
tabela<-tmp[18:length(tmp)]
tabela_split<-strsplit(tabela,",")
# matriz para receber os dados dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))
for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) }
# organizar os nomes de colunas linhas
dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]])))
SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")
write.table(dados,file= SAIDA)
}
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Grato Augusto C. A. Ribas Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056

Ignore meu comentário anterior, não tinha olhado a identação direito. symbols<-c("XOM","AAPL", "DIS") for(i in 1:length(symbols)){ symbol <- symbols[i] URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv") tmp <- readLines(URL) tabela<-tmp[18:length(tmp)] tabela_split<-strsplit(tabela,",") # matriz para receber os dados dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split)) for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) } # organizar os nomes de colunas linhas dimnames(dados)<-list(paste(symbol,1:length(tabela_split)), paste(c("timestamp","close","high","low","open","volume"), 1:length(tabela_split[[1]]))) SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt") write.table(dados,file= SAIDA) } Mas seu codigo funcionou aqui, so mudei o começo ali symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){ symbol <- symbols[i] vc criava um vetor symbol e fazia o for no symbols. Mas rodando ali em cima ele criou certinho as três planilhas. Em 13 de março de 2015 07:51, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Imagino que você está salvando tudo mas sobrepondo os dados, salve com nomes de arquivos diferentes, por exemplo no final do seu script tente algo assim
write.table(dados,file= paste0("SAIDA_",i,".txt"))
Assim, você vai salvar um SAIDA_XOM.txt SAIDA_AAPL.txt SAIDA_DIS.txt
E assim vai.
Agora eu acho que você salva o XOM em SAIDA, depois salva por cima os dados do AAPL no SAIDA, depois salva por cima os dados do DIS
a função write.table sempre salva no mesmo lugar, o file= a mesma coisa sempre.
Em 12 de março de 2015 17:51, Michelle Bau Graczyk <mbgraczyk@gmail.com> escreveu:
Boa noite,
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. Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos.
Muito obrigada!
Michelle
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv")
tmp <- readLines(URL)
tabela<-tmp[18:length(tmp)]
tabela_split<-strsplit(tabela,",")
# matriz para receber os dados dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))
for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) }
# organizar os nomes de colunas linhas
dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]])))
SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")
write.table(dados,file= SAIDA)
}
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
-- Grato Augusto C. A. Ribas Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056

Oi Augusto! Deu certo! Foi puro descuido mesmo com o symbols e o symbol! Muito obrigada!! Em 13 de março de 2015 09:00, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Ignore meu comentário anterior, não tinha olhado a identação direito.
symbols<-c("XOM","AAPL", "DIS") for(i in 1:length(symbols)){ symbol <- symbols[i] URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv") tmp <- readLines(URL) tabela<-tmp[18:length(tmp)] tabela_split<-strsplit(tabela,",") # matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split)) for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) } # organizar os nomes de colunas linhas dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),
paste(c("timestamp","close","high","low","open","volume"), 1:length(tabela_split[[1]]))) SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt") write.table(dados,file= SAIDA) }
Mas seu codigo funcionou aqui, so mudei o começo ali
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
vc criava um vetor symbol e fazia o for no symbols. Mas rodando ali em cima ele criou certinho as três planilhas.
Em 13 de março de 2015 07:51, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Imagino que você está salvando tudo mas sobrepondo os dados, salve com
nomes de arquivos diferentes, por exemplo no final do seu script tente algo assim
write.table(dados,file= paste0("SAIDA_",i,".txt"))
Assim, você vai salvar um SAIDA_XOM.txt SAIDA_AAPL.txt SAIDA_DIS.txt
E assim vai.
Agora eu acho que você salva o XOM em SAIDA, depois salva por cima os dados do AAPL no SAIDA, depois salva por cima os dados do DIS
a função write.table sempre salva no mesmo lugar, o file= a mesma coisa sempre.
Em 12 de março de 2015 17:51, Michelle Bau Graczyk <mbgraczyk@gmail.com> escreveu:
Boa noite,
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. Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos.
Muito obrigada!
Michelle
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv")
tmp <- readLines(URL)
tabela<-tmp[18:length(tmp)]
tabela_split<-strsplit(tabela,",")
# matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))
for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) }
# organizar os nomes de colunas linhas
dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]])))
SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")
write.table(dados,file= SAIDA)
}
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.

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) 2015-03-13 9:34 GMT-03:00 Michelle Bau Graczyk <mbgraczyk@gmail.com>:
Oi Augusto!
Deu certo! Foi puro descuido mesmo com o symbols e o symbol!
Muito obrigada!!
Em 13 de março de 2015 09:00, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Ignore meu comentário anterior, não tinha olhado a identação direito.
symbols<-c("XOM","AAPL", "DIS") for(i in 1:length(symbols)){ symbol <- symbols[i] URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv") tmp <- readLines(URL) tabela<-tmp[18:length(tmp)] tabela_split<-strsplit(tabela,",") # matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split)) for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) } # organizar os nomes de colunas linhas dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),
paste(c("timestamp","close","high","low","open","volume"), 1:length(tabela_split[[1]]))) SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt") write.table(dados,file= SAIDA) }
Mas seu codigo funcionou aqui, so mudei o começo ali
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
vc criava um vetor symbol e fazia o for no symbols. Mas rodando ali em cima ele criou certinho as três planilhas.
Em 13 de março de 2015 07:51, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Imagino que você está salvando tudo mas sobrepondo os dados, salve com
nomes de arquivos diferentes, por exemplo no final do seu script tente algo assim
write.table(dados,file= paste0("SAIDA_",i,".txt"))
Assim, você vai salvar um SAIDA_XOM.txt SAIDA_AAPL.txt SAIDA_DIS.txt
E assim vai.
Agora eu acho que você salva o XOM em SAIDA, depois salva por cima os dados do AAPL no SAIDA, depois salva por cima os dados do DIS
a função write.table sempre salva no mesmo lugar, o file= a mesma coisa sempre.
Em 12 de março de 2015 17:51, Michelle Bau Graczyk <mbgraczyk@gmail.com> escreveu:
Boa noite,
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. Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos.
Muito obrigada!
Michelle
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv")
tmp <- readLines(URL)
tabela<-tmp[18:length(tmp)]
tabela_split<-strsplit(tabela,",")
# matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))
for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) }
# organizar os nomes de colunas linhas
dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]])))
SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")
write.table(dados,file= SAIDA)
}
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Luís Gustavo Silva e Silva

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@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)
2015-03-13 9:34 GMT-03:00 Michelle Bau Graczyk <mbgraczyk@gmail.com>:
Oi Augusto!
Deu certo! Foi puro descuido mesmo com o symbols e o symbol!
Muito obrigada!!
Em 13 de março de 2015 09:00, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Ignore meu comentário anterior, não tinha olhado a identação direito.
symbols<-c("XOM","AAPL", "DIS") for(i in 1:length(symbols)){ symbol <- symbols[i] URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv") tmp <- readLines(URL) tabela<-tmp[18:length(tmp)] tabela_split<-strsplit(tabela,",") # matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split)) for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) } # organizar os nomes de colunas linhas dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),
paste(c("timestamp","close","high","low","open","volume"), 1:length(tabela_split[[1]]))) SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt") write.table(dados,file= SAIDA) }
Mas seu codigo funcionou aqui, so mudei o começo ali
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
vc criava um vetor symbol e fazia o for no symbols. Mas rodando ali em cima ele criou certinho as três planilhas.
Em 13 de março de 2015 07:51, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Imagino que você está salvando tudo mas sobrepondo os dados, salve com
nomes de arquivos diferentes, por exemplo no final do seu script tente algo assim
write.table(dados,file= paste0("SAIDA_",i,".txt"))
Assim, você vai salvar um SAIDA_XOM.txt SAIDA_AAPL.txt SAIDA_DIS.txt
E assim vai.
Agora eu acho que você salva o XOM em SAIDA, depois salva por cima os dados do AAPL no SAIDA, depois salva por cima os dados do DIS
a função write.table sempre salva no mesmo lugar, o file= a mesma coisa sempre.
Em 12 de março de 2015 17:51, Michelle Bau Graczyk <mbgraczyk@gmail.com
escreveu:
Boa noite,
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. Já tentei colocar o write.table no final da última chaves mas também não imprimiu de todos os arquivos.
Muito obrigada!
Michelle
symbol<-c("XOM","AAPL", "DIS") for(i in seq_along(symbols)){
symbol <- symbols[i]
URL <- paste0("http://chartapi.finance.yahoo.com/instrument/1.0/", symbol, "/chartdata;type=quote;range=1d/csv")
tmp <- readLines(URL)
tabela<-tmp[18:length(tmp)]
tabela_split<-strsplit(tabela,",")
# matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))
for(j in 1:length(tabela_split)) { dados[j,]<-as.numeric(tabela_split[[j]]) }
# organizar os nomes de colunas linhas
dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),paste(c("timestamp","close","high","low","open","volume"),1:length(tabela_split[[1]])))
SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")
write.table(dados,file= SAIDA)
}
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
-- Grato Augusto C. A. Ribas
Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.
-- Luís Gustavo Silva e Silva
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.

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@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

Retire o argumento <header = T> da função write.table ficando assim: write.table(tab, file = SAIDA, sep = ";", dec = ".") -- Salah Saudações!

Muito obrigado pelo retorno,mas poderia me enviar o código fonte otimizado de novo, eu sem querer acabei acabei apagando. Retire o argumento <header = T> da função write.table ficando assim: write.table(tab, file = SAIDA, sep = ";", dec = ".") -- Salah Saudações! --- Este email foi escaneado pelo Avast antivírus. http://www.avast.com

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... -- Salah Saudações!

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 R-br@listas.c3sl.ufpr.br 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

Boa noite, Precisa tirar o argumento header=T que não é válido para write.table(). O equivalente seria col.names=T que já é default. Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W] Em 15 de março de 2015 19:43, Mauro Sznelwar <sznelwar@uol.com.br> escreveu:
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)
participantes (6)
-
Augusto Ribas
-
izi
-
Luis G. S. e Silva
-
Mauro Sznelwar
-
Michelle Bau Graczyk
-
Éder Comunello