[Robast-commits] r361 - in branches/robast-0.7/pkg: ROptEst/chm RobAStBase RobAStBase/R RobAStBase/chm RobAStBase/inst RobAStBase/man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Aug 31 21:53:18 CEST 2009
Author: ruckdeschel
Date: 2009-08-31 21:53:18 +0200 (Mon, 31 Aug 2009)
New Revision: 361
Added:
branches/robast-0.7/pkg/RobAStBase/R/kStepEstimate.R
branches/robast-0.7/pkg/RobAStBase/R/masked.R
branches/robast-0.7/pkg/RobAStBase/inst/MASKING
branches/robast-0.7/pkg/RobAStBase/man/RobAStBaseMASK.Rd
branches/robast-0.7/pkg/RobAStBase/man/masked-methods.Rd
Modified:
branches/robast-0.7/pkg/ROptEst/chm/radiusMinimaxIC.html
branches/robast-0.7/pkg/RobAStBase/NAMESPACE
branches/robast-0.7/pkg/RobAStBase/R/AllClass.R
branches/robast-0.7/pkg/RobAStBase/R/AllGeneric.R
branches/robast-0.7/pkg/RobAStBase/R/AllShow.R
branches/robast-0.7/pkg/RobAStBase/R/ContIC.R
branches/robast-0.7/pkg/RobAStBase/R/TotalVarIC.R
branches/robast-0.7/pkg/RobAStBase/R/Weights.R
branches/robast-0.7/pkg/RobAStBase/R/kStepEstimator.R
branches/robast-0.7/pkg/RobAStBase/chm/00Index.html
branches/robast-0.7/pkg/RobAStBase/chm/BoundedWeight-class.html
branches/robast-0.7/pkg/RobAStBase/chm/ContIC-class.html
branches/robast-0.7/pkg/RobAStBase/chm/RobAStBase.chm
branches/robast-0.7/pkg/RobAStBase/chm/RobAStBase.toc
branches/robast-0.7/pkg/RobAStBase/chm/TotalVarIC-class.html
branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimate-class.html
branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimator.html
branches/robast-0.7/pkg/RobAStBase/man/BoundedWeight-class.Rd
branches/robast-0.7/pkg/RobAStBase/man/ContIC-class.Rd
branches/robast-0.7/pkg/RobAStBase/man/OptionalInfluenceCurve-Class.Rd
branches/robast-0.7/pkg/RobAStBase/man/TotalVarIC-class.Rd
branches/robast-0.7/pkg/RobAStBase/man/kStepEstimate-class.Rd
branches/robast-0.7/pkg/RobAStBase/man/kStepEstimator.Rd
Log:
RobAstBase::
+.onAttach now uses startupmessages
+.RobAStBaseMASK for masked methods
+clip and start obtain signatures acc. to graphics/stats methods
+show methods for [Optional]pICList
+new file kStepEstimate.R (forgot to upload so far)
+minor typo in kStepEstimator
+S4 methods for masked functions in masked.R
Modified: branches/robast-0.7/pkg/ROptEst/chm/radiusMinimaxIC.html
===================================================================
--- branches/robast-0.7/pkg/ROptEst/chm/radiusMinimaxIC.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/ROptEst/chm/radiusMinimaxIC.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -29,8 +29,8 @@
## S4 method for signature 'L2ParamFamily,UncondNeighborhood,asGRisk':
radiusMinimaxIC(
- L2Fam, neighbor, risk, loRad, upRad, z.start = NULL, A.start = NULL,
- upper = 1e5, lower =NULL, maxiter = 50, tol = .Machine$double.eps^0.4,
+ L2Fam, neighbor, risk, loRad = 0, upRad = Inf, z.start = NULL, A.start = NULL,
+ upper = NULL, lower = NULL, maxiter = 50, tol = .Machine$double.eps^0.4,
warn = FALSE, verbose = NULL, ...)
</pre>
Modified: branches/robast-0.7/pkg/RobAStBase/NAMESPACE
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/NAMESPACE 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/NAMESPACE 2009-08-31 19:53:18 UTC (rev 361)
@@ -65,4 +65,4 @@
export(".eq", ".getDistr", "getBoundedIC")
export("RobAStBaseOptions", "getRobAStBaseOption")
export("cutoff","cutoff.chisq","cutoff.sememp")
-export("outlyingPlotIC")
+export("outlyingPlotIC", "RobAStBaseMASK")
Modified: branches/robast-0.7/pkg/RobAStBase/R/AllClass.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/AllClass.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/AllClass.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -5,11 +5,28 @@
require("distrMod", character = TRUE, quietly = TRUE)
require("RandVar", character = TRUE, quietly = TRUE)
}
+
.onAttach <- function(library, pkg){
unlockBinding(".RobAStBaseOptions", asNamespace("RobAStBase"))
+ msga <- gettext(
+ "Some functions from pkg's 'stats' and 'graphics' are intentionally masked ---see RobAStBaseMASK().\n"
+ )
+ msgb <- gettext(
+ "Note that global options are controlled by RobAStBaseoptions() ---c.f. ?\"RobAStBaseoptions\"."
+ )
+ buildStartupMessage(pkg = "RobAStBase", msga, msgb,
+ library = library, packageHelp = TRUE
+ # , MANUAL="http://www.uni-bayreuth.de/departments/math/org/mathe7/DISTR/distr.pdf"
+ # , VIGNETTE = gettext("Package \"distrDoc\" provides a vignette to this package as well as to several related packages; try vignette(\"distr\").")
+ )
invisible()
}
+RobAStBaseMASK <- function(library = NULL)
+{
+ infoShow(pkg = "RobAStBase", filename = "MASKING", library = library)
+}
+
## neighborhood
setClass("Neighborhood",
representation(type = "character",
Modified: branches/robast-0.7/pkg/RobAStBase/R/AllGeneric.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/AllGeneric.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/AllGeneric.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -47,7 +47,7 @@
setGeneric("makeIC", function(IC, L2Fam, ...) standardGeneric("makeIC"))
}
if(!isGeneric("clip")){
- setGeneric("clip", function(object) standardGeneric("clip"))
+ setGeneric("clip", function(x1, ...) standardGeneric("clip"))
}
if(!isGeneric("clip<-")){
setGeneric("clip<-", function(object, value) standardGeneric("clip<-"))
@@ -115,10 +115,6 @@
setGeneric("weight<-",
function(object, value) standardGeneric("weight<-"))
}
-if(!isGeneric("clip")){
- setGeneric("clip",
- function(object, ...) standardGeneric("clip"))
-}
if(!isGeneric("clip<-")){
setGeneric("clip<-",
function(object, value, ...) standardGeneric("clip<-"))
@@ -183,7 +179,7 @@
setGeneric("uksteps", function(object,...) standardGeneric("uksteps"))
}
if(!isGeneric("start")){
- setGeneric("start", function(object) standardGeneric("start"))
+ setGeneric("start", function(x, ...) standardGeneric("start"))
}
if(!isGeneric("startval")){
setGeneric("startval", function(object) standardGeneric("startval"))
Modified: branches/robast-0.7/pkg/RobAStBase/R/AllShow.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/AllShow.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/AllShow.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -123,3 +123,22 @@
print(Mroot(object), quote = FALSE)
}
})
+setMethod("show", "OptionalpICList", function(object){
+ if(is.null(object)) return(invisible(NULL))
+ getMethod("show","pICList")(as(object,"pICList"))
+})
+setMethod("show", "pICList", function(object){
+ if(!length(object)) return(invisible(NULL))
+ cat("List of intermediate [p]IC's\n")
+ for(i in 1:length(object)){
+ oI <- object[[i]]
+ cat("[p]IC number", i,":\n")
+
+ if(is(oI,"IC"))
+ show(oI)
+ else{oIC <- object[[i]]@Curve
+ for(j in 1:length(oIC))
+ show(oIC[[j]]@Map)
+ }
+ }
+})
\ No newline at end of file
Modified: branches/robast-0.7/pkg/RobAStBase/R/ContIC.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/ContIC.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/ContIC.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -81,7 +81,7 @@
})
## Access methods
-setMethod("clip", "ContIC", function(object) object at clip)
+setMethod("clip", "ContIC", function(x1) x1 at clip)
setMethod("cent", "ContIC", function(object) object at cent)
setMethod("neighbor", "ContIC", function(object) ContNeighborhood(radius = object at neighborRadius) )
Modified: branches/robast-0.7/pkg/RobAStBase/R/TotalVarIC.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/TotalVarIC.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/TotalVarIC.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -80,7 +80,7 @@
})
## Access methods
-setMethod("clip", "TotalVarIC", function(object) object at clipUp-object@clipLo)
+setMethod("clip", "TotalVarIC", function(x1) x1 at clipUp-x1@clipLo)
setMethod("clipLo", "TotalVarIC", function(object) object at clipLo)
setMethod("clipUp", "TotalVarIC", function(object) object at clipUp)
setMethod("neighbor", "TotalVarIC", function(object) TotalVarNeighborhood(radius = object at neighborRadius) )
Modified: branches/robast-0.7/pkg/RobAStBase/R/Weights.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/Weights.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/Weights.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -6,7 +6,7 @@
})
-setMethod("clip", "BoundedWeight", function(object) object at clip)
+setMethod("clip", "BoundedWeight", function(x1) x1 at clip)
setReplaceMethod("clip", "BoundedWeight",
function(object, value){
object at clip <- value
Added: branches/robast-0.7/pkg/RobAStBase/R/kStepEstimate.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/kStepEstimate.R (rev 0)
+++ branches/robast-0.7/pkg/RobAStBase/R/kStepEstimate.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -0,0 +1,27 @@
+###############################################################################
+## Functions and methods for "kStepEstimate" classes and subclasses
+###############################################################################
+
+setMethod("pICList", "kStepEstimate", function(object) object at pICList)
+setMethod("ICList", "kStepEstimate", function(object) object at ICList)
+setMethod("start", "kStepEstimate", function(x) x at start)
+setMethod("startval", "kStepEstimate", function(object) object at startval)
+setMethod("ustartval", "kStepEstimate", function(object) object at ustartval)
+setMethod("ksteps", "kStepEstimate", function(object, diff = FALSE) {
+ mm <- cbind(object at startval,object at ksteps)
+ rownames(mm) <- rownames(object at ksteps)
+ if(diff){
+ return(t(apply(mm,1,diff)))
+ }
+ colnames(mm) <- paste((1:ncol(mm))-1)
+ return(mm)
+})
+setMethod("uksteps", "kStepEstimate", function(object, diff = FALSE) {
+ mm <- cbind(object at ustartval,object at uksteps)
+ rownames(mm) <- rownames(object at uksteps)
+ if(diff){
+ return(t(apply(mm,1,diff)))
+ }
+ colnames(mm) <- paste((1:ncol(mm))-1)
+ return(mm)
+})
Modified: branches/robast-0.7/pkg/RobAStBase/R/kStepEstimator.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/kStepEstimator.R 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/R/kStepEstimator.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -76,14 +76,14 @@
u.theta <- start.val
theta <- if(is(start.val,"Estimate")) estimate(start.val)
else trafoF(u.theta)$fval
- u.start.val <- matrix(start.val,nrow=1)
+ u.start.val <- matrix(start.val,ncol=1)
start.val <- matrix(theta,ncol=1)
rownames(u.start.val) <- u.est.names
rownames(start.val) <- est.names
### shall intermediate IC's / pIC's be stored?
pICList <- if(withPICList) vector("list", steps) else NULL
- ICList <- if(withICList) vector("list", steps) else NULL
+ ICList <- if(withICList) vector("list", steps) else NULL
### update - function
updateStep <- function(u.theta, theta, IC, L2Fam, Param,
@@ -151,7 +151,7 @@
return(list(IC = IC, Param = Param, L2Fam = L2Fam,
theta = theta, u.theta = u.theta, u.var = u.var,
- var = var0, IC.tot = IC.tot, IC.c = IC.c))
+ var = var0, IC.tot = IC.tot, IC.c = IC))
}
Infos <- matrix(c("kStepEstimator",
@@ -189,11 +189,7 @@
Infos = matrix(c("",""),ncol=2),
Curve = EuclRandVarList(upd$IC.tot))
if(withPICList)
- pICList[[i]] <- new("InfluenceCurve",
- name = paste(gettext("pIC in step"),i),
- Risks = list(),
- Infos = matrix(c("",""),ncol=2),
- Curve = EuclRandVarList(upd$IC.c))
+ pICList[[i]] <- upd$IC.c
u.var <- upd$u.var
var0 <- upd$var
}
Added: branches/robast-0.7/pkg/RobAStBase/R/masked.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/masked.R (rev 0)
+++ branches/robast-0.7/pkg/RobAStBase/R/masked.R 2009-08-31 19:53:18 UTC (rev 361)
@@ -0,0 +1,2 @@
+setMethod("start", "ANY", function(x,...) stats::start(x,...))
+setMethod("clip", "ANY", function(x1, x2, y1, y2) graphics::clip(x1, x2, y1, y2))
Modified: branches/robast-0.7/pkg/RobAStBase/chm/00Index.html
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/00Index.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/00Index.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -115,14 +115,18 @@
<td>Influence curve</td></tr>
<tr><td width="25%"><a href="IC-class.html">checkIC,IC,missing-method</a></td>
<td>Influence curve</td></tr>
-<tr><td width="25%"><a href="ContIC-class.html">clip</a></td>
-<td>Influence curve of contamination type</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">clip</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">clip,ANY-method</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="BoundedWeight-class.html">clip,BoundedWeight-method</a></td>
<td>Robust Weight classes for bounded weights</td></tr>
<tr><td width="25%"><a href="ContIC-class.html">clip,ContIC-method</a></td>
<td>Influence curve of contamination type</td></tr>
<tr><td width="25%"><a href="TotalVarIC-class.html">clip,TotalVarIC-method</a></td>
<td>Influence curve of total variation type</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">clip-methods</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="ContIC-class.html">clip<-</a></td>
<td>Influence curve of contamination type</td></tr>
<tr><td width="25%"><a href="BoundedWeight-class.html">clip<-,BoundedWeight-method</a></td>
@@ -396,6 +400,10 @@
<td>Generic Function for making ICs consistent at a possibly different model</td></tr>
<tr><td width="25%"><a href="InfluenceCurve-class.html">Map,InfluenceCurve-method</a></td>
<td>Influence curve</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">maskedMethods</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
+<tr><td width="25%"><a href="RobAStBaseMASK.html">MASKING</a></td>
+<td>Masking of/by other functions in package "RobAStBase"</td></tr>
<tr><td width="25%"><a href="MEstimate-class.html">MEstimate-class</a></td>
<td>MEstimate-class.</td></tr>
<tr><td width="25%"><a href="getweight.html">minbiasweight</a></td>
@@ -534,6 +542,8 @@
<td>Influence curve</td></tr>
<tr><td width="25%"><a href="0RobAStBase-package.html">RobAStBase</a></td>
<td>Robust Asymptotic Statistics</td></tr>
+<tr><td width="25%"><a href="RobAStBaseMASK.html">RobAStBaseMASK</a></td>
+<td>Masking of/by other functions in package "RobAStBase"</td></tr>
<tr><td width="25%"><a href="RobAStBaseOptions.html">RobAStBaseOptions</a></td>
<td>Function to change the global variables of the package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="RobAStControl-class.html">RobAStControl-class</a></td>
@@ -565,6 +575,10 @@
<td>MEstimate-class.</td></tr>
<tr><td width="25%"><a href="Neighborhood-class.html">show,Neighborhood-method</a></td>
<td>Neighborhood</td></tr>
+<tr><td width="25%"><a href="OptionalInfluenceCurve-Class.html">show,OptionalpICList-method</a></td>
+<td>Some helper Classes in package 'RobAStBase'</td></tr>
+<tr><td width="25%"><a href="OptionalInfluenceCurve-Class.html">show,pICList-method</a></td>
+<td>Some helper Classes in package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="TotalVarIC-class.html">show,TotalVarIC-method</a></td>
<td>Influence curve of total variation type</td></tr>
<tr><td width="25%"><a href="HampIC-class.html">stand</a></td>
@@ -581,10 +595,14 @@
<td>Influence curve of contamination type</td></tr>
<tr><td width="25%"><a href="TotalVarIC-class.html">stand<-,TotalVarIC-method</a></td>
<td>Influence curve of total variation type</td></tr>
-<tr><td width="25%"><a href="kStepEstimate-class.html">start</a></td>
-<td>kStepEstimate-class.</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">start</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">start,ANY-method</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="kStepEstimate-class.html">start,kStepEstimate-method</a></td>
<td>kStepEstimate-class.</td></tr>
+<tr><td width="25%"><a href="masked-methods.html">start-methods</a></td>
+<td>Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="OptionalInfluenceCurve-Class.html">StartClass-class</a></td>
<td>Some helper Classes in package 'RobAStBase'</td></tr>
<tr><td width="25%"><a href="kStepEstimate-class.html">startval</a></td>
Modified: branches/robast-0.7/pkg/RobAStBase/chm/BoundedWeight-class.html
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/BoundedWeight-class.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/BoundedWeight-class.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -52,7 +52,7 @@
<p>
<dl>
-<dt>clip</dt><dd><code>signature(object = "BoundedWeight")</code>:
+<dt>clip</dt><dd><code>signature(x1 = "BoundedWeight")</code>:
accessor function for slot <code>clip</code>. </dd>
</p>
<p>
Modified: branches/robast-0.7/pkg/RobAStBase/chm/ContIC-class.html
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/ContIC-class.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/ContIC-class.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -1,17 +1,16 @@
<html><head><title>Influence curve of contamination type</title>
-<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="Rchm.css">
-</head>
-<body>
+</head><body>
-<table width="100%"><tr><td>ContIC-class(RobAStBase)</td><td align="right">R Documentation</td></tr></table><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
+<table width="100%"><tr><td>ContIC-class(RobAStBase)</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: ContIC-class">
<param name="keyword" value="R: CallL2Fam<-,ContIC-method">
<param name="keyword" value="R: cent">
<param name="keyword" value="R: cent,ContIC-method">
<param name="keyword" value="R: cent<-">
<param name="keyword" value="R: cent<-,ContIC-method">
-<param name="keyword" value="R: clip">
<param name="keyword" value="R: clip,ContIC-method">
<param name="keyword" value="R: clip<-">
<param name="keyword" value="R: clip<-,ContIC-method">
@@ -31,8 +30,7 @@
<h3>Description</h3>
-<p>
-Class of (partial) influence curves of contamination type;
+<p>Class of (partial) influence curves of contamination type;
i.e., influence curves <i>eta</i> of the form
</p><p align="center"><i>eta = (A Lambda - a)min(1, b/|A Lambda - a|)</i></p><p>
with clipping bound <i>b</i>, centering constant <i>a</i> and
@@ -47,73 +45,78 @@
<p>
Objects can be created by calls of the form <code>new("ContIC", ...)</code>.
More frequently they are created via the generating function
-<code>ContIC</code>, respectively via the method <code>generateIC</code>.
+<code>ContIC</code>, respectively via the method <code>generateIC</code>.
</p>
<h3>Slots</h3>
+<p>
+
<dl>
-<dt><code>CallL2Fam</code>:</dt><dd>object of class <code>"call"</code>:
+<dt><code>CallL2Fam</code>:</dt><dd> object of class <code>"call"</code>:
creates an object of the underlying L2-differentiable
parametric family. </dd>
-
-
-<dt><code>name</code>:</dt><dd>object of class <code>"character"</code> </dd>
-
-
-<dt><code>Curve</code>:</dt><dd>object of class <code>"EuclRandVarList"</code></dd>
-
-
-<dt><code>modifyIC</code>:</dt><dd>Object of class <code>"OptionalFunction"</code>:
+</p>
+<p>
+<dt><code>name</code>:</dt><dd> object of class <code>"character"</code> </dd>
+</p>
+<p>
+<dt><code>Curve</code>:</dt><dd> object of class <code>"EuclRandVarList"</code></dd>
+</p>
+<p>
+<dt><code>modifyIC</code>:</dt><dd> Object of class <code>"OptionalFunction"</code>:
function of two arguments, which are an L2 parametric family
and an optional influence curve. Returns an object of
class <code>"IC"</code>. This slot is mainly used for internal
computations! </dd>
-
-
-<dt><code>Risks</code>:</dt><dd>object of class <code>"list"</code>:
+</p>
+<p>
+<dt><code>Risks</code>:</dt><dd> object of class <code>"list"</code>:
list of risks; cf. <code><a onclick="findlink('distrMod', 'RiskType-class.html')" style="text-decoration: underline; color: blue; cursor: hand">RiskType-class</a></code>. </dd>
-
-
-<dt><code>Infos</code>:</dt><dd>object of class <code>"matrix"</code>
+</p>
+<p>
+<dt><code>Infos</code>:</dt><dd> object of class <code>"matrix"</code>
with two columns named <code>method</code> and <code>message</code>:
additional informations. </dd>
-
-
-<dt><code>clip</code>:</dt><dd>object of class <code>"numeric"</code>:
+</p>
+<p>
+<dt><code>clip</code>:</dt><dd> object of class <code>"numeric"</code>:
clipping bound. </dd>
-
-
-<dt><code>cent</code>:</dt><dd>object of class <code>"numeric"</code>:
+</p>
+<p>
+<dt><code>cent</code>:</dt><dd> object of class <code>"numeric"</code>:
centering constant. </dd>
-
-
-<dt><code>stand</code>:</dt><dd>object of class <code>"matrix"</code>:
+</p>
+<p>
+<dt><code>stand</code>:</dt><dd> object of class <code>"matrix"</code>:
standardizing matrix. </dd>
-
-
-<dt><code>weight</code>:</dt><dd>object of class <code>"HampelWeight"</code>:
+</p>
+<p>
+<dt><code>weight</code>:</dt><dd> object of class <code>"HampelWeight"</code>:
weight function </dd>
-
-
-<dt><code>biastype</code>:</dt><dd>object of class <code>"BiasType"</code>:
+</p>
+<p>
+<dt><code>biastype</code>:</dt><dd> object of class <code>"BiasType"</code>:
bias type (symmetric/onsided/asymmetric) </dd>
-
-
-<dt><code>normtype</code>:</dt><dd>object of class <code>"NormType"</code>:
+</p>
+<p>
+<dt><code>normtype</code>:</dt><dd> object of class <code>"NormType"</code>:
norm type (Euclidean, information/self-standardized)</dd>
-
-
-<dt><code>lowerCase</code>:</dt><dd>object of class <code>"OptionalNumeric"</code>:
+</p>
+<p>
+<dt><code>lowerCase</code>:</dt><dd> object of class <code>"OptionalNumeric"</code>:
optional constant for lower case solution. </dd>
-
-
-<dt><code>neighborRadius</code>:</dt><dd>object of class <code>"numeric"</code>:
+</p>
+<p>
+<dt><code>neighborRadius</code>:</dt><dd> object of class <code>"numeric"</code>:
radius of the corresponding (unconditional) contamination
neighborhood. </dd>
</dl>
+</p>
+
+
<h3>Extends</h3>
<p>
@@ -125,52 +128,55 @@
<h3>Methods</h3>
+<p>
+
<dl>
<dt>CallL2Fam<-</dt><dd><code>signature(object = "ContIC")</code>:
replacement function for slot <code>CallL2Fam</code>. </dd>
-
-
+</p>
+<p>
<dt>cent</dt><dd><code>signature(object = "ContIC")</code>:
accessor function for slot <code>cent</code>. </dd>
-
-
+</p>
+<p>
<dt>cent<-</dt><dd><code>signature(object = "ContIC")</code>:
replacement function for slot <code>cent</code>. </dd>
-
-
-<dt>clip</dt><dd><code>signature(object = "ContIC")</code>:
+</p>
+<p>
+<dt>clip</dt><dd><code>signature(x1 = "ContIC")</code>:
accessor function for slot <code>clip</code>. </dd>
-
-
+</p>
+<p>
<dt>clip<-</dt><dd><code>signature(object = "ContIC")</code>:
replacement function for slot <code>clip</code>. </dd>
-
-
+</p>
+<p>
<dt>stand<-</dt><dd><code>signature(object = "ContIC")</code>:
replacement function for slot <code>stand</code>. </dd>
-
-
+</p>
+<p>
<dt>lowerCase<-</dt><dd><code>signature(object = "ContIC")</code>:
replacement function for slot <code>lowerCase</code>. </dd>
-
-
+</p>
+<p>
<dt>neighbor</dt><dd><code>signature(object = "ContIC")</code>:
generates an object of class <code>"ContNeighborhood"</code> with
radius given in slot <code>neighborRadius</code>. </dd>
-
-
+</p>
+<p>
<dt>generateIC</dt><dd><code>signature(neighbor = "ContNeighborhood", L2Fam = "L2ParamFamily")</code>:
generate an object of class <code>"ContIC"</code>. Rarely called directly. </dd>
-
-
+</p>
+<p>
<dt>show</dt><dd><code>signature(object = "ContIC")</code></dd>
</dl>
+</p>
+
+
<h3>Author(s)</h3>
-<p>
-Matthias Kohl <a href="mailto:Matthias.Kohl at stamats.de">Matthias.Kohl at stamats.de</a>
-</p>
+<p>Matthias Kohl <a href="mailto:Matthias.Kohl at stamats.de">Matthias.Kohl at stamats.de</a></p>
<h3>References</h3>
@@ -186,9 +192,7 @@
<h3>See Also</h3>
-<p>
-<code><a href="IC-class.html">IC-class</a></code>, <code><a href="ContIC.html">ContIC</a></code> <code><a href="HampIC-class.html">HampIC-class</a></code>
-</p>
+<p><code></code>, <code></code> <code></code></p>
<h3>Examples</h3>
@@ -208,7 +212,5 @@
}
</script>
-
-<hr><div align="center">[Package <em>RobAStBase</em> version 0.2 <a href="00Index.html">Index</a>]</div>
-
+<hr><div align="center">[Package <em>RobAStBase</em> version 0.7 <a href="00Index.html">Index</a>]</div>
</body></html>
Modified: branches/robast-0.7/pkg/RobAStBase/chm/RobAStBase.chm
===================================================================
(Binary files differ)
Modified: branches/robast-0.7/pkg/RobAStBase/chm/RobAStBase.toc
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/RobAStBase.toc 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/RobAStBase.toc 2009-08-31 19:53:18 UTC (rev 361)
@@ -131,9 +131,13 @@
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="clip">
-<param name="Local" value="ContIC-class.html">
+<param name="Local" value="masked-methods.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="clip,ANY-method">
+<param name="Local" value="masked-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="clip,BoundedWeight-method">
<param name="Local" value="BoundedWeight-class.html">
</OBJECT>
@@ -146,6 +150,10 @@
<param name="Local" value="TotalVarIC-class.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="clip-methods">
+<param name="Local" value="masked-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="clip<-">
<param name="Local" value="ContIC-class.html">
</OBJECT>
@@ -602,6 +610,14 @@
<param name="Local" value="InfluenceCurve-class.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="maskedMethods">
+<param name="Local" value="masked-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="MASKING">
+<param name="Local" value="RobAStBaseMASK.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="MEstimate-class">
<param name="Local" value="MEstimate-class.html">
</OBJECT>
@@ -838,6 +854,10 @@
<param name="Local" value="0RobAStBase-package.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="RobAStBaseMASK">
+<param name="Local" value="RobAStBaseMASK.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="RobAStBaseOptions">
<param name="Local" value="RobAStBaseOptions.html">
</OBJECT>
@@ -890,6 +910,14 @@
<param name="Local" value="Neighborhood-class.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="show,OptionalpICList-method">
+<param name="Local" value="OptionalInfluenceCurve-Class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="show,pICList-method">
+<param name="Local" value="OptionalInfluenceCurve-Class.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="show,TotalVarIC-method">
<param name="Local" value="TotalVarIC-class.html">
</OBJECT>
@@ -923,13 +951,21 @@
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="start">
-<param name="Local" value="kStepEstimate-class.html">
+<param name="Local" value="masked-methods.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="start,ANY-method">
+<param name="Local" value="masked-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="start,kStepEstimate-method">
<param name="Local" value="kStepEstimate-class.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="start-methods">
+<param name="Local" value="masked-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="StartClass-class">
<param name="Local" value="OptionalInfluenceCurve-Class.html">
</OBJECT>
@@ -1159,6 +1195,14 @@
<param name="Local" value="kStepEstimate-class.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="Masked Methods from Packages 'stats' and 'graphics' in Package 'RobAStBase'">
+<param name="Local" value="masked-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="Masking of/by other functions in package "RobAStBase"">
+<param name="Local" value="RobAStBaseMASK.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="MEstimate-class.">
<param name="Local" value="MEstimate-class.html">
</OBJECT>
Modified: branches/robast-0.7/pkg/RobAStBase/chm/TotalVarIC-class.html
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/TotalVarIC-class.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/TotalVarIC-class.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -147,7 +147,7 @@
replacement function for slot <code>clipUp</code>. </dd>
</p>
<p>
-<dt>clip</dt><dd><code>signature(object = "TotalVarIC")</code>:
+<dt>clip</dt><dd><code>signature(x1 = "TotalVarIC")</code>:
returns <code>clipUp-clipLo</code>. </dd>
</p>
<p>
Modified: branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimate-class.html
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimate-class.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimate-class.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -16,7 +16,6 @@
<param name="keyword" value="R: ICList,kStepEstimate-method">
<param name="keyword" value="R: pICList">
<param name="keyword" value="R: pICList,kStepEstimate-method">
-<param name="keyword" value="R: start">
<param name="keyword" value="R: start,kStepEstimate-method">
<param name="keyword" value="R: startval">
<param name="keyword" value="R: startval,kStepEstimate-method">
Modified: branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimator.html
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimator.html 2009-08-31 17:06:38 UTC (rev 360)
+++ branches/robast-0.7/pkg/RobAStBase/chm/kStepEstimator.html 2009-08-31 19:53:18 UTC (rev 361)
@@ -143,6 +143,68 @@
<p><code></code>, <code></code> </p>
+
+<h3>Examples</h3>
+
+<pre>
+if(require(ROptEst)){
+## 1. generate a contaminated sample
+ind <- rbinom(100, size=1, prob=0.05)
+x <- rnorm(100, mean=0, sd=(1-ind) + ind*9)
+
+## 2. Kolmogorov(-Smirnov) minimum distance estimator
+(est0 <- MDEstimator(x=x, NormLocationScaleFamily()))
+
+## 3. k-step estimation: radius known
+N1 <- NormLocationScaleFamily(mean=estimate(est0)["mean"], sd=estimate(est0)["sd"])
+N1.Rob <- InfRobModel(center = N1, neighbor = ContNeighborhood(radius = 0.5))
+IC1 <- optIC(model = N1.Rob, risk = asMSE())
+(est1 <- kStepEstimator(x, IC1, est0, steps = 3, withPIC = TRUE))
+estimate(est1)
+ksteps(est1)
+pICList(est1)
+start(est1)
+
+## a transformed model
+tfct <- function(x){
+ nms0 <- c("mean","sd")
+ nms <- "comb"
+ fval0 <- x[1]+2*x[2]
+ names(fval0) <- nms
+ mat0 <- matrix(c(1,2), nrow = 1, dimnames = list(nms,nms0))
+ return(list(fval = fval0, mat = mat0))
+}
+
+N1.traf <- N1; trafo(N1.traf) <- tfct
+N1R.traf <- N1.Rob; trafo(N1R.traf) <- tfct
+IC1.traf <- optIC(model = N1R.traf, risk = asMSE())
+(est0.traf <- MDEstimator(x, N1.traf))
+(est1.traf <- kStepEstimator(x, IC1.traf, est0, steps = 3,
+ withIC = TRUE, withPIC = TRUE, withUpdateInKer = FALSE))
+(est1a.traf <- kStepEstimator(x, IC1.traf, est0, steps = 3,
+ withIC = TRUE, withPIC = TRUE, withUpdateInKer = TRUE))
+estimate(est1.traf)
+ksteps(est1.traf)
+pICList(est1.traf)
+startval(est1.traf)
+
+untransformed.estimate(est1.traf)
+uksteps(est1.traf)
+ICList(est1.traf)
+ustartval(est1.traf)
+
+estimate(est1a.traf)
+ksteps(est1a.traf)
+pICList(est1a.traf)
+startval(est1a.traf)
+
+untransformed.estimate(est1a.traf)
+uksteps(est1a.traf)
+ICList(est1a.traf)
+ustartval(est1a.traf)
+}
+</pre>
+
<script Language="JScript">
function findlink(pkg, fn) {
var Y, link;
Added: branches/robast-0.7/pkg/RobAStBase/inst/MASKING
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/inst/MASKING (rev 0)
+++ branches/robast-0.7/pkg/RobAStBase/inst/MASKING 2009-08-31 19:53:18 UTC (rev 361)
@@ -0,0 +1,18 @@
+######################################################################
+# On masking of and by other functions in package "RobAStBase"
+######################################################################
+
+Attention:
+
+*** intentional masking: ***
+
+To be able to use the same symbol for objects of S4-classes 'kStepEstimate',
+respectively of classes 'ContIC','TotalVarIC','BoundedWeight',
+we intentionally mask the following function[s] --- however this/these
+function[s] may still be used in exactly the same way as before
+masking:
+
++start() (package "stats")
++clip() (package "graphics")
+
+
Modified: branches/robast-0.7/pkg/RobAStBase/man/BoundedWeight-class.Rd
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/man/BoundedWeight-class.Rd 2009-08-31 17:06:38 UTC (rev 360)
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/robast -r 361
More information about the Robast-commits
mailing list