[Robast-commits] r288 - in pkg/RobLox: . R man

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

Author: stamats
Date: 2009-04-21 06:13:34 +0200 (Tue, 21 Apr 2009)
New Revision: 288

Modified:
   pkg/RobLox/DESCRIPTION
   pkg/RobLox/R/finiteSampleCorrection.R
   pkg/RobLox/man/0RobLox-package.Rd
Log:
small correction in finiteSampleCorrection ...

Modified: pkg/RobLox/DESCRIPTION
===================================================================
--- pkg/RobLox/DESCRIPTION	2009-04-20 12:58:51 UTC (rev 287)
+++ pkg/RobLox/DESCRIPTION	2009-04-21 04:13:34 UTC (rev 288)
@@ -1,6 +1,6 @@
 Package: RobLox
 Version: 0.7
-Date: 2009-04-18
+Date: 2009-04-21
 Title: Optimally robust influence curves and estimators for location and scale
 Description: Functions for the determination of optimally robust
         influence curves and estimators in case of normal location and/or scale

Modified: pkg/RobLox/R/finiteSampleCorrection.R
===================================================================
--- pkg/RobLox/R/finiteSampleCorrection.R	2009-04-20 12:58:51 UTC (rev 287)
+++ pkg/RobLox/R/finiteSampleCorrection.R	2009-04-21 04:13:34 UTC (rev 288)
@@ -2,7 +2,8 @@
 ## Function for finite-sample correction of the neighborhood radius
 ###############################################################################
 finiteSampleCorrection <- function(r, n, model = "locsc"){
-    if(r >= 1.74) return(r)
+    if(model == "locsc" & r >= 1.74) return(r)
+    if(model %in% c("loc", "sc") & r >= 3.0) return(r)
     if(n == 1) return(Inf)
     if(n == 2) return(Inf)
 

Modified: pkg/RobLox/man/0RobLox-package.Rd
===================================================================
--- pkg/RobLox/man/0RobLox-package.Rd	2009-04-20 12:58:51 UTC (rev 287)
+++ pkg/RobLox/man/0RobLox-package.Rd	2009-04-21 04:13:34 UTC (rev 288)
@@ -13,7 +13,7 @@
 \tabular{ll}{
 Package: \tab RobLox\cr
 Version: \tab 0.7\cr
-Date: \tab 2009-04-18\cr
+Date: \tab 2009-04-21\cr
 Depends: \tab R(>= 2.7.0), stats, distrMod(>= 2.0.1), RobAStBase(>= 0.1.1)\cr
 LazyLoad: \tab yes\cr
 License: \tab LGPL-3\cr