<div dir="ltr">Boa noite,<div><br></div><div>Precisa tirar o argumento header=T que não é válido para write.table(). O equivalente seria col.names=T que já é default.<br><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote">Em 15 de março de 2015 19:43, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">








<div lang="PT-BR" link="blue" vlink="purple">

<div>

<p class="MsoNormal"><span style="font-family:"Arial","sans-serif";color:#1f497d">Por
que não estou conseguindo rodar?<u></u><u></u></span></p>

<p class="MsoNormal"><span style="font-family:"Arial","sans-serif";color:#1f497d"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">symbol<-c("XOM","AAPL", "DIS")<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d"> <u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d"> getCSV <- function(symbol){<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+   URL <-
paste0("<a href="http://chartapi.finance.yahoo.com/instrument/1.0/" target="_blank">http://chartapi.finance.yahoo.com/instrument/1.0/</a>", symbol,
"/chartdata;type=quote;range=1d/csv")<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+   tab <- read.table(URL, sep = ",", dec =
".", skip = 17)<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+   colnames(tab) <-
paste(c("timestamp","close","high","low","open","volume"),
1:6, sep = "-")<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+   rownames(tab) <- paste(symbol, 1:nrow(tab))<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+   SAIDA <-
paste0("Dados",symbol,"yahoo20150312.txt")<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+   write.table(tab, file = SAIDA, sep = ";", dec =
".", header = T)<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">+ }<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d"> <u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d"> sapply(symbol, getCSV)<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">Error in write.table(tab, file = SAIDA, sep = ";", dec
= ".", header = T) : <u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US" style="font-family:"Arial","sans-serif";color:#1f497d">  </span><span style="font-family:"Arial","sans-serif";color:#1f497d">unused argument (header = T)<u></u><u></u></span></p>

<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>

<p class="MsoNormal"><br><u></u></p></div></div></blockquote></div></div></div></div>