<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
  <META NAME="GENERATOR" CONTENT="GtkHTML/3.16.1">
</HEAD>
<BODY>
<FONT COLOR="#000000">Hmm, that didn't work either.</FONT><BR>
<BR>
<FONT COLOR="#000000">&gt; addTA(xts(rep(TRUE,length(times)), times), on=-1, col=&quot;#333333&quot;, border=NA)</FONT><BR>
<FONT COLOR="#000000">Error in coredata(x)[lchob@xsubset, ] : incorrect number of dimensions</FONT><BR>
<FONT COLOR="#000000">In addition: Warning message:</FONT><BR>
<FONT COLOR="#000000">In merge.zoo(lchob@xdata, ta, fill = ifelse(is.logical(ta), 0, NA),&nbsp; :</FONT><BR>
<FONT COLOR="#000000">&nbsp; Index vectors are of different classes: POSIXt Date integer integer</FONT><BR>
<BR>
<FONT COLOR="#000000">I couldn't peer into lchob to see wha the xsubset slot contained, but I did try using a different series for times</FONT><BR>
<FONT COLOR="#000000">&gt; times &lt;- index(QQQQ)</FONT><BR>
<BR>
<FONT COLOR="#000000">but I got the same error.</FONT><BR>
<BR>
<FONT COLOR="#000000">BTW is there any reason that the year is off by 1 year in the help pages? I noticed the same thing in the previous release.</FONT><BR>
<BR>
<FONT COLOR="#000000">Version:&nbsp;&nbsp; 0.3-7</FONT><BR>
<FONT COLOR="#000000">Date:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2007-11-17</FONT><BR>
<BR>
<FONT COLOR="#000000">Brian</FONT><BR>
<BR>
<BR>
----- Original message ----- <BR>
Sent: 2008/11/28 08:26:36 <BR>
Subject: Re:Re: Re: [R-SIG-Finance] Shaded regions as an indicator in quantmod <BR>
<BR>
Hi Brian, <BR>
<BR>
Try version 0.3-7 from CRAN (released last week sometime...) <BR>
<BR>
http://cran.r-project.org/web/packages/quantmod/index.html <BR>
<BR>
Jeff <BR>
<BR>
On Fri, Nov 28, 2008 at 6:28 AM, Brian Lee Yung Rowe wrote: <BR>
&gt; Hi Jeff, <BR>
&gt; <BR>
&gt; This sounds promising, but I couldn't get it to work. <BR>
&gt; <BR>
&gt;&gt; chartSeries(QQQQ) <BR>
&gt;&gt; times &lt;- timeBasedSeq('20071001/2007') <BR>
&gt;&gt; addTA(xts(rep(TRUE,length(times)), times), on=-1, col=&quot;#333333&quot;, <BR>
&gt;&gt; border=NA) <BR>
&gt; Warning message: <BR>
&gt; In plot.xy(xy.coords(x, y), type = type, ...) : <BR>
&gt; &quot;border&quot; is not a graphical parameter <BR>
&gt;&gt; addTA(xts(rep(TRUE,length(times)), times), on=-1, col=&quot;#333333&quot;) <BR>
&gt; Warning message: <BR>
&gt; In plot.xy(xy.coords(x, y), type = type, ...) : <BR>
&gt; &quot;border&quot; is not a graphical parameter <BR>
&gt; <BR>
&gt; Re-executing the sequence without the border parameter removes the error <BR>
&gt; message, but I don't see any bars. The series name does appear in the legend <BR>
&gt; area, though. <BR>
&gt; <BR>
&gt;&gt; chartSeries(QQQQ) <BR>
&gt;&gt; addTA(xts(rep(TRUE,length(times)), times), on=-1, col=&quot;#333333&quot;) <BR>
&gt; <BR>
&gt; I'm using version 0.3-6 revision 433. Any thoughts on what I'm doing wrong? <BR>
&gt; <BR>
&gt; Brian <BR>
&gt; <BR>
&gt; <BR>
&gt; ----- Original message ----- <BR>
&gt; Sent: 2008/11/27 17:58:54 <BR>
&gt; Subject: Re:Re: [R-SIG-Finance] Shaded regions as an indicator in quantmod <BR>
&gt; <BR>
&gt; quantmod can do this now as well: <BR>
&gt; <BR>
&gt; If addTA is passed a logical vector of the same length as your series <BR>
&gt; or passed an ?xtsible object of any length it will cause bands to be <BR>
&gt; drawn. Points in the vector/time that are TRUE will be cause event <BR>
&gt; blocks to be drawn on/under the series. <BR>
&gt; <BR>
&gt; An example: <BR>
&gt; <BR>
&gt;&gt; library(quantmod) <BR>
&gt;&gt; chartSeries(QQQQ) <BR>
&gt;&gt; times &lt;- timeBasedSeq(20071001/2007) # create a Date sequence from <BR>
&gt;&gt; 2007-10-01 to 2007-12-31 <BR>
&gt;&gt; addTA(xts(rep(TRUE,length(times)), times), on=-1, col=&quot;#333333&quot;, <BR>
&gt;&gt; border=NA) <BR>
&gt; <BR>
&gt; A few comments about 'addTA': <BR>
&gt; <BR>
&gt; 1) the 'on' argument which plot you want it drawn on. Starting with <BR>
&gt; the main series window=1. Negative values cause the values to be drawn <BR>
&gt; under the main graphics. <BR>
&gt; <BR>
&gt; 2) 'col' and 'border' are arguments to the 'rect' call internal, which <BR>
&gt; draws the bands underneath. <BR>
&gt; <BR>
&gt; See ?addTA for further details. <BR>
&gt; <BR>
&gt; HTH <BR>
&gt; Jeff <BR>
&gt; <BR>
&gt; <BR>
&gt; <BR>
&gt; <BR>
&gt; On Thu, Nov 27, 2008 at 11:24 AM, Eric Zivot wrote: <BR>
&gt;&gt; You can use the chart.TimeSeries() function in the package <BR>
&gt;&gt; PerformanceAnalytics to do this very easily. See the examples in the help <BR>
&gt;&gt; file for adding shading to user defined event times. <BR>
&gt;&gt; ez <BR>
&gt;&gt; <BR>
&gt;&gt; _____ <BR>
&gt;&gt; <BR>
&gt;&gt; From: r-sig-finance-bounces@stat.math.ethz.ch <BR>
&gt;&gt; [mailto:r-sig-finance-bounces@stat.math.ethz.ch] On Behalf Of Brian Lee <BR>
&gt;&gt; Yung <BR>
&gt;&gt; Rowe <BR>
&gt;&gt; Sent: Thursday, November 27, 2008 9:19 AM <BR>
&gt;&gt; To: r-sig-finance@stat.math.ethz.ch <BR>
&gt;&gt; Subject: [R-SIG-Finance] Shaded regions as an indicator in quantmod <BR>
&gt;&gt; <BR>
&gt;&gt; <BR>
&gt;&gt; Hi, <BR>
&gt;&gt; <BR>
&gt;&gt; I want to produce charts using quantmod similar to the ones available from <BR>
&gt;&gt; FRED. Specifically, FRED has this handy feature of rendering the <BR>
&gt;&gt; NBER-defined recession periods under the displayed time series. <BR>
&gt;&gt; <BR>
&gt;&gt; It seems like calling newTA with the appropriate function handle could <BR>
&gt;&gt; produce the output necessary to define the shading bars, but I'm not sure <BR>
&gt;&gt; if <BR>
&gt;&gt; any of the existing charting types can generate the correct look and feel. <BR>
&gt;&gt; Anybody have suggestions? <BR>
&gt;&gt; <BR>
&gt;&gt; Thanks, <BR>
&gt;&gt; Brian <BR>
&gt;&gt; <BR>
&gt;&gt; [[alternative HTML version deleted]] <BR>
&gt;&gt; <BR>
&gt;&gt; _______________________________________________ <BR>
&gt;&gt; R-SIG-Finance@stat.math.ethz.ch mailing list <BR>
&gt;&gt; https://stat.ethz.ch/mailman/listinfo/r-sig-finance <BR>
&gt;&gt; -- Subscriber-posting only. <BR>
&gt;&gt; -- If you want to post, subscribe first. <BR>
&gt;&gt; <BR>
&gt; <BR>
&gt; <BR>
&gt; <BR>
&gt; -- <BR>
&gt; Jeffrey Ryan <BR>
&gt; jeffrey.ryan@insightalgo.com <BR>
&gt; <BR>
&gt; ia: insight algorithmics <BR>
&gt; www.insightalgo.com <BR>
<BR>
<BR>
<BR>
-- <BR>
Jeffrey Ryan <BR>
jeffrey.ryan@insightalgo.com <BR>
<BR>
ia: insight algorithmics <BR>
www.insightalgo.com 
</BODY>
</HTML>