<br><br><div class="gmail_quote">2012/5/23 R. Michael Weylandt <span dir="ltr"><<a href="mailto:michael.weylandt@gmail.com" target="_blank">michael.weylandt@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Not runnable exactly as is.... where does the for loop have its close brace?<br>
<br>
This works fine for me:<br>
<br>
getSymbols("SPY", from = "1990-01-01")<br>
y <- to.weekly(SPY)<br>
chartSeries(y, type = "candlesticks", multi.col = TRUE, theme =<br>
"white", subset = 'last 54 months', name = "SPY")<br>
<div>addMACD(fast = 12, slow = 26, signal = 9, type = "EMA", histogram = TRUE)<br>
saveChart('pdf',width=25,height=13)<br>
<br>
</div>so try it for you.<br>
<br></blockquote><div>I tried the code above and it works fine.<br> </div><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
Your data seems to work for me if I close the loop after MACD. Can you<br>
display the error message or say more about why you think it doesn't<br>
work?<br>
<br></blockquote><div>You can see in the next file attached that MACD is not added to graphic.<br><br>There is a warning message saying this:<br><br>1: In last.xts(c(86.99, 81.46, 82.11, 67.7, 75.02, 78.95, 82.59, 84.3,  :<br>
  requested length is greater than original<br>2: In last.xts(c(59.25, 56.48, 56.1, 48, 49.01, 53.17, 53.4, 58.99,  :<br>  requested length is greater than original<br><br><br>P.S. I pasted the code missing the close of the loop. In the original code the loop is closed. <br>
<br> </div><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">

Michael<br>
<div><div><br>
On Tue, May 22, 2012 at 10:58 PM, Sávio M. Ramos <<a href="mailto:savio.debian@gmail.com" target="_blank">savio.debian@gmail.com</a>> wrote:<br>
> Hi,<br>
><br>
> addMACD don't work. I am doing something wrong or it is a bug.<br>
><br>
> The code:<br>
><br>
> require(quantmod)<br>
> lista <- c("PETR4.csv", "VALE3.csv")<br>
> for (i in lista){<br>
> x <- as.xts(read.zoo(i, sep=",", format="%Y-%m-%d", header=TRUE))<br>
> y <- to.weekly(x)<br>
> chartSeries(y, type="candlesticks", multi.col=TRUE, theme="white", subset='last 54 months', name=i)<br>
> addMACD(fast = 12, slow = 26, signal = 9, type = "EMA", histogram = TRUE)<br>
> saveChart('pdf',width=25,height=13)<br>
><br>
><br>
> The two files is attached.<br>
><br>
> []'s<br>
> --<br>
> Sávio M Ramos<br>
> Arquiteto, Rio, RJ<br>
> Só uso Linux desde 2000<br>
> <a href="http://www.debian.org" target="_blank">www.debian.org</a><br>
><br>
><br>
</div></div>> _______________________________________________<br>
> <a href="mailto:R-SIG-Finance@r-project.org" target="_blank">R-SIG-Finance@r-project.org</a> mailing list<br>
> <a href="https://stat.ethz.ch/mailman/listinfo/r-sig-finance" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-sig-finance</a><br>
> -- Subscriber-posting only. If you want to post, subscribe first.<br>
> -- Also note that this is not the r-help list where general R questions should go.<br>
</blockquote></div><br>