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

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

Author: andybunn
Date: 2014-03-28 05:22:50 +0100 (Fri, 28 Mar 2014)
New Revision: 746

Modified:
   pkg/dplR/R/crn.plot.R
Log:
slightly more gracefull axes.

Modified: pkg/dplR/R/crn.plot.R
===================================================================
--- pkg/dplR/R/crn.plot.R	2014-03-28 03:53:46 UTC (rev 745)
+++ pkg/dplR/R/crn.plot.R	2014-03-28 04:22:50 UTC (rev 746)
@@ -72,10 +72,8 @@
     }
     par(new=TRUE)
     plot(yr.vec, spl, type="n",axes=FALSE,xlab='',ylab='')
-    if(!is.null(abline.pos)) {
-      abline(h=abline.pos,lwd=abline.lwd,
-             lty=abline.lty,col=abline.col)
-    }
+    abline(h=abline.pos,lwd=abline.lwd,
+           lty=abline.lty,col=abline.col)
     lines(yr.vec, spl, col=crn.line.col,lwd=crn.lwd)
     tmp <- na.omit(spl)
     if(add.spline) {
@@ -84,6 +82,10 @@
       spl[!is.na(spl)] <- ffcsaps(y=tmp, x=seq_along(tmp), nyrs=nyrs2, f=f)
       lines(yr.vec, spl, col=spline.line.col, lwd=spline.lwd)
     }
-    axis(1);axis(2);axis(3);box()
+    axis(1)
+    axis(2)
+    axis(3)
+    if(!sd.exist) axis(4)
+    box()
   }
 }