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

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

Author: andybunn
Date: 2014-01-14 02:19:07 +0100 (Tue, 14 Jan 2014)
New Revision: 722

Modified:
   pkg/dplR/R/detrend.series.R
Log:
small note in detrend.series.R

Modified: pkg/dplR/R/detrend.series.R
===================================================================
--- pkg/dplR/R/detrend.series.R	2014-01-14 01:07:41 UTC (rev 721)
+++ pkg/dplR/R/detrend.series.R	2014-01-14 01:19:07 UTC (rev 722)
@@ -61,9 +61,11 @@
                 if(fits[1] < fits[length(fits)]) stop()
                 if(fits[length(fits)] <= 0) stop()
             }
+            # put in a check on fits here and warn if negative? 
             fits
         }
         ModNegExp <- try(nec.func(y2, constrain2), silent=TRUE)
+        
         if(class(ModNegExp)=="try-error") {
             ## Straight line via linear regression
             tm <- cbind(1, seq_along(y2))