[Dplr-commits] r799 - pkg/dplR/R

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

Author: mvkorpel
Date: 2014-04-09 17:21:41 +0200 (Wed, 09 Apr 2014)
New Revision: 799

Modified:
   pkg/dplR/R/detrend.series.R
Log:
Different drawing order to avoid a purple flood (Ar)

Modified: pkg/dplR/R/detrend.series.R
===================================================================
--- pkg/dplR/R/detrend.series.R	2014-04-09 14:51:35 UTC (rev 798)
+++ pkg/dplR/R/detrend.series.R	2014-04-09 15:21:41 UTC (rev 799)
@@ -157,10 +157,10 @@
         plot(y2, type="l", ylab="mm",
              xlab=gettext("Age (Yrs)", domain="R-dplR"),
              main=gettextf("Raw Series %s", y.name, domain="R-dplR"))
+        if(do.ar) lines(Ar, col="purple", lwd=2)
         if(do.spline) lines(Spline, col="green", lwd=2)
         if(do.mne) lines(ModNegExp, col="red", lwd=2)
         if(do.mean) lines(Mean, col="blue", lwd=2)
-        if(do.ar) lines(Ar, col="purple", lwd=2)
         
         if(do.spline){
             plot(resids$Spline, type="l", col="green",