[Distr-commits] r75 - in pkg/distrMod: . R chm man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Mon Feb 18 18:47:20 CET 2008


Author: ruckdeschel
Date: 2008-02-18 18:47:19 +0100 (Mon, 18 Feb 2008)
New Revision: 75

Added:
   pkg/distrMod/chm/asRiskwithBias-class.html
   pkg/distrMod/man/asRiskwithBias-class.Rd
Removed:
   pkg/distrMod/R/semivar.R
Modified:
   pkg/distrMod/NAMESPACE
   pkg/distrMod/R/AllClass.R
   pkg/distrMod/R/AllGeneric.R
   pkg/distrMod/R/RiskType.R
   pkg/distrMod/chm/00Index.html
   pkg/distrMod/chm/asBias-class.html
   pkg/distrMod/chm/asBias.html
   pkg/distrMod/chm/asGRisk-class.html
   pkg/distrMod/chm/asHampel-class.html
   pkg/distrMod/chm/asHampel.html
   pkg/distrMod/chm/asMSE-class.html
   pkg/distrMod/chm/asMSE.html
   pkg/distrMod/chm/asUnOvShoot-class.html
   pkg/distrMod/chm/asUnOvShoot.html
   pkg/distrMod/chm/distrMod.chm
   pkg/distrMod/chm/distrMod.hhp
   pkg/distrMod/chm/distrMod.toc
   pkg/distrMod/chm/fiMSE.html
   pkg/distrMod/man/asBias-class.Rd
   pkg/distrMod/man/asBias.Rd
   pkg/distrMod/man/asGRisk-class.Rd
   pkg/distrMod/man/asHampel-class.Rd
   pkg/distrMod/man/asHampel.Rd
   pkg/distrMod/man/asMSE-class.Rd
   pkg/distrMod/man/asMSE.Rd
   pkg/distrMod/man/asUnOvShoot-class.Rd
   pkg/distrMod/man/asUnOvShoot.Rd
   pkg/distrMod/man/fiMSE.Rd
Log:
included biastype into risk; new class asRiskwithBias (with biastype) as motherclass for asBias, asGRisk, asUnOvShoot; 

Modified: pkg/distrMod/NAMESPACE
===================================================================
--- pkg/distrMod/NAMESPACE	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/NAMESPACE	2008-02-18 17:47:19 UTC (rev 75)
@@ -18,7 +18,7 @@
               "fiRisk", "fiCov", "trFiCov", "fiHampel", "fiMSE", "fiBias",
               "fiUnOvShoot")
 exportClasses("BiasType", "onesidedBias", "asymmetricBias", "symmetricBias")
-exportClasses("asSemivar")
+exportClasses("asSemivar", "asRiskwithBias")
 exportMethods("type", "SymmCenter", "distrSymm",
               "distribution", "props", "props<-", "addProp<-", "main", "main<-",
               "nuisance", "nuisance<-", "trafo", "trafo<-", "modifyParam",
@@ -26,7 +26,7 @@
               "L2deriv", "L2derivSymm", "L2derivDistr", "L2derivDistrSymm",
               "FisherInfo", "checkL2deriv")
 exportMethods("bound", "width")
-exportMethods("nu", "name", "sign", "nu<-", "name<-", "sign<-")
+exportMethods("nu", "name", "sign", "nu<-", "name<-", "sign<-", "biastype", "biastype<-")
 S3method(print, MCEstimator)
 export("PosDefSymmMatrix")
 export("distrModOptions", "getdistrModOption",
@@ -40,4 +40,5 @@
        "LnormScaleFamily", "GammaFamily", "NormLocationScaleFamily")
 export("asCov", "trAsCov", "asHampel", "asBias", "asMSE", "asUnOvShoot", 
        "fiCov", "trFiCov", "fiHampel", "fiMSE", "fiBias", "fiUnOvShoot")
-export(positiveBias, negativeBias, symmetricBias, asymmetricBias, asSemivar)
+export("positiveBias", "negativeBias", "symmetricBias", 
+       "asymmetricBias", "asSemivar")

Modified: pkg/distrMod/R/AllClass.R
===================================================================
--- pkg/distrMod/R/AllClass.R	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/R/AllClass.R	2008-02-18 17:47:19 UTC (rev 75)
@@ -214,8 +214,34 @@
                 return(TRUE) 
             })
 
+
+################################################################################
+## Bias Classes
+################################################################################
+
+### from session 10-01-08 : class Bias type
+setClass("BiasType", representation(name = "character"),
+          contains = "VIRTUAL")
+
+setClass("symmetricBias", prototype = prototype(name = "symmetric bias"),
+          contains = "BiasType")
+
+setClass("onesidedBias", representation(sign = "numeric"),
+          prototype = prototype(name = "positive bias", sign = 1),
+          contains = "BiasType")
+
+setClass("asymmetricBias", 
+          representation(nu = "numeric"), ### weights acc. to paper
+          prototype = prototype(name = "asymmetric bias", nu = c(1,1)),
+          contains = "BiasType")
+
+################################################################################
+## Risk Classes
+################################################################################
+
 ## risks (e.g., risk of estimator)
-setClass("RiskType", representation(type = "character"), contains = "VIRTUAL")
+setClass("RiskType", representation(type = "character"), 
+          contains = "VIRTUAL")
 ## asymptotic risk
 setClass("asRisk", contains = c("RiskType", "VIRTUAL"))
 ## asymptotic covariance
@@ -224,24 +250,33 @@
 ## trace of asymptotic covariance
 setClass("trAsCov", contains = "asRisk", 
             prototype = prototype(type = "trace of asymptotic covariance"))
+
+## asymptotic risk with bias
+
+setClass("asRiskwithBias", representation(biastype = "BiasType"),
+          prototype = prototype(type = "asymptotic risk with bias",
+                             biastype = new("symmetricBias")),
+          contains = c("asRisk"))
+
 ## asymptotic Hampel risk
 setClass("asHampel", representation(bound = "numeric"), 
             prototype = prototype(bound = Inf, 
                              type = "trace of asymptotic covariance for given bias bound"),
-            contains = "asRisk", 
+            contains = "asRiskwithBias", 
             validity = function(object){
                 if(any(object at bound <= 0))
                     stop("'bound' has to be positive")
                 else TRUE
             })
 ## asymptotic bias
-setClass("asBias", contains = "asRisk", 
+setClass("asBias", representation(biastype = "BiasType"),
+            contains = "asRiskwithBias", 
             prototype = prototype(type = "asymptotic bias"))
 
 ## convex asymptotic risk
-setClass("asGRisk", contains = c("asRisk", "VIRTUAL")) 
+setClass("asGRisk", contains = "asRiskwithBias") 
 ## asymptotic mean square error
-setClass("asMSE", contains = "asGRisk", 
+setClass("asMSE", contains = "asGRisk",
             prototype = prototype(type = "asymptotic mean square error"))
 ## asymptotic under-/overshoot probability
 setClass("asUnOvShoot", representation(width = "numeric"), 
@@ -292,27 +327,7 @@
 ## end Matthias' thesis
 ###############################################
 
-setClass("asSemivar", representation(sign = "numeric"), 
+setClass("asSemivar", 
           contains = "asGRisk",
           prototype = prototype(type = "asymptotic Semivariance",
-          sign = 1))
-
-################################################################################
-## Bias Classes
-################################################################################
-
-### from session 10-01-08 : class Bias type
-setClass("BiasType", representation(name = "character"),
-          contains = "VIRTUAL")
-
-setClass("symmetricBias", prototype = prototype(name = "symmetric bias"),
-          contains = "BiasType")
-
-setClass("onesidedBias", representation(sign = "numeric"),
-          prototype = prototype(name = "positive bias", sign = 1),
-          contains = "BiasType")
-
-setClass("asymmetricBias", 
-          representation(nu = "numeric"), ### weights acc. to paper
-          prototype = prototype(name = "asymmetric bias", nu = c(1,1)),
-          contains = "BiasType")
+          biastype =  new("onesidedBias")))

Modified: pkg/distrMod/R/AllGeneric.R
===================================================================
--- pkg/distrMod/R/AllGeneric.R	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/R/AllGeneric.R	2008-02-18 17:47:19 UTC (rev 75)
@@ -93,3 +93,11 @@
 if(!isGeneric("nu<-")){
     setGeneric("nu<-", function(object,value) standardGeneric("nu<-"))
 }
+
+if(!isGeneric("biastype")){
+    setGeneric("biastype", function(object) standardGeneric("biastype"))
+}
+
+if(!isGeneric("biastype<-")){
+    setGeneric("biastype<-", function(object,value) standardGeneric("biastype<-"))
+}

Modified: pkg/distrMod/R/RiskType.R
===================================================================
--- pkg/distrMod/R/RiskType.R	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/R/RiskType.R	2008-02-18 17:47:19 UTC (rev 75)
@@ -8,19 +8,23 @@
 trAsCov <- function(){ new("trAsCov") }
 
 ## generating function
-asHampel <- function(bound = Inf){ new("asHampel", bound = bound) }
+asHampel <- function(bound = Inf, biastype = symmetricBias()){ 
+   new("asHampel", bound = bound, biastype = biastype) }
 
 ## access method
 setMethod("bound", "asHampel", function(object) object at bound)
 
 ## generating function
-asBias <- function(){ new("asBias") }
+asBias <- function(biastype = symmetricBias()){ 
+          new("asBias", biastype = biastype) }
 
 ## generating function
-asMSE <- function(){ new("asMSE") }
+asMSE <- function(biastype = symmetricBias()){ new("asMSE", biastype = biastype) }
 
 ## generating function
-asUnOvShoot <- function(width = 1.960){ new("asUnOvShoot", width = width) }
+asUnOvShoot <- function(width = 1.960, biastype = symmetricBias())
+              { new("asUnOvShoot", width = width, 
+                     biastype = biastype) }
 
 ## access method
 setMethod("width", "asUnOvShoot", function(object) object at width)
@@ -48,3 +52,28 @@
 
 ## access method
 setMethod("width", "fiUnOvShoot", function(object) object at width)
+
+
+## access method
+setMethod("biastype", "asRiskwithBias", function(object) object at biastype)
+## replacement method
+setReplaceMethod("biastype", "asRiskwithBias", function(object,value) {
+                  object at biastype <- value; object})
+
+###############################################################################
+# Semivariance Risk
+###############################################################################
+
+## generating function
+asSemivar <- function(sign = 1){ 
+       new("asSemivar", biastype = new("onesidedBias", name = 
+       ifelse(sign>0, "positive Bias", "negative Bias"), sign = sign)) }
+
+setMethod("sign", "asSemivar", function(x) x at biastype@sign)
+setReplaceMethod("sign", "asSemivar", function(object, value)
+                     {if (abs(trunc(value))!=1) stop("Left value has to be +-1")
+                      sign(biastype(object)) <- value; 
+                      biastype(object)@name <- ifelse(sign>0, "positive Bias", 
+                                                      "negative Bias")
+                      object})
+

Deleted: pkg/distrMod/R/semivar.R
===================================================================
--- pkg/distrMod/R/semivar.R	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/R/semivar.R	2008-02-18 17:47:19 UTC (rev 75)
@@ -1,12 +0,0 @@
-###############################################################################
-# Semivariance Risk
-###############################################################################
-
-## generating function
-asSemivar <- function(sign = 1){ new("asSemivar", sign = sign) }
-
-setMethod("sign", "asSemivar", function(x) x at sign)
-setReplaceMethod("sign", "asSemivar", function(object, value)
-                     {if (abs(trunc(value))!=1) stop("Left value has to be +-1")
-                      object at sign <- value; object})
-

Modified: pkg/distrMod/chm/00Index.html
===================================================================
--- pkg/distrMod/chm/00Index.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/00Index.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -66,6 +66,8 @@
 <td>Asymptotic mean square error</td></tr>
 <tr><td width="25%"><a href="asRisk-class.html">asRisk-class</a></td>
 <td>Aymptotic risk</td></tr>
+<tr><td width="25%"><a href="asRiskwithBias-class.html">asRiskwithBias-class</a></td>
+<td>Aymptotic risk</td></tr>
 <tr><td width="25%"><a href="asSemivar.html">asSemivar</a></td>
 <td>Generating function for asSemivar-class</td></tr>
 <tr><td width="25%"><a href="asSemivar-class.html">asSemivar-class</a></td>
@@ -83,8 +85,14 @@
 <h2><a name="B">-- B --</a></h2>
 
 <table width="100%">
+<tr><td width="25%"><a href="asRiskwithBias-class.html">biastype</a></td>
+<td>Aymptotic risk</td></tr>
+<tr><td width="25%"><a href="asRiskwithBias-class.html">biastype,asRiskwithBias-method</a></td>
+<td>Aymptotic risk</td></tr>
 <tr><td width="25%"><a href="BiasType-class.html">BiasType-class</a></td>
 <td>Bias Type</td></tr>
+<tr><td width="25%"><a href="asRiskwithBias-class.html">biastype&lt;-,asRiskwithBias-method</a></td>
+<td>Aymptotic risk</td></tr>
 <tr><td width="25%"><a href="BinomFamily.html">BinomFamily</a></td>
 <td>Generating function for Binomial families</td></tr>
 <tr><td width="25%"><a href="asHampel-class.html">bound</a></td>

Modified: pkg/distrMod/chm/asBias-class.html
===================================================================
--- pkg/distrMod/chm/asBias-class.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asBias-class.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -35,12 +35,15 @@
 <dl>
 <dt><code>type</code>:</dt><dd>Object of class <code>"character"</code>:
 &ldquo;asymptotic bias&rdquo;. </dd>
+<dt><code>biastype</code>:</dt><dd>Object of class <code>"BiasType"</code>: 
+symmetric, one-sided or asymmetric </dd>
 </dl>
 
 <h3>Extends</h3>
 
 <p>
-Class <code>"asRisk"</code>, directly.<br>
+Class <code>"asRiskwithBias"</code>, directly.<br>
+Class <code>"asRisk"</code>, by class <code>"asRiskwithBias"</code><br>
 Class <code>"RiskType"</code>, by class <code>"asRisk"</code>.
 </p>
 

Modified: pkg/distrMod/chm/asBias.html
===================================================================
--- pkg/distrMod/chm/asBias.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asBias.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -22,9 +22,17 @@
 
 <h3>Usage</h3>
 
-<pre>asBias()</pre>
+<pre>asBias(biastype = symmetricBias())</pre>
 
 
+<h3>Arguments</h3>
+
+<table summary="R argblock">
+<tr valign="top"><td><code>biastype</code></td>
+<td>
+a bias type of class <code>BiasType</code></td></tr>
+</table>
+
 <h3>Value</h3>
 
 <p>
@@ -61,7 +69,7 @@
 asBias()
 
 ## The function is currently defined as
-function(){ new("asBias") }
+function(biastype = symmetricBias()){ new("asBias",biastype = biastype) }
 </pre>
 
 

Modified: pkg/distrMod/chm/asGRisk-class.html
===================================================================
--- pkg/distrMod/chm/asGRisk-class.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asGRisk-class.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -31,6 +31,8 @@
 
 <dl>
 <dt><code>type</code>:</dt><dd>Object of class <code>"character"</code>. </dd>
+<dt><code>biastype</code>:</dt><dd>Object of class <code>"BiasType"</code>: 
+symmetric, one-sided or asymmetric </dd>
 </dl>
 
 <h3>Extends</h3>
@@ -59,7 +61,7 @@
 
 <p>
 Ruckdeschel, P. and Rieder, H. (2004) Optimal Influence Curves for
-General Loss Functions. Statistics &amp; Decisions (submitted).
+General Loss Functions. Statistics &amp; Decisions <EM>22</EM>, 201-223.
 </p>
 
 

Modified: pkg/distrMod/chm/asHampel-class.html
===================================================================
--- pkg/distrMod/chm/asHampel-class.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asHampel-class.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -41,12 +41,15 @@
 &ldquo;trace of asymptotic covariance for given bias bound&rdquo;. </dd>
 <dt><code>bound</code>:</dt><dd>Object of class <code>"numeric"</code>: 
 given positive bias bound. </dd>
+<dt><code>biastype</code>:</dt><dd>Object of class <code>"BiasType"</code>: 
+symmetric, one-sided or asymmetric </dd>
 </dl>
 
 <h3>Extends</h3>
 
 <p>
-Class <code>"asRisk"</code>, directly.<br>
+Class <code>"asRiskwithBias"</code>, directly.<br>
+Class <code>"asRisk"</code>, by class <code>"asRiskwithBias"</code>.
 Class <code>"RiskType"</code>, by class <code>"asRisk"</code>.
 </p>
 

Modified: pkg/distrMod/chm/asHampel.html
===================================================================
--- pkg/distrMod/chm/asHampel.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asHampel.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -22,7 +22,7 @@
 
 <h3>Usage</h3>
 
-<pre>asHampel(bound = Inf)</pre>
+<pre>asHampel(bound = Inf, biastype = symmetricBias())</pre>
 
 
 <h3>Arguments</h3>
@@ -31,6 +31,9 @@
 <tr valign="top"><td><code>bound</code></td>
 <td>
 positive real: bias bound </td></tr>
+<tr valign="top"><td><code>biastype</code></td>
+<td>
+a bias type of class <code>BiasType</code></td></tr>
 </table>
 
 <h3>Value</h3>
@@ -73,7 +76,8 @@
 asHampel()
 
 ## The function is currently defined as
-function(bound = Inf){ new("asHampel", bound = bound) }
+function(bound = Inf, biastype = symmetricBias()){ 
+    new("asHampel", bound = bound, biastype = biastype) }
 </pre>
 
 

Modified: pkg/distrMod/chm/asMSE-class.html
===================================================================
--- pkg/distrMod/chm/asMSE-class.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asMSE-class.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -34,13 +34,16 @@
 <dl>
 <dt><code>type</code>:</dt><dd>Object of class <code>"character"</code>: 
 &ldquo;asymptotic mean square error&rdquo;. </dd>
+<dt><code>biastype</code>:</dt><dd>Object of class <code>"BiasType"</code>: 
+symmetric, one-sided or asymmetric </dd>
 </dl>
 
 <h3>Extends</h3>
 
 <p>
 Class <code>"asGRisk"</code>, directly.<br>
-Class <code>"asRisk"</code>, by class <code>"asGRisk"</code>.<br>
+Class <code>"asRiskwithBias"</code>, by class <code>"asGRisk"</code>.<br>
+Class <code>"asRisk"</code>, by class <code>"asRiskwithBias"</code>.<br>
 Class <code>"RiskType"</code>, by class <code>"asGRisk"</code>.
 </p>
 

Modified: pkg/distrMod/chm/asMSE.html
===================================================================
--- pkg/distrMod/chm/asMSE.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asMSE.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -22,9 +22,17 @@
 
 <h3>Usage</h3>
 
-<pre>asMSE()</pre>
+<pre>asMSE(biastype = symmetricBias())</pre>
 
 
+<h3>Arguments</h3>
+
+<table summary="R argblock">
+<tr valign="top"><td><code>biastype</code></td>
+<td>
+a bias type of class <code>BiasType</code></td></tr>
+</table>
+
 <h3>Value</h3>
 
 <p>
@@ -61,7 +69,7 @@
 asMSE()
 
 ## The function is currently defined as
-function(){ new("asMSE") }
+function(biastype = symmetricBias()){ new("asMSE", biastype = biastype) }
 </pre>
 
 

Added: pkg/distrMod/chm/asRiskwithBias-class.html
===================================================================
--- pkg/distrMod/chm/asRiskwithBias-class.html	                        (rev 0)
+++ pkg/distrMod/chm/asRiskwithBias-class.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -0,0 +1,94 @@
+<html><head><title>Aymptotic risk</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<link rel="stylesheet" type="text/css" href="Rchm.css">
+</head>
+<body>
+
+<table width="100%"><tr><td>asRiskwithBias-class(distrMod)</td><td align="right">R Documentation</td></tr></table><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
+<param name="keyword" value="R:   asRiskwithBias-class">
+<param name="keyword" value="R:   biastype,asRiskwithBias-method">
+<param name="keyword" value="R:   biastype<-,asRiskwithBias-method">
+<param name="keyword" value="R:   biastype">
+<param name="keyword" value="R:   biastype<-">
+<param name="keyword" value=" Aymptotic risk">
+</object>
+
+
+<h2>Aymptotic risk</h2>
+
+
+<h3>Description</h3>
+
+<p>
+Class of asymptotic risks.
+</p>
+
+
+<h3>Objects from the Class</h3>
+
+<p>
+A ``virtual'' Class (although it does not contain "VIRTUAL"): No objects may be created from it.
+</p>
+
+
+<h3>Slots</h3>
+
+<dl>
+<dt><code>type</code>:</dt><dd>Object of class <code>"character"</code>.</dd>
+<dt><code>biastype</code>:</dt><dd>Object of class <code>"BiasType"</code>.</dd>
+</dl>
+
+<h3>Extends</h3>
+
+<p>
+Class <code>"RiskType"</code>, directly.
+</p>
+
+
+<h3>Methods</h3>
+
+<dl>
+<dt>biastype</dt><dd><code>signature(object = "asRiskwithBias")</code>: 
+accessor function for slot <code>biastype</code>. </dd>
+<dt>biastype&lt;-</dt><dd><code>signature(object = "asRiskwithBias", value = "BiasType")</code>: 
+replacement function for slot <code>biastype</code>. </dd>
+</dl>
+
+<h3>Author(s)</h3>
+
+<p>
+Matthias Kohl <a href="mailto:Matthias.Kohl at stamats.de">Matthias.Kohl at stamats.de</a>,
+Peter Ruckdeschel <a href="mailto:Peter.Ruckdeschel at uni-bayreuth.de">Peter.Ruckdeschel at uni-bayreuth.de</a>
+</p>
+
+
+<h3>References</h3>
+
+<p>
+Rieder, H. (1994) <EM>Robust Asymptotic Statistics</EM>. New York: Springer.
+</p>
+<p>
+Ruckdeschel, P. and Rieder, H. (2004) Optimal Influence Curves for
+General Loss Functions. Statistics &amp; Decisions <EM>22</EM>, 201-223.
+</p>
+<p>
+Ruckdeschel, P. (2005) Optimally One-Sided Bounded Influence Curves.
+Mathematical Methods in Statistics <EM>14</EM>(1), 105-131.
+</p>
+<p>
+Kohl, M. (2005) <EM>Numerical Contributions to the Asymptotic Theory of Robustness</EM>. 
+Bayreuth: Dissertation.
+</p>
+
+
+<h3>See Also</h3>
+
+<p>
+<code><a href="asRisk-class.html">asRisk-class</a></code>
+</p>
+
+
+
+<hr><div align="center">[Package <em>distrMod</em> version 2.0 <a href="00Index.html">Index]</a></div>
+
+</body></html>

Modified: pkg/distrMod/chm/asUnOvShoot-class.html
===================================================================
--- pkg/distrMod/chm/asUnOvShoot-class.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asUnOvShoot-class.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -39,13 +39,16 @@
 dQuote{asymptotic under-/overshoot probability}. </dd>
 <dt><code>width</code>:</dt><dd>Object of class <code>"numeric"</code>: 
 half the width of given confidence interval. </dd>
+<dt><code>biastype</code>:</dt><dd>Object of class <code>"BiasType"</code>: 
+symmetric, one-sided or asymmetric </dd>
 </dl>
 
 <h3>Extends</h3>
 
 <p>
 Class <code>"asGRisk"</code>, directly.<br>
-Class <code>"asRisk"</code>, by class <code>"asGRisk"</code>.<br>
+Class <code>"asRiskwithBias"</code>, by class <code>"asGRisk"</code>.<br>
+Class <code>"asRisk"</code>, by class <code>"asRiskwithBias"</code>.<br>
 Class <code>"RiskType"</code>, by class <code>"asGRisk"</code>.
 </p>
 

Modified: pkg/distrMod/chm/asUnOvShoot.html
===================================================================
--- pkg/distrMod/chm/asUnOvShoot.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/asUnOvShoot.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -22,7 +22,7 @@
 
 <h3>Usage</h3>
 
-<pre>asUnOvShoot(width = 1.960)</pre>
+<pre>asUnOvShoot(width = 1.960, biastype = symmetricBias())</pre>
 
 
 <h3>Arguments</h3>
@@ -31,6 +31,9 @@
 <tr valign="top"><td><code>width</code></td>
 <td>
 positive real: half the width of given confidence interval. </td></tr>
+<tr valign="top"><td><code>biastype</code></td>
+<td>
+a bias type of class <code>BiasType</code></td></tr>
 </table>
 
 <h3>Value</h3>
@@ -69,7 +72,8 @@
 asUnOvShoot()
 
 ## The function is currently defined as
-function(width = 1.960){ new("asUnOvShoot", width = width) }
+function(width = 1.960, biastype = symmetricBias()){ 
+     new("asUnOvShoot", width = width, biastype = biastype) }
 </pre>
 
 

Modified: pkg/distrMod/chm/distrMod.chm
===================================================================
(Binary files differ)

Modified: pkg/distrMod/chm/distrMod.hhp
===================================================================
--- pkg/distrMod/chm/distrMod.hhp	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/distrMod.hhp	2008-02-18 17:47:19 UTC (rev 75)
@@ -66,6 +66,7 @@
 asMSE-class.html
 asMSE.html
 asRisk-class.html
+asRiskwithBias-class.html
 asSemivar-class.html
 asSemivar.html
 asUnOvShoot-class.html

Modified: pkg/distrMod/chm/distrMod.toc
===================================================================
--- pkg/distrMod/chm/distrMod.toc	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/distrMod.toc	2008-02-18 17:47:19 UTC (rev 75)
@@ -62,6 +62,10 @@
 <param name="Local" value="asRisk-class.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
+<param name="Name" value="asRiskwithBias-class">
+<param name="Local" value="asRiskwithBias-class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="asSemivar">
 <param name="Local" value="asSemivar.html">
 </OBJECT>
@@ -86,10 +90,26 @@
 <param name="Local" value="asymmetricBias-class.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
+<param name="Name" value="biastype">
+<param name="Local" value="asRiskwithBias-class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="biastype,asRiskwithBias-method">
+<param name="Local" value="asRiskwithBias-class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="BiasType-class">
 <param name="Local" value="BiasType-class.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
+<param name="Name" value="biastype<-">
+<param name="Local" value="asRiskwithBias-class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="biastype<-,asRiskwithBias-method">
+<param name="Local" value="asRiskwithBias-class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="BinomFamily">
 <param name="Local" value="BinomFamily.html">
 </OBJECT>
@@ -688,7 +708,7 @@
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Aymptotic risk">
-<param name="Local" value="asRisk-class.html">
+<param name="Local" value="asRiskwithBias-class.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Bias Type">

Modified: pkg/distrMod/chm/fiMSE.html
===================================================================
--- pkg/distrMod/chm/fiMSE.html	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/chm/fiMSE.html	2008-02-18 17:47:19 UTC (rev 75)
@@ -22,7 +22,7 @@
 
 <h3>Usage</h3>
 
-<pre>asMSE()</pre>
+<pre>fiMSE()</pre>
 
 
 <h3>Value</h3>

Modified: pkg/distrMod/man/asBias-class.Rd
===================================================================
--- pkg/distrMod/man/asBias-class.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asBias-class.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -14,10 +14,13 @@
   \describe{
     \item{\code{type}:}{Object of class \code{"character"}:
       \dQuote{asymptotic bias}. }
+    \item{\code{biastype}:}{Object of class \code{"BiasType"}: 
+      symmetric, one-sided or asymmetric }
   }
 }
 \section{Extends}{
-Class \code{"asRisk"}, directly.\cr
+Class \code{"asRiskwithBias"}, directly.\cr
+Class \code{"asRisk"}, by class \code{"asRiskwithBias"}\cr
 Class \code{"RiskType"}, by class \code{"asRisk"}.
 }
 %\section{Methods}{}

Modified: pkg/distrMod/man/asBias.Rd
===================================================================
--- pkg/distrMod/man/asBias.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asBias.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -5,7 +5,11 @@
 \description{
   Generates an object of class \code{"asBias"}.
 }
-\usage{asBias()}
+\usage{asBias(biastype = symmetricBias())}
+\arguments{
+  \item{biastype}{ a bias type of class \code{BiasType}}
+}
+
 %\details{}
 \value{Object of class \code{"asBias"}}
 \references{
@@ -21,7 +25,7 @@
 asBias()
 
 ## The function is currently defined as
-function(){ new("asBias") }
+function(biastype = symmetricBias()){ new("asBias",biastype = biastype) }
 }
 \concept{asymptotic bias}
 \concept{risk}

Modified: pkg/distrMod/man/asGRisk-class.Rd
===================================================================
--- pkg/distrMod/man/asGRisk-class.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asGRisk-class.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -8,6 +8,8 @@
 \section{Slots}{
   \describe{
     \item{\code{type}:}{Object of class \code{"character"}. }
+    \item{\code{biastype}:}{Object of class \code{"BiasType"}: 
+      symmetric, one-sided or asymmetric }
   }
 }
 \section{Extends}{
@@ -19,7 +21,7 @@
 }
 \references{
   Ruckdeschel, P. and Rieder, H. (2004) Optimal Influence Curves for
-  General Loss Functions. Statistics & Decisions (submitted).
+  General Loss Functions. Statistics & Decisions \emph{22}, 201-223.
 }
 \author{Matthias Kohl \email{Matthias.Kohl at stamats.de}}
 %\note{}

Modified: pkg/distrMod/man/asHampel-class.Rd
===================================================================
--- pkg/distrMod/man/asHampel-class.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asHampel-class.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -20,10 +20,13 @@
       \dQuote{trace of asymptotic covariance for given bias bound}. }
     \item{\code{bound}:}{Object of class \code{"numeric"}: 
       given positive bias bound. }
+    \item{\code{biastype}:}{Object of class \code{"BiasType"}: 
+      symmetric, one-sided or asymmetric }
   }
 }
 \section{Extends}{
-Class \code{"asRisk"}, directly.\cr
+Class \code{"asRiskwithBias"}, directly.\cr
+Class \code{"asRisk"}, by class \code{"asRiskwithBias"}.
 Class \code{"RiskType"}, by class \code{"asRisk"}.
 }
 \section{Methods}{

Modified: pkg/distrMod/man/asHampel.Rd
===================================================================
--- pkg/distrMod/man/asHampel.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asHampel.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -5,9 +5,10 @@
 \description{
   Generates an object of class \code{"asHampel"}.
 }
-\usage{asHampel(bound = Inf)}
+\usage{asHampel(bound = Inf, biastype = symmetricBias())}
 \arguments{
   \item{bound}{ positive real: bias bound }
+  \item{biastype}{ a bias type of class \code{BiasType}}
 }
 %\details{}
 \value{Object of class \code{asHampel}}
@@ -27,7 +28,8 @@
 asHampel()
 
 ## The function is currently defined as
-function(bound = Inf){ new("asHampel", bound = bound) }
+function(bound = Inf, biastype = symmetricBias()){ 
+    new("asHampel", bound = bound, biastype = biastype) }
 }
 \concept{Hampel risk}
 \concept{risk}

Modified: pkg/distrMod/man/asMSE-class.Rd
===================================================================
--- pkg/distrMod/man/asMSE-class.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asMSE-class.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -13,11 +13,14 @@
   \describe{
     \item{\code{type}:}{Object of class \code{"character"}: 
       \dQuote{asymptotic mean square error}. }
+    \item{\code{biastype}:}{Object of class \code{"BiasType"}: 
+      symmetric, one-sided or asymmetric }
   }
 }
 \section{Extends}{
 Class \code{"asGRisk"}, directly.\cr
-Class \code{"asRisk"}, by class \code{"asGRisk"}.\cr
+Class \code{"asRiskwithBias"}, by class \code{"asGRisk"}.\cr
+Class \code{"asRisk"}, by class \code{"asRiskwithBias"}.\cr
 Class \code{"RiskType"}, by class \code{"asGRisk"}.
 }
 \section{Methods}{

Modified: pkg/distrMod/man/asMSE.Rd
===================================================================
--- pkg/distrMod/man/asMSE.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asMSE.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -5,7 +5,11 @@
 \description{
   Generates an object of class \code{"asMSE"}.
 }
-\usage{asMSE()}
+\usage{asMSE(biastype = symmetricBias())}
+\arguments{
+  \item{biastype}{a bias type of class \code{BiasType}}
+}
+
 %\details{}
 \value{Object of class \code{"asMSE"}}
 \references{ 
@@ -21,7 +25,7 @@
 asMSE()
 
 ## The function is currently defined as
-function(){ new("asMSE") }
+function(biastype = symmetricBias()){ new("asMSE", biastype = biastype) }
 }
 \concept{asymptotic mean square error}
 \concept{risk}

Added: pkg/distrMod/man/asRiskwithBias-class.Rd
===================================================================
--- pkg/distrMod/man/asRiskwithBias-class.Rd	                        (rev 0)
+++ pkg/distrMod/man/asRiskwithBias-class.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -0,0 +1,48 @@
+\name{asRiskwithBias-class}
+\docType{class}
+\alias{asRiskwithBias-class}
+\alias{biastype,asRiskwithBias-method}
+\alias{biastype<-,asRiskwithBias-method}
+\alias{biastype}
+\alias{biastype<-}
+
+\title{Aymptotic risk}
+\description{Class of asymptotic risks.}
+\section{Objects from the Class}{A ``virtual'' Class (although it does not contain "VIRTUAL"): No objects may be created from it.}
+\section{Slots}{
+  \describe{
+    \item{\code{type}:}{Object of class \code{"character"}.}
+    \item{\code{biastype}:}{Object of class \code{"BiasType"}.}
+  }
+}
+\section{Extends}{
+Class \code{"RiskType"}, directly.
+}
+\section{Methods}{
+  \describe{
+    \item{biastype}{\code{signature(object = "asRiskwithBias")}: 
+      accessor function for slot \code{biastype}. }
+    \item{biastype<-}{\code{signature(object = "asRiskwithBias", value = "BiasType")}: 
+      replacement function for slot \code{biastype}. }
+        }
+}
+\references{
+  Rieder, H. (1994) \emph{Robust Asymptotic Statistics}. New York: Springer.
+
+  Ruckdeschel, P. and Rieder, H. (2004) Optimal Influence Curves for
+  General Loss Functions. Statistics & Decisions \emph{22}, 201-223.
+
+  Ruckdeschel, P. (2005) Optimally One-Sided Bounded Influence Curves.
+  Mathematical Methods in Statistics \emph{14}(1), 105-131.
+
+  Kohl, M. (2005) \emph{Numerical Contributions to the Asymptotic Theory of Robustness}. 
+  Bayreuth: Dissertation.
+}
+\author{Matthias Kohl \email{Matthias.Kohl at stamats.de},
+Peter Ruckdeschel \email{Peter.Ruckdeschel at uni-bayreuth.de}}
+%\note{}
+\seealso{\code{\link{asRisk-class}}}
+%\examples{}
+\concept{asymptotic risk}
+\concept{risk}
+\keyword{classes}

Modified: pkg/distrMod/man/asUnOvShoot-class.Rd
===================================================================
--- pkg/distrMod/man/asUnOvShoot-class.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asUnOvShoot-class.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -18,11 +18,14 @@
       dQuote{asymptotic under-/overshoot probability}. }
     \item{\code{width}:}{Object of class \code{"numeric"}: 
       half the width of given confidence interval. }
+    \item{\code{biastype}:}{Object of class \code{"BiasType"}: 
+      symmetric, one-sided or asymmetric }
   }
 }
 \section{Extends}{
 Class \code{"asGRisk"}, directly.\cr
-Class \code{"asRisk"}, by class \code{"asGRisk"}.\cr
+Class \code{"asRiskwithBias"}, by class \code{"asGRisk"}.\cr
+Class \code{"asRisk"}, by class \code{"asRiskwithBias"}.\cr
 Class \code{"RiskType"}, by class \code{"asGRisk"}.
 }
 \section{Methods}{

Modified: pkg/distrMod/man/asUnOvShoot.Rd
===================================================================
--- pkg/distrMod/man/asUnOvShoot.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/asUnOvShoot.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -5,9 +5,10 @@
 \description{
   Generates an object of class \code{"asUnOvShoot"}.
 }
-\usage{asUnOvShoot(width = 1.960)}
+\usage{asUnOvShoot(width = 1.960, biastype = symmetricBias())}
 \arguments{
   \item{width}{ positive real: half the width of given confidence interval. }
+  \item{biastype}{ a bias type of class \code{BiasType}}
 }
 %\details{}
 \value{Object of class \code{"asUnOvShoot"}}
@@ -24,7 +25,8 @@
 asUnOvShoot()
 
 ## The function is currently defined as
-function(width = 1.960){ new("asUnOvShoot", width = width) }
+function(width = 1.960, biastype = symmetricBias()){ 
+     new("asUnOvShoot", width = width, biastype = biastype) }
 }
 \concept{asymptotic risk}
 \concept{risk}

Modified: pkg/distrMod/man/fiMSE.Rd
===================================================================
--- pkg/distrMod/man/fiMSE.Rd	2008-02-16 02:26:05 UTC (rev 74)
+++ pkg/distrMod/man/fiMSE.Rd	2008-02-18 17:47:19 UTC (rev 75)
@@ -5,7 +5,7 @@
 \description{
   Generates an object of class \code{"fiMSE"}.
 }
-\usage{asMSE()}
+\usage{fiMSE()}
 %\details{}
 \value{Object of class \code{"fiMSE"}}
 \references{ 



More information about the Distr-commits mailing list