[Robast-commits] r65 - in pkg/RobLox: R inst/tests

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

Author: stamats
Date: 2008-02-21 11:45:17 +0100 (Thu, 21 Feb 2008)
New Revision: 65

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

Modified: pkg/RobLox/R/roblox.R
===================================================================
--- pkg/RobLox/R/roblox.R	2008-02-21 09:28:47 UTC (rev 64)
+++ pkg/RobLox/R/roblox.R	2008-02-21 10:45:17 UTC (rev 65)
@@ -91,7 +91,7 @@
     return(effup-efflo)
 }
 .onestep.loc <- function(x, initial.est, A, b, sd){
-    u <- A*(x-initial.est)/sd
+    u <- A*(x-initial.est)/sd^2
     IC <- mean(u*pmin(1, b/abs(u)), na.rm = TRUE)
     return(initial.est + IC)
 }

Modified: pkg/RobLox/inst/tests/tests.R
===================================================================
--- pkg/RobLox/inst/tests/tests.R	2008-02-21 09:28:47 UTC (rev 64)
+++ pkg/RobLox/inst/tests/tests.R	2008-02-21 10:45:17 UTC (rev 65)
@@ -5,7 +5,7 @@
 library(RobLox)
 
 ## sample
-x <- rnorm(10000, mean = -2, sd = 3)
+x <- rnorm(10000, mean = -2, sd = 300)
 
 ## location and scale, radius unknown
 res1 <- roblox(x, returnIC = TRUE)