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

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

Author: stamats
Date: 2009-04-18 11:09:51 +0200 (Sat, 18 Apr 2009)
New Revision: 284

Modified:
   pkg/RobLox/R/roblox.R
Log:
small addition

Modified: pkg/RobLox/R/roblox.R
===================================================================
--- pkg/RobLox/R/roblox.R	2009-04-18 09:06:32 UTC (rev 283)
+++ pkg/RobLox/R/roblox.R	2009-04-18 09:09:51 UTC (rev 284)
@@ -209,6 +209,8 @@
         }
         if(missing(sd)){
             warning("Sample size <= 2! => MAD is used for estimation.")
+            if(length(mean) != 1)
+                stop("mean has length != 1")
             robEst <- mad(x, center = mean, na.rm = TRUE)
             names(robEst) <- "sd"
             Info.matrix <- matrix(c("roblox",