[Robast-commits] r728 - in branches/robast-1.0/pkg/ROptEst: R man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun Mar 23 12:43:33 CET 2014
Author: stamats
Date: 2014-03-23 12:43:33 +0100 (Sun, 23 Mar 2014)
New Revision: 728
Modified:
branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
branches/robast-1.0/pkg/ROptEst/man/0ROptEst-package.Rd
branches/robast-1.0/pkg/ROptEst/man/CniperPointPlotWrapper.Rd
Log:
some minor corrections (labels did not work correctly, warnings due to calling plot with "withMaxRisk") and updates.
Modified: branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
===================================================================
--- branches/robast-1.0/pkg/ROptEst/R/cniperCont.R 2014-03-23 10:50:31 UTC (rev 727)
+++ branches/robast-1.0/pkg/ROptEst/R/cniperCont.R 2014-03-23 11:43:33 UTC (rev 728)
@@ -164,6 +164,7 @@
dots$lty <- ltyo[[1]]
}
}
+ dots <- dots[names(dots) != "withMaxRisk"]
do.call(plot,dots)
dots <- .makedotsLowLevel(dots)
@@ -223,7 +224,9 @@
mc <- match.call(#call = sys.call(sys.parent(1)),
expand.dots = FALSE)
mcl <- as.list(mc[-1])
+ mcl <- mcl[names(mcl) != "..."]
dots <- as.list(mc$"...")
+ mcl <- .merge.lists(mcl, dots)
robMod <- InfRobModel(center = L2Fam, neighbor = neighbor)
Modified: branches/robast-1.0/pkg/ROptEst/man/0ROptEst-package.Rd
===================================================================
--- branches/robast-1.0/pkg/ROptEst/man/0ROptEst-package.Rd 2014-03-23 10:50:31 UTC (rev 727)
+++ branches/robast-1.0/pkg/ROptEst/man/0ROptEst-package.Rd 2014-03-23 11:43:33 UTC (rev 728)
@@ -1,74 +1,76 @@
-\name{ROptEst-package}
-\alias{ROptEst-package}
-\alias{ROptEst}
-\docType{package}
-\title{
-Optimally robust estimation
-}
-\description{
-Optimally robust estimation in general smoothly parameterized models
-using S4 classes and methods.
-}
-\details{
-\tabular{ll}{
-Package: \tab ROptEst \cr
-Version: \tab 1.0 \cr
-Date: \tab 2013-09-12 \cr
-Depends: \tab R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0),
-distrMod(>= 2.0), RandVar(>= 0.6.4), RobAStBase \cr
-LazyLoad: \tab yes \cr
-License: \tab LGPL-3 \cr
-URL: \tab http://robast.r-forge.r-project.org/\cr
-SVNRevision: \tab -Inf \cr
-}
-}
-\author{
-Peter Ruckdeschel \email{Peter.Ruckdeschel at itwm.fraunhofer.de},\cr%
-Matthias Kohl \email{Matthias.Kohl at stamats.de}\cr
-
-Maintainer: Matthias Kohl \email{matthias.kohl at stamats.de}}
-\references{
- M. Kohl (2005). Numerical Contributions to the Asymptotic Theory of Robustness.
- Dissertation. University of Bayreuth.
-}
-\seealso{
-\code{\link[distr:0distr-package]{distr-package}},
-\code{\link[distrEx:0distrEx-package]{distrEx-package}},
-\code{\link[distrMod:0distrMod-package]{distrMod-package}},
-\code{\link[RandVar:0RandVar-package]{RandVar-package}},
-\code{\link[RobAStBase:0RobAStBase-package]{RobAStBase-package}}
-}
-\section{Package versions}{
-Note: The first two numbers of package versions do not necessarily reflect
- package-individual development, but rather are chosen for the
- RobAStXXX family as a whole in order to ease updating "depends"
- information.
-}
-\examples{
-library(ROptEst)
-
-## Example: Rutherford-Geiger (1910); cf. Feller~(1968), Section VI.7 (a)
-x <- c(rep(0, 57), rep(1, 203), rep(2, 383), rep(3, 525), rep(4, 532),
- rep(5, 408), rep(6, 273), rep(7, 139), rep(8, 45), rep(9, 27),
- rep(10, 10), rep(11, 4), rep(12, 0), rep(13, 1), rep(14, 1))
-
-## ML-estimate from package distrMod
-MLest <- MLEstimator(x, PoisFamily())
-MLest
-## confidence interval based on CLT
-confint(MLest)
-
-## compute optimally (w.r.t to MSE) robust estimator (unknown contamination)
-robEst <- roptest(x, PoisFamily(), eps.upper = 0.1, steps = 3)
-estimate(robEst)
-## check influence curve
-pIC(robEst)
-checkIC(pIC(robEst))
-## plot influence curve
-plot(pIC(robEst))
-## confidence interval based on LAN - neglecting bias
-confint(robEst)
-## confidence interval based on LAN - including bias
-confint(robEst, method = symmetricBias())
-}
-\keyword{package}
+\name{ROptEst-package}
+\alias{ROptEst-package}
+\alias{ROptEst}
+\docType{package}
+\title{
+Optimally robust estimation
+}
+\description{
+Optimally robust estimation in general smoothly parameterized models
+using S4 classes and methods.
+}
+\details{
+\tabular{ll}{
+Package: \tab ROptEst \cr
+Version: \tab 1.0 \cr
+Date: \tab 2013-09-12 \cr
+Depends: \tab R(>= 2.14.0), methods, distr(>= 2.5.2), distrEx(>= 2.5), distrMod(>= 2.5.2),
+RandVar(>= 0.9.2), RobAStBase(>= 0.9) \cr
+Suggests: \tab RobLox, MASS \cr
+ByteCompile: \tab yes \cr
+LazyLoad: \tab yes \cr
+License: \tab LGPL-3 \cr
+URL: \tab http://robast.r-forge.r-project.org/\cr
+SVNRevision: \tab 728 \cr
+}
+}
+\author{
+Peter Ruckdeschel \email{Peter.Ruckdeschel at itwm.fraunhofer.de},\cr%
+Matthias Kohl \email{Matthias.Kohl at stamats.de}\cr
+
+Maintainer: Matthias Kohl \email{matthias.kohl at stamats.de}}
+\references{
+ M. Kohl (2005). Numerical Contributions to the Asymptotic Theory of Robustness.
+ Dissertation. University of Bayreuth.
+}
+\seealso{
+\code{\link[distr:0distr-package]{distr-package}},
+\code{\link[distrEx:0distrEx-package]{distrEx-package}},
+\code{\link[distrMod:0distrMod-package]{distrMod-package}},
+\code{\link[RandVar:0RandVar-package]{RandVar-package}},
+\code{\link[RobAStBase:0RobAStBase-package]{RobAStBase-package}}
+}
+\section{Package versions}{
+Note: The first two numbers of package versions do not necessarily reflect
+ package-individual development, but rather are chosen for the
+ RobAStXXX family as a whole in order to ease updating "depends"
+ information.
+}
+\examples{
+library(ROptEst)
+
+## Example: Rutherford-Geiger (1910); cf. Feller~(1968), Section VI.7 (a)
+x <- c(rep(0, 57), rep(1, 203), rep(2, 383), rep(3, 525), rep(4, 532),
+ rep(5, 408), rep(6, 273), rep(7, 139), rep(8, 45), rep(9, 27),
+ rep(10, 10), rep(11, 4), rep(12, 0), rep(13, 1), rep(14, 1))
+
+## ML-estimate from package distrMod
+MLest <- MLEstimator(x, PoisFamily())
+MLest
+## confidence interval based on CLT
+confint(MLest)
+
+## compute optimally (w.r.t to MSE) robust estimator (unknown contamination)
+robEst <- roptest(x, PoisFamily(), eps.upper = 0.1, steps = 3)
+estimate(robEst)
+## check influence curve
+pIC(robEst)
+checkIC(pIC(robEst))
+## plot influence curve
+plot(pIC(robEst))
+## confidence interval based on LAN - neglecting bias
+confint(robEst)
+## confidence interval based on LAN - including bias
+confint(robEst, method = symmetricBias())
+}
+\keyword{package}
Modified: branches/robast-1.0/pkg/ROptEst/man/CniperPointPlotWrapper.Rd
===================================================================
--- branches/robast-1.0/pkg/ROptEst/man/CniperPointPlotWrapper.Rd 2014-03-23 10:50:31 UTC (rev 727)
+++ branches/robast-1.0/pkg/ROptEst/man/CniperPointPlotWrapper.Rd 2014-03-23 11:43:33 UTC (rev 728)
@@ -1,48 +1,49 @@
-\name{CniperPointPlot}
-\alias{CniperPointPlot}
-\title{Wrapper function for cniperPointPlot - Computation and Plot
- of Cniper Contamination and Cniper Points}
-\usage{
- CniperPointPlot(fam, ...,
- lower = getdistrOption("DistrResolution"),
- upper = 1 - getdistrOption("DistrResolution"),
- with.legend = TRUE, rescale = FALSE, withCall = TRUE)
-}
-\arguments{
- \item{fam}{object of class L2ParamFamily}
-
- \item{...}{additional parameters (in particular to be
- passed on to \code{plot})}
-
- \item{lower}{the lower end point of the contamination
- interval}
-
- \item{upper}{the upper end point of the contamination
- interval}
-
- \item{with.legend}{the flag for showing the legend of the
- plot}
-
- \item{rescale}{the flag for rescaling the axes for better view of the plot}
-
- \item{withCall}{the flag for the call output}
-}
-\value{
- invisible(NULL)
-}
-\description{
- The wrapper takes most of arguments to the
- cniperPointPlot function by default and gives a user
- possibility to run the function with low number of
- arguments
-}
-\section{Details}{
- Calls \code{cniperPointPlot} with suitably chosen
- defaults; if \code{withCall == TRUE}, the call to
- \code{cniperPointPlot} is returned.
-}
-\examples{
-L2fam <- GammaFamily()
-CniperPointPlot(fam=L2fam, main = "Gamma", lower = 0, upper = 5, withCall = FALSE)
-}
-
+\name{CniperPointPlot}
+\alias{CniperPointPlot}
+\title{Wrapper function for cniperPointPlot - Computation and Plot
+ of Cniper Contamination and Cniper Points}
+\usage{
+ CniperPointPlot(fam, ...,
+ lower = getdistrOption("DistrResolution"),
+ upper = 1 - getdistrOption("DistrResolution"),
+ with.legend = TRUE, rescale = FALSE, withCall = TRUE)
+}
+\arguments{
+ \item{fam}{object of class L2ParamFamily}
+
+ \item{...}{additional parameters (in particular to be
+ passed on to \code{plot})}
+
+ \item{lower}{the lower end point of the contamination
+ interval}
+
+ \item{upper}{the upper end point of the contamination
+ interval}
+
+ \item{with.legend}{the flag for showing the legend of the
+ plot}
+
+ \item{rescale}{the flag for rescaling the axes for better view of the plot}
+
+ \item{withCall}{the flag for the call output}
+}
+\value{
+ invisible(NULL)
+}
+\description{
+ The wrapper takes most of arguments to the
+ cniperPointPlot function by default and gives a user
+ possibility to run the function with low number of
+ arguments
+}
+\section{Details}{
+ Calls \code{cniperPointPlot} with suitably chosen
+ defaults; if \code{withCall == TRUE}, the call to
+ \code{cniperPointPlot} is returned.
+}
+\examples{
+L2fam <- NormLocationScaleFamily()
+CniperPointPlot(fam=L2fam, main = "Normal location and scale",
+ lower = 0, upper = 2.5, withCall = FALSE)
+}
+
More information about the Robast-commits
mailing list