[Robast-commits] r74 - pkg/RobLox/R

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

Author: stamats
Date: 2008-02-26 14:38:57 +0100 (Tue, 26 Feb 2008)
New Revision: 74

Modified:
   pkg/RobLox/R/roblox.R
Log:
corrected small bug

Modified: pkg/RobLox/R/roblox.R
===================================================================
--- pkg/RobLox/R/roblox.R	2008-02-26 13:09:16 UTC (rev 73)
+++ pkg/RobLox/R/roblox.R	2008-02-26 13:38:57 UTC (rev 74)
@@ -215,7 +215,7 @@
               stop("'initial.est' needs to be a numeric vector of length 2 or missing")
             mean <- initial.est[1]
             sd <- initial.est[2]
-            if(initial.est <= 0)
+            if(sd <= 0)
                 stop("initial estimate for scale <= 0 which is no valid scale estimate")
         }