[Returnanalytics-commits] r1941 - pkg/PerformanceAnalytics/R

[noreply at r-forge.r-project.org]

Author: peter_carl
Date: 2012-05-04 16:56:04 +0200 (Fri, 04 May 2012)
New Revision: 1941

Modified:
   pkg/PerformanceAnalytics/R/chart.BarVaR.R
Log:
- fixed color of lower bars when show.greenredbars = TRUE

Modified: pkg/PerformanceAnalytics/R/chart.BarVaR.R
===================================================================
--- pkg/PerformanceAnalytics/R/chart.BarVaR.R	2012-05-03 22:36:57 UTC (rev 1940)
+++ pkg/PerformanceAnalytics/R/chart.BarVaR.R	2012-05-04 14:56:04 UTC (rev 1941)
@@ -302,7 +302,7 @@
             negatives[row,]=min(0,x.orig[row,1])
         }
         chart.TimeSeries(positives, type = "h", legend.loc = NULL, ylim = ylim, lwd = lwd, lend="butt", colorset="darkgreen", ...)
-        lines(1:length(x.orig[,1]), negatives, type="h", lend="butt", colorset="darkred", lwd=lwd)
+        lines(1:length(x.orig[,1]), negatives, type="h", lend="butt", col="darkred", lwd=lwd)
     }
 
     if(show.clean) {