<div dir="ltr"><div>Michelle,</div><div><br></div><div>Essa tarefa pode ser realizada eliminado os loops (for) e algumas linha também. </div><div>Dá uma olhadinha no script abaixo.</div><div><br></div><div>Abraço</div><div><br></div><div><div><font face="monospace, monospace">symbol<-c("XOM","AAPL", "DIS")</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">getCSV <- function(symbol){</font></div><div><font face="monospace, monospace"> URL <- paste0("<a href="http://chartapi.finance.yahoo.com/instrument/1.0/">http://chartapi.finance.yahoo.com/instrument/1.0/</a>", symbol, "/chartdata;type=quote;range=1d/csv")</font></div><div><font face="monospace, monospace"> tab <- read.table(URL, sep = ",", dec = ".", skip = 17)</font></div><div><font face="monospace, monospace"> colnames(tab) <- paste(c("timestamp","close","high","low","open","volume"), 1:6, sep = "-")</font></div><div><font face="monospace, monospace"> rownames(tab) <- paste(symbol, 1:nrow(tab))</font></div><div><font face="monospace, monospace"> SAIDA <- paste0("Dados",symbol,"yahoo20150312.txt")</font></div><div><font face="monospace, monospace"> write.table(tab, file = SAIDA, sep = ";", dec = ".", header = T)</font></div><div><font face="monospace, monospace">}</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">sapply(symbol, getCSV)</font></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-03-13 9:34 GMT-03:00 Michelle Bau Graczyk <span dir="ltr"><<a href="mailto:mbgraczyk@gmail.com" target="_blank">mbgraczyk@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Oi Augusto!<div><br></div><div>Deu certo! Foi puro descuido mesmo com o symbols e o symbol! </div><div><br></div><div>Muito obrigada!!</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 13 de março de 2015 09:00, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span> escreveu:<div><div class="h5"><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Ignore meu comentário anterior, não tinha olhado a identação direito.<br><br>symbols<-c("XOM","AAPL", "DIS")<br>for(i in 1:length(symbols)){<span><br> symbol <- symbols[i]<br> URL <- paste0("<a href="http://chartapi.finance.yahoo.com/instrument/1.0/" target="_blank">http://chartapi.finance.yahoo.com/instrument/1.0/</a>",<br> symbol, "/chartdata;type=quote;range=1d/csv")<br> tmp <- readLines(URL)<br> tabela<-tmp[18:length(tmp)]<br> tabela_split<-strsplit(tabela,",")<br> # matriz para receber os dados<br> dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))<br> for(j in 1:length(tabela_split)) {<br> dados[j,]<-as.numeric(tabela_split[[j]])<br> }<br> # organizar os nomes de colunas linhas<br> dimnames(dados)<-list(paste(symbol,1:length(tabela_split)),<br> paste(c("timestamp","close","high","low","open","volume"),<br> 1:length(tabela_split[[1]])))<br> SAIDA<-paste0("Dados",symbol,"yahoo20150312.txt")<br> write.table(dados,file= SAIDA)<br> } <br><br></span></div>Mas seu codigo funcionou aqui, so mudei o começo ali<span><br><br><div>symbol<-c("XOM","AAPL", "DIS")</div><div>for(i in seq_along(symbols)){</div><div> </div><div> symbol <- symbols[i]<br><br><br></div></span><div>vc criava um vetor symbol e fazia o for no symbols.<br></div><div>Mas rodando ali em cima ele criou certinho as três planilhas.<br></div><br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 13 de março de 2015 07:51, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span> escreveu:<div><div><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div><div><div><div>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<br><br><br>write.table(dados,file= paste0("SAIDA_",i,".txt"))<br><br><br></div>Assim, você vai salvar um <br></div>SAIDA_XOM.txt<br></div>SAIDA_AAPL.txt<br></div>SAIDA_DIS.txt<br><br><br></div>E assim vai.<br><br></div>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<br><br></div>a função write.table sempre salva no mesmo lugar, o file= a mesma coisa sempre.<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 12 de março de 2015 17:51, Michelle Bau Graczyk <span dir="ltr"><<a href="mailto:mbgraczyk@gmail.com" target="_blank">mbgraczyk@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div><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/" target="_blank">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>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<span><font color="#888888"><br></font></span></blockquote></div><span><font color="#888888"><br><br clear="all"><br>-- <br><div><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</font></span></div>
</blockquote></div></div></div><div><div><br><br clear="all"><br>-- <br><div><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">Luís Gustavo Silva e Silva</div></div>
</div>