[Xts-commits] r825 - pkg/xtsExtra/R

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

Author: rossbennett34
Date: 2014-07-31 23:43:04 +0200 (Thu, 31 Jul 2014)
New Revision: 825

Modified:
   pkg/xtsExtra/R/plot2.R
Log:
plot2_xts chart.lines function: reverse line order

Modified: pkg/xtsExtra/R/plot2.R
===================================================================
--- pkg/xtsExtra/R/plot2.R	2014-07-26 16:15:55 UTC (rev 824)
+++ pkg/xtsExtra/R/plot2.R	2014-07-31 21:43:04 UTC (rev 825)
@@ -18,7 +18,7 @@
     colors <- ifelse(x[,1] < 0, dn.col, up.col)
     lines(1:NROW(x),x[,1],lwd=2,col=colors,lend=1,lty=1,type="h")
   } else {
-    for(i in 1:NCOL(x)){
+    for(i in NCOL(x):1){
       lines(1:NROW(x),x[,i],lwd=2,col=colorset[i],lend=1,lty=1,type="l")
     }
   }