[Robast-commits] r478 - in branches/robast-0.9/pkg/RobAStBase: . R man

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

Author: ruckdeschel
Date: 2012-05-23 00:59:49 +0200 (Wed, 23 May 2012)
New Revision: 478

Added:
   branches/robast-0.9/pkg/RobAStBase/R/interpolRisks.R
   branches/robast-0.9/pkg/RobAStBase/man/interpolRisk-class.Rd
Modified:
   branches/robast-0.9/pkg/RobAStBase/NAMESPACE
   branches/robast-0.9/pkg/RobAStBase/R/AllClass.R
Log:
[RobAStBase] Created new interpolRisk-class to be able to use speed up in (new version) of roptest

Modified: branches/robast-0.9/pkg/RobAStBase/NAMESPACE
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/NAMESPACE	2012-05-22 08:49:41 UTC (rev 477)
+++ branches/robast-0.9/pkg/RobAStBase/NAMESPACE	2012-05-22 22:59:49 UTC (rev 478)
@@ -19,6 +19,7 @@
               "BdStWeight", "HampelWeight")
 exportClasses("ALEstimate", "kStepEstimate", "MEstimate")
 exportClasses("cutoff")
+exportClasses("interpolRisk", "OMSRRisk","MBRRisk","RMXRRisk")
 exportClasses("StartClass", "pICList", "OptionalpICList")
 exportMethods("show", 
               "plot")
@@ -67,3 +68,4 @@
 export("RobAStBaseOptions", "getRobAStBaseOption")
 export("cutoff","cutoff.chisq","cutoff.sememp")
 export("outlyingPlotIC", "RobAStBaseMASK")
+export("OMSRRisk","MBRRisk","RMXRRisk")

Modified: branches/robast-0.9/pkg/RobAStBase/R/AllClass.R
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/R/AllClass.R	2012-05-22 08:49:41 UTC (rev 477)
+++ branches/robast-0.9/pkg/RobAStBase/R/AllClass.R	2012-05-22 22:59:49 UTC (rev 478)
@@ -312,3 +312,12 @@
                    prototype = prototype(name = "empirical",
                                          fct = function(data) quantile(data),
                                          cutoff.quantile = 0.95))
+
+
+#################################################
+# new risk classes
+#################################################
+setClass("interpolRisk", contains = c("RiskType", "VIRTUAL"))
+setClass("OMSRRisk", contains = "interpolRisk")
+setClass("RMXRRisk", contains = "interpolRisk")
+setClass("MBRRisk", contains = "interpolRisk")

Added: branches/robast-0.9/pkg/RobAStBase/R/interpolRisks.R
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/R/interpolRisks.R	                        (rev 0)
+++ branches/robast-0.9/pkg/RobAStBase/R/interpolRisks.R	2012-05-22 22:59:49 UTC (rev 478)
@@ -0,0 +1,4 @@
+#### Generating functions for subclasses of interpolRisk
+OMSRRisk <- function() new("OMSRRisk",type=".OMSE")
+MBRRisk <- function()  new("MBRRisk",type=".MBRE")
+RMXRRisk <- function()  new("RMXRRisk",type=".RMXE")
\ No newline at end of file

Added: branches/robast-0.9/pkg/RobAStBase/man/interpolRisk-class.Rd
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/man/interpolRisk-class.Rd	                        (rev 0)
+++ branches/robast-0.9/pkg/RobAStBase/man/interpolRisk-class.Rd	2012-05-22 22:59:49 UTC (rev 478)
@@ -0,0 +1,45 @@
+\name{interpolRisk-class}
+\docType{class}
+\alias{interpolRisk-class}
+\alias{OMSRRisk-class}
+\alias{RMXRRisk-class}
+\alias{MBRRisk-class}
+\alias{OMSRRisk}
+\alias{RMXRRisk}
+\alias{MBRRisk}
+
+\title{Interpolated Risks}
+\description{Class of risks for which algorithms dispatch to speed-up algorithms}
+\section{Objects from the Class}{\code{interpolRisk} is a virtual class: No objects may be created from it.
+the other classes are generated via generating functions.
+}
+\section{Slots}{
+  \describe{
+    \item{\code{type}}{Object of class \code{"character"}:
+      type of risk. (Inherited from \code{RiskType}).}
+  }
+}
+\details{
+The main purpose of classes \code{OMSRRisk}, \code{MBRRisk}, and
+\code{RMXRRisk} is to help to dispatch into speed-up algorithms later
+in function \code{roptest}. In all these risks, we assume
+convex contamination neighborhoods.
+\code{OMSRRisk} stands for optimal MSE-robust estimation (where we assume
+a radius r of \code{0.5}), \code{RMXRRisk} stands for optimal
+optimally RMX-robust estimation and \code{MBRRisk} stands for optimal
+Bias-robust estimation.
+}
+%\references{}
+\author{Peter Ruckdeschel \email{Peter.Ruckdeschel at itwm.fraunhofer.de}}
+\examples{
+new("OMSRRisk")
+OMSRRisk()
+RMXRRisk()
+MBRRisk()
+}
+
+%\note{}
+%\seealso{}
+%\examples{}
+\concept{risk}
+\keyword{classes}