[Robast-commits] r137 - in branches/robast-0.6/pkg/RobLox: R man

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

Author: stamats
Date: 2008-08-01 06:57:30 +0200 (Fri, 01 Aug 2008)
New Revision: 137

Modified:
   branches/robast-0.6/pkg/RobLox/R/roblox.R
   branches/robast-0.6/pkg/RobLox/man/roblox.Rd
Log:
minor changes

Modified: branches/robast-0.6/pkg/RobLox/R/roblox.R
===================================================================
--- branches/robast-0.6/pkg/RobLox/R/roblox.R	2008-08-01 03:57:04 UTC (rev 136)
+++ branches/robast-0.6/pkg/RobLox/R/roblox.R	2008-08-01 04:57:30 UTC (rev 137)
@@ -204,13 +204,14 @@
         if((eps < 0) || (eps > 0.5))
             stop("'eps' has to be in (0, 0.5]")
     }
+    if(!is.integer(k))
+        k <- as.integer(k)
     if(k < 1){
-      stop("'k' has to be some positive integer value")
+        stop("'k' has to be some positive integer value")
     }
     if(length(k) != 1){
-      stop("'k' has to be of length 1")
+        stop("'k' has to be of length 1")
     }
-    k <- as.integer(k)
 
     if(missing(mean) && missing(sd)){
         if(missing(initial.est)){

Modified: branches/robast-0.6/pkg/RobLox/man/roblox.Rd
===================================================================
--- branches/robast-0.6/pkg/RobLox/man/roblox.Rd	2008-08-01 03:57:04 UTC (rev 136)
+++ branches/robast-0.6/pkg/RobLox/man/roblox.Rd	2008-08-01 04:57:30 UTC (rev 137)
@@ -53,7 +53,7 @@
   respectively.
 
   If \code{eps} is missing, the radius-minimax estimator in sense of 
-  Rieder et al. (2001), respectively Section 2.2 of Kohl (2005) is returned.
+  Rieder et al. (2001, 2008), respectively Section 2.2 of Kohl (2005) is returned.
 }
 \value{Object of class \code{"kStepEstimate"}. }
 \references{
@@ -75,7 +75,8 @@
 %\note{}
 \seealso{\code{\link[RobAStBase]{ContIC-class}}, \code{\link{rlOptIC}}, 
          \code{\link{rsOptIC}}, \code{\link{rlsOptIC.AL}},
-         \code{\link[RobAStBase]{kStepEstimate-class}} }
+         \code{\link[RobAStBase]{kStepEstimate-class}},
+         \code{\link[ROptEst]{roptest}} }
 \examples{
 ind <- rbinom(100, size=1, prob=0.05) 
 x <- rnorm(100, mean=ind*3, sd=(1-ind) + ind*9)