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

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

Author: andybunn
Date: 2018-06-13 12:56:54 +0200 (Wed, 13 Jun 2018)
New Revision: 1111

Modified:
   pkg/dplR/R/detrend.R
Log:
Small error fixed.

Modified: pkg/dplR/R/detrend.R
===================================================================
--- pkg/dplR/R/detrend.R	2018-06-13 08:24:28 UTC (rev 1110)
+++ pkg/dplR/R/detrend.R	2018-06-13 10:56:54 UTC (rev 1111)
@@ -87,8 +87,10 @@
     if(length(method2) == 1){
         out <- data.frame(out, row.names = rn)
         names(out) <- y.name
-        modelCurves <- data.frame(modelCurves, row.names = rn)
-        names(modelCurves) <- y.name
+        if(return.info){
+          modelCurves <- data.frame(modelCurves, row.names = rn)
+          names(modelCurves) <- y.name
+        }
     }
     if (return.info) {
         names(modelStats) <- series.names