[Gsdesign-commits] r139 - pkg/R

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

Author: keaven
Date: 2009-03-02 03:33:44 +0100 (Mon, 02 Mar 2009)
New Revision: 139

Modified:
   pkg/R/gsSpending.R
Log:
sfLogistic fixed

Modified: pkg/R/gsSpending.R
===================================================================
--- pkg/R/gsSpending.R	2009-01-06 00:06:45 UTC (rev 138)
+++ pkg/R/gsSpending.R	2009-03-02 02:33:44 UTC (rev 139)
@@ -309,7 +309,7 @@
         y <- log(p0 / (1 - p0))
         b <- (y[2] - y[1]) / (xv[2] - xv[1])
         a <- y[2] - b * xv[2]
-        x$param <- c(a, b)
+        param <- c(a, b)
     }
     else
     {