[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<-,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>:
“asymptotic bias”. </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 & Decisions (submitted).
+General Loss Functions. Statistics & 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 @@
“trace of asymptotic covariance for given bias bound”. </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>:
“asymptotic mean square error”. </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<-</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 & 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