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

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

Author: stamats
Date: 2008-02-20 06:26:04 +0100 (Wed, 20 Feb 2008)
New Revision: 53

Modified:
   pkg/RobLox/R/roblox.R
Log:
changed return value for radius-minimax IC; reporting contamination not radius

Modified: pkg/RobLox/R/roblox.R
===================================================================
--- pkg/RobLox/R/roblox.R	2008-02-20 05:13:44 UTC (rev 52)
+++ pkg/RobLox/R/roblox.R	2008-02-20 05:26:04 UTC (rev 53)
@@ -221,9 +221,9 @@
                 }
             }
             Infos(IC1) <- matrix(c(rep("roblox", 3), 
-                             paste("radius-minimax IC for radius interval [", 
-                               round(rlo, 3), ", ", round(rup, 3), "]", sep = ""),
-                             paste("least favorable radius: ", round(r, 3), sep = ""),
+                             paste("radius-minimax IC for contamination interval [", 
+                               round(eps.lower, 3), ", ", round(eps.upper, 3), "]", sep = ""),
+                             paste("least favorable contamination: ", round(r/sqrtn, 3), sep = ""),
                              paste("maximum MSE-inefficiency: ", round(ineff, 3), sep = "")), 
                              ncol = 2, dimnames = list(NULL, c("method", "message")))
             robEst <- oneStepEstimator(x, IC1, c(mean, sd))
@@ -293,9 +293,9 @@
                     }
                 }
                 Infos(IC1) <- matrix(c(rep("roblox", 3), 
-                             paste("radius-minimax IC for radius interval [", 
-                               round(rlo, 3), ", ", round(rup, 3), "]", sep = ""),
-                             paste("least favorable radius: ", round(r, 3), sep = ""),
+                             paste("radius-minimax IC for contamination interval [", 
+                               round(eps.lower, 3), ", ", round(eps.upper, 3), "]", sep = ""),
+                             paste("least favorable contamination: ", round(r/sqrtn, 3), sep = ""),
                              paste("maximum MSE-inefficiency: ", round(ineff, 3), sep = "")), 
                              ncol = 2, dimnames = list(NULL, c("method", "message")))
                 robEst <- oneStepEstimator(x, IC1, mean)
@@ -371,9 +371,9 @@
                     }
                 }
                 Infos(IC1) <- matrix(c(rep("roblox", 3), 
-                             paste("radius-minimax IC for radius interval [", 
-                               round(rlo, 3), ", ", round(rup, 3), "]", sep = ""),
-                             paste("least favorable radius: ", round(r, 3), sep = ""),
+                             paste("radius-minimax IC for contamination interval [", 
+                               round(eps.lower, 3), ", ", round(eps.upper, 3), "]", sep = ""),
+                             paste("least favorable radius: ", round(r/sqrtn, 3), sep = ""),
                              paste("maximum MSE-inefficiency: ", round(ineff, 3), sep = "")), 
                              ncol = 2, dimnames = list(NULL, c("method", "message")))
                 robEst <- oneStepEstimator(x, IC1, sd)