[Robast-commits] r214 - in pkg: ROptEst ROptEst/R ROptEst/chm ROptEst/inst/scripts ROptEst/man ROptRegTS/R RandVar RandVar/chm RandVar/inst/doc RandVar/man RobAStBase RobAStBase/R RobAStBase/chm RobAStBase/man RobLox/chm RobRex/inst/scripts
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Nov 24 17:23:27 CET 2008
Author: ruckdeschel
Date: 2008-11-24 17:23:27 +0100 (Mon, 24 Nov 2008)
New Revision: 214
Modified:
pkg/ROptEst/DESCRIPTION
pkg/ROptEst/R/getAsRisk.R
pkg/ROptEst/R/getInfRobIC_asBias.R
pkg/ROptEst/R/leastFavorableRadius.R
pkg/ROptEst/R/lowerCaseRadius.R
pkg/ROptEst/R/optIC.R
pkg/ROptEst/R/optRisk.R
pkg/ROptEst/R/radiusMinimaxIC.R
pkg/ROptEst/chm/00Index.html
pkg/ROptEst/chm/ROptEst.chm
pkg/ROptEst/chm/ROptEst.hhp
pkg/ROptEst/chm/ROptEst.toc
pkg/ROptEst/chm/roptest.html
pkg/ROptEst/inst/scripts/BinomialModel.R
pkg/ROptEst/inst/scripts/ExponentialScaleModel.R
pkg/ROptEst/inst/scripts/GammaModel.R
pkg/ROptEst/inst/scripts/GumbelLocationModel.R
pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R
pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
pkg/ROptEst/inst/scripts/NormalScaleModel.R
pkg/ROptEst/inst/scripts/PoissonModel.R
pkg/ROptEst/inst/scripts/UnderOverShootRisk.R
pkg/ROptEst/man/0ROptEst-package.Rd
pkg/ROptRegTS/R/leastFavorableRadius.R
pkg/ROptRegTS/R/optIC.R
pkg/ROptRegTS/R/radiusMinimaxIC.R
pkg/RandVar/DESCRIPTION
pkg/RandVar/chm/00Index.html
pkg/RandVar/chm/RandVar.chm
pkg/RandVar/chm/RandVar.hhp
pkg/RandVar/chm/RandVar.toc
pkg/RandVar/inst/doc/RandVar.Rnw
pkg/RandVar/man/0RandVar-package.Rd
pkg/RobAStBase/DESCRIPTION
pkg/RobAStBase/R/AllPlot.R
pkg/RobAStBase/R/comparePlot.R
pkg/RobAStBase/R/infoPlot.R
pkg/RobAStBase/chm/0RobAStBase-package.html
pkg/RobAStBase/chm/RobAStBase.chm
pkg/RobAStBase/man/0RobAStBase-package.Rd
pkg/RobLox/chm/00Index.html
pkg/RobLox/chm/RobLox.chm
pkg/RobRex/inst/scripts/example.R
Log:
+updated date in DESCRIPTION files
+updated DESCRIPTION tags in package help files
+introduced option("newDevice") to control new opening of graphic devices
+use of on.exit() to restore old settings for options() and par() at the end of functions
Modified: pkg/ROptEst/DESCRIPTION
===================================================================
--- pkg/ROptEst/DESCRIPTION 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/DESCRIPTION 2008-11-24 16:23:27 UTC (rev 214)
@@ -1,9 +1,11 @@
Package: ROptEst
Version: 0.6.1
-Date: 2008-11-19
+Date: 2008-11-24
Title: Optimally robust estimation
-Description: Optimally robust estimation in general smoothly parameterized models using S4 classes and methods.
-Depends: R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.4), RobAStBase
+Description: Optimally robust estimation in general smoothly
+ parameterized models using S4 classes and methods.
+Depends: R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0),
+ distrMod(>= 2.0), RandVar(>= 0.6.4), RobAStBase
Author: Matthias Kohl, Peter Ruckdeschel
Maintainer: Matthias Kohl <Matthias.Kohl at stamats.de>
LazyLoad: yes
Modified: pkg/ROptEst/R/getAsRisk.R
===================================================================
--- pkg/ROptEst/R/getAsRisk.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/getAsRisk.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -214,6 +214,7 @@
sign <- sign(biastype)
w0 <- options("warn")
+ on.exit(options(w0))
options(warn = -1)
l <- length(support(L2deriv))
Modified: pkg/ROptEst/R/getInfRobIC_asBias.R
===================================================================
--- pkg/ROptEst/R/getInfRobIC_asBias.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/getInfRobIC_asBias.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -276,6 +276,7 @@
{
sign <- sign(biastype)
w0 <- options("warn")
+ on.exit(options(w0))
options(warn = -1)
l <- length(support(L2deriv))
Modified: pkg/ROptEst/R/leastFavorableRadius.R
===================================================================
--- pkg/ROptEst/R/leastFavorableRadius.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/leastFavorableRadius.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -31,6 +31,7 @@
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
upper <- ifelse(upRad == Inf, 10, upRad)
ow <- options("warn")
+ on.exit(options(ow))
options(warn = -1)
if(identical(all.equal(loRad, 0), TRUE)){
loRad <- 0
Modified: pkg/ROptEst/R/lowerCaseRadius.R
===================================================================
--- pkg/ROptEst/R/lowerCaseRadius.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/lowerCaseRadius.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -12,6 +12,7 @@
if(!is(D1, "DiscreteDistribution")) stop("not yet implemented")
w0 <- options("warn")
+ on.exit(options(w0))
options(warn = -1)
L2deriv <- L2Fam at L2derivDistr[[1]]
m <- q(L2deriv)(0.5)
@@ -34,10 +35,8 @@
rad <- sqrt(M*Int - (1-wsm) - bet^2*wsm)
names(rad) <- "lower case radius"
- options(w0)
return(rad)
}else{
- options(w0)
rad <- Inf
names(rad) <- "lower case radius"
return(rad)
@@ -47,7 +46,6 @@
rad <- sqrt(M*Int - 1)
names(rad) <- "lower case radius"
- options(w0)
return(rad)
}
})
Modified: pkg/ROptEst/R/optIC.R
===================================================================
--- pkg/ROptEst/R/optIC.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/optIC.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -6,8 +6,9 @@
maxiter = 50, tol = .Machine$double.eps^0.4, warn = TRUE,
noLow = FALSE, verbose = FALSE){
L2derivDim <- numberOfMaps(model at center@L2deriv)
+ ow <- options("warn")
+ on.exit(options(ow))
if(L2derivDim == 1){
- ow <- options("warn")
options(warn = -1)
res <- getInfRobIC(L2deriv = model at center@L2derivDistr[[1]],
neighbor = model at neighbor, risk = risk,
@@ -15,7 +16,6 @@
Finfo = model at center@FisherInfo, trafo = model at center@param at trafo,
upper = upper, maxiter = maxiter, tol = tol, warn = warn,
noLow = noLow, verbose = verbose)
- options(ow)
res$info <- c("optIC", res$info)
res <- c(res, modifyIC = getModifyIC(L2FamIC = model at center,
neighbor = model at neighbor,
@@ -42,7 +42,6 @@
L2derivDistrSymm <- new("DistrSymmList", L2)
}
}
- ow <- options("warn")
options(warn = -1)
res <- getInfRobIC(L2deriv = L2deriv, neighbor = model at neighbor,
risk = risk, Distr = model at center@distribution,
@@ -71,11 +70,12 @@
function(model, risk, upper = 1e4, maxiter = 50,
tol = .Machine$double.eps^0.4, warn = TRUE){
L2derivDistr <- model at center@L2derivDistr[[1]]
+ ow <- options("warn")
+ on.exit(options(ow))
if((length(model at center@L2derivDistr) == 1) & is(L2derivDistr, "UnivariateDistribution")){
if(identical(all.equal(model at neighbor@radius, 0), TRUE)){
return(optIC(model at center, risk = asCov()))
}else{
- ow <- options("warn")
options(warn = -1)
res <- getInfRobIC(L2deriv = L2derivDistr,
neighbor = model at neighbor, risk = risk,
@@ -105,10 +105,11 @@
function(model, risk, sampleSize, upper = 1e4, maxiter = 50,
tol = .Machine$double.eps^0.4, warn = TRUE, Algo = "A",
cont = "left", verbose = FALSE){
+ ow <- options("warn")
+ on.exit(options(ow))
if(!identical(all.equal(sampleSize, trunc(sampleSize)), TRUE))
stop("'sampleSize' has to be an integer > 0")
if(is(model at center@distribution, "UnivariateDistribution")){
- ow <- options("warn")
options(warn = -1)
res <- getFixRobIC(Distr = model at center@distribution,
neighbor = model at neighbor, risk = risk,
Modified: pkg/ROptEst/R/optRisk.R
===================================================================
--- pkg/ROptEst/R/optRisk.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/optRisk.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -14,8 +14,9 @@
z.start = NULL, A.start = NULL, upper = 1e4,
maxiter = 50, tol = .Machine$double.eps^0.4, warn = TRUE, noLow = FALSE){
L2derivDim <- numberOfMaps(model at center@L2deriv)
+ ow <- options("warn")
+ on.exit(options(ow))
if(L2derivDim == 1){
- ow <- options("warn")
options(warn = -1)
res <- getInfRobIC(L2deriv = model at center@L2derivDistr[[1]],
neighbor = model at neighbor, risk = risk,
@@ -47,7 +48,6 @@
}
}
- ow <- options("warn")
options(warn = -1)
res <- getInfRobIC(L2deriv = L2deriv, neighbor = model at neighbor,
risk = risk, Distr = model at center@distribution,
@@ -69,10 +69,11 @@
setMethod("optRisk", signature(model = "FixRobModel", risk = "fiUnOvShoot"),
function(model, risk, sampleSize, upper = 1e4, maxiter = 50,
tol = .Machine$double.eps^0.4, warn = TRUE, Algo = "A", cont = "left"){
+ ow <- options("warn")
+ on.exit(options(ow))
if(!identical(all.equal(sampleSize, trunc(sampleSize)), TRUE))
stop("'sampleSize' has to be an integer > 0")
if(is(model at center@distribution, "UnivariateDistribution")){
- ow <- options("warn")
options(warn = -1)
res <- getFixRobIC(Distr = model at center@distribution,
neighbor = model at neighbor, risk = risk,
Modified: pkg/ROptEst/R/radiusMinimaxIC.R
===================================================================
--- pkg/ROptEst/R/radiusMinimaxIC.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/R/radiusMinimaxIC.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -8,6 +8,8 @@
function(L2Fam, neighbor, risk, loRad, upRad, z.start = NULL,
A.start = NULL, upper = 1e5, maxiter = 50,
tol = .Machine$double.eps^0.4, warn = FALSE, verbose = FALSE){
+ ow <- options("warn")
+ on.exit(options(ow))
if(length(loRad) != 1)
stop("'loRad' is not of length == 1")
if(length(upRad) != 1)
@@ -21,7 +23,6 @@
upRad <- min(upRad,10)
if(L2derivDim == 1){
- ow <- options("warn")
options(warn = -1)
upper.b <- upper
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
@@ -122,7 +123,6 @@
normtype(risk) <- normtype}
std <- if(is(normtype,"QFNorm")) QuadForm(normtype) else diag(p)
- ow <- options("warn")
options(warn = -1)
upper.b <- upper
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
@@ -191,7 +191,6 @@
Finfo = L2Fam at FisherInfo, trafo = trafo, z.start = z.start,
A.start = A.start, upper = upper.b, maxiter = maxiter,
tol = tol, warn = warn, verbose = verbose)
- options(ow)
res$info <- c("radiusMinimaxIC", paste("radius minimax IC for radius interval [",
round(loRad, 3), ", ", round(upRad, 3), "]", sep=""))
res$info <- rbind(res$info, c("radiusMinimaxIC",
Modified: pkg/ROptEst/chm/00Index.html
===================================================================
--- pkg/ROptEst/chm/00Index.html 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/chm/00Index.html 2008-11-24 16:23:27 UTC (rev 214)
@@ -13,6 +13,8 @@
<h2>Help pages for package ‘ROptEst’ version 0.6.1</h2>
<p align="center">
+<a href="# "> </a>
+<a href="#C">C</a>
<a href="#G">G</a>
<a href="#L">L</a>
<a href="#M">M</a>
@@ -23,6 +25,36 @@
<table width="100%">
</table>
+<h2><a name=" ">-- --</a></h2>
+
+<table width="100%">
+<tr><td width="25%"><a href="0ROptEst-package.html">ROptEst-package</a></td>
+<td>Optimally robust estimation </td></tr>
+</table>
+
+<h2><a name="C">-- C --</a></h2>
+
+<table width="100%">
+<tr><td width="25%"><a href="cniperCont.html">cniperCont</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperCont,IC,IC,L2ParamFamily,ContNeighborhood,asMSE-method</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperCont-methods</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperPoint</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperPoint,L2ParamFamily,ContNeighborhood,asMSE-method</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperPoint-methods</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperPointPlot</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperPointPlot,L2ParamFamily,ContNeighborhood,asMSE-method</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+<tr><td width="25%"><a href="cniperCont.html">cniperPointPlot-methods</a></td>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. </td></tr>
+</table>
+
<h2><a name="G">-- G --</a></h2>
<table width="100%">
@@ -306,6 +338,8 @@
<td>Generic function for the computation of the radius minimax IC</td></tr>
<tr><td width="25%"><a href="radiusMinimaxIC.html">radiusMinimaxIC-methods</a></td>
<td>Generic function for the computation of the radius minimax IC</td></tr>
+<tr><td width="25%"><a href="0ROptEst-package.html">ROptEst</a></td>
+<td>Optimally robust estimation </td></tr>
<tr><td width="25%"><a href="roptest.html">roptest</a></td>
<td>Optimally robust estimation </td></tr>
</table>
Modified: pkg/ROptEst/chm/ROptEst.chm
===================================================================
(Binary files differ)
Modified: pkg/ROptEst/chm/ROptEst.hhp
===================================================================
--- pkg/ROptEst/chm/ROptEst.hhp 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/chm/ROptEst.hhp 2008-11-24 16:23:27 UTC (rev 214)
@@ -12,6 +12,8 @@
[FILES]
00Index.html
+0ROptEst-package.html
+cniperCont.html
getAsRisk.html
getBiasIC.html
getFiRisk.html
Modified: pkg/ROptEst/chm/ROptEst.toc
===================================================================
--- pkg/ROptEst/chm/ROptEst.toc 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/chm/ROptEst.toc 2008-11-24 16:23:27 UTC (rev 214)
@@ -10,6 +10,46 @@
</OBJECT>
<UL>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="ROptEst-package">
+<param name="Local" value="0ROptEst-package.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperCont">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperCont,IC,IC,L2ParamFamily,ContNeighborhood,asMSE-method">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperCont-methods">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperPoint">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperPoint,L2ParamFamily,ContNeighborhood,asMSE-method">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperPoint-methods">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperPointPlot">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperPointPlot,L2ParamFamily,ContNeighborhood,asMSE-method">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="cniperPointPlot-methods">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="getAsRisk">
<param name="Local" value="getAsRisk.html">
</OBJECT>
@@ -530,6 +570,10 @@
<param name="Local" value="radiusMinimaxIC.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="ROptEst">
+<param name="Local" value="0ROptEst-package.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="roptest">
<param name="Local" value="roptest.html">
</OBJECT>
@@ -627,6 +671,10 @@
<param name="Local" value="getInfStand.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points. ">
+<param name="Local" value="cniperCont.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
<param name="Name" value="Methods for Function updateNorm in Package `ROptEst' ">
<param name="Local" value="updateNorm-methods.html">
</OBJECT>
Modified: pkg/ROptEst/chm/roptest.html
===================================================================
--- pkg/ROptEst/chm/roptest.html 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/chm/roptest.html 2008-11-24 16:23:27 UTC (rev 214)
@@ -197,14 +197,38 @@
x <- rbinom(100, size=25, prob=(1-ind)*0.25 + ind*0.9)
## ML-estimate
-MLEstimator(x, BinomFamily(size = 25))
+MLest <- MLEstimator(x, BinomFamily(size = 25))
+estimate(MLest)
+confint(MLest)
## compute optimally robust estimator (known contamination)
-roptest(x, BinomFamily(size = 25), eps = 0.05, steps = 3)
+robest1 <- roptest(x, BinomFamily(size = 25), eps = 0.05, steps = 3)
+estimate(robest1)
+confint(robest1, method = symmetricBias())
+## neglecting bias
+confint(robest1)
+plot(pIC(robest1))
## compute optimally robust estimator (unknown contamination)
-roptest(x, BinomFamily(size = 25), eps.lower = 0, eps.upper = 0.2, steps = 3)
+robest2 <- roptest(x, BinomFamily(size = 25), eps.lower = 0, eps.upper = 0.2, steps = 3)
+estimate(robest2)
+confint(robest2, method = symmetricBias())
+plot(pIC(robest2))
+## total variation neighborhoods (known deviation)
+robest3 <- roptest(x, BinomFamily(size = 25), eps = 0.025,
+ neighbor = TotalVarNeighborhood(), steps = 3)
+estimate(robest3)
+confint(robest3, method = symmetricBias())
+plot(pIC(robest3))
+
+## total variation neighborhoods (unknown deviation)
+robest4 <- roptest(x, BinomFamily(size = 25), eps.lower = 0, eps.upper = 0.1,
+ neighbor = TotalVarNeighborhood(), steps = 3)
+estimate(robest4)
+confint(robest4, method = symmetricBias())
+plot(pIC(robest4))
+
#############################
## 2. Poisson data
#############################
@@ -214,28 +238,55 @@
rep(10, 10), rep(11, 4), rep(12, 0), rep(13, 1), rep(14, 1))
## ML-estimate
-MLEstimator(x, PoisFamily())
+MLest <- MLEstimator(x, PoisFamily())
+estimate(MLest)
+confint(MLest)
## compute optimally robust estimator (unknown contamination)
-roptest(x, PoisFamily(), eps.upper = 0.1, steps = 3)
+robest <- roptest(x, PoisFamily(), eps.upper = 0.1, steps = 3)
+estimate(robest)
+confint(robest, symmetricBias())
+plot(pIC(robest))
+## total variation neighborhoods (unknown deviation)
+robest1 <- roptest(x, PoisFamily(), eps.upper = 0.05,
+ neighbor = TotalVarNeighborhood(), steps = 3)
+estimate(robest1)
+confint(robest1, symmetricBias())
+plot(pIC(robest1))
+
#############################
## 3. Normal (Gaussian) location and scale
#############################
-## Generate a contaminated sample
-ind <- rbinom(100, size=1, prob=0.05)
-x <- rnorm(100, mean=0, sd=(1-ind) + ind*9)
+## 24 determinations of copper in wholemeal flour
+library(MASS)
+data(chem)
+plot(chem, main = "copper in wholemeal flour", pch = 20)
## ML-estimate
-MLEstimator(x, NormLocationScaleFamily())
+MLest <- MLEstimator(chem, NormLocationScaleFamily())
+estimate(MLest)
+confint(MLest)
## compute optimally robust estimator (known contamination)
-## takes some time
-roptest(x, NormLocationScaleFamily(), eps = 0.05, steps = 3)
+## takes some time -> you can use package RobLox for normal
+## location and scale which is optimized for speed
+robest <- roptest(chem, NormLocationScaleFamily(), eps = 0.05, steps = 3)
+estimate(robest)
+confint(robest, symmetricBias())
+plot(pIC(robest))
+## plot of relative and absolute information; cf. Kohl (2005)
+infoPlot(pIC(robest))
## compute optimally robust estimator (unknown contamination)
-## takes some time
-roptest(x, NormLocationScaleFamily(), eps.upper = 0.2, steps = 3)
+## takes some time -> use package RobLox!
+robest1 <- roptest(chem, NormLocationScaleFamily(), eps.lower = 0.05,
+ eps.upper = 0.1, steps = 3)
+estimate(robest1)
+confint(robest1, symmetricBias())
+plot(pIC(robest1))
+## plot of relative and absolute information; cf. Kohl (2005)
+infoPlot(pIC(robest1))
</pre>
<script Language="JScript">
@@ -249,6 +300,6 @@
</script>
-<hr><div align="center">[Package <em>ROptEst</em> version 0.6.0 <a href="00Index.html">Index]</a></div>
+<hr><div align="center">[Package <em>ROptEst</em> version 0.6.1 <a href="00Index.html">Index]</a></div>
</body></html>
Modified: pkg/ROptEst/inst/scripts/BinomialModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/BinomialModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/BinomialModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Binomial Family
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Binomial Family with
## m = 25 and probability of success theta = 0.25
Modified: pkg/ROptEst/inst/scripts/ExponentialScaleModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/ExponentialScaleModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/ExponentialScaleModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Exponential Scale Family
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Exponential Scale Family with scale = 0.5 (rate = 2)
E1 <- ExpScaleFamily(scale = 0.5)
Modified: pkg/ROptEst/inst/scripts/GammaModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/GammaModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/GammaModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Gamma Family
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Gamma Family with
## scale = 2 and shape = 0.5
@@ -28,7 +29,7 @@
checkIC(IC1)
Risks(IC1)
plot(IC1)
-devNew()
+#devNew()
infoPlot(IC1)
## lower case solutions
Modified: pkg/ROptEst/inst/scripts/GumbelLocationModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/GumbelLocationModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/GumbelLocationModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -4,6 +4,7 @@
## Exponential Scale Family
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Gumbel Location Family with loc = 0
## (known scale = 1)
Modified: pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Lognormal Scale and Normal Location
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Lognormal Scale Family with meanlog = 0, sdlog = 1
LN1 <- LnormScaleFamily()
Modified: pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Normal location and scale
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates normal location and scale family with mean = -2 and sd = 3
N0 <- NormLocationScaleFamily(mean=-2, sd=3)
Modified: pkg/ROptEst/inst/scripts/NormalScaleModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/NormalScaleModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/NormalScaleModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Normal Scale
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Normal Scale Family with scale = 3
N0 <- NormScaleFamily(mean=2, sd=3)
Modified: pkg/ROptEst/inst/scripts/PoissonModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/PoissonModel.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/PoissonModel.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Poisson Family
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
distroptions("TruncQuantile", 1e-10) # increases numerical support of Pois;
# i.e., increases precision of the
Modified: pkg/ROptEst/inst/scripts/UnderOverShootRisk.R
===================================================================
--- pkg/ROptEst/inst/scripts/UnderOverShootRisk.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/inst/scripts/UnderOverShootRisk.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -2,6 +2,7 @@
## Example: Normal Location
###############################################################################
require(ROptEst)
+options("newDevice"=TRUE)
## generates Normal Location Family with mean = 0
N0 <- NormLocationFamily(mean=0)
Modified: pkg/ROptEst/man/0ROptEst-package.Rd
===================================================================
--- pkg/ROptEst/man/0ROptEst-package.Rd 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptEst/man/0ROptEst-package.Rd 2008-11-24 16:23:27 UTC (rev 214)
@@ -12,10 +12,9 @@
\details{
\tabular{ll}{
Package: \tab ROptEst\cr
-Type: \tab Package\cr
Version: \tab 0.6.1\cr
-Date: \tab 2008-11-19\cr
-Depends: \tab Depends: R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.4), RobAStBase\cr
+Date: \tab 2008-11-24\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
Modified: pkg/ROptRegTS/R/leastFavorableRadius.R
===================================================================
--- pkg/ROptRegTS/R/leastFavorableRadius.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptRegTS/R/leastFavorableRadius.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -8,6 +8,9 @@
function(L2Fam, neighbor, risk, rho, upRad = 1, z.start = NULL,
A.start = NULL, upper = 100, maxiter = 100,
tol = .Machine$double.eps^0.4, warn = FALSE){
+ ow <- options("warn")
+ on.exit(options(ow))
+
if(length(rho) != 1)
stop("'rho' is not of length == 1")
if((rho <= 0)||(rho >= 1))
@@ -22,6 +25,7 @@
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
upper <- ifelse(upRad == Inf, 10, upRad)
ow <- options("warn")
+ on.exit(options(ow))
options(warn = -1)
if(identical(all.equal(loRad, 0), TRUE)){
loRad <- 0
@@ -107,6 +111,7 @@
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
upper <- ifelse(upRad == Inf, 10, upRad)
ow <- options("warn")
+ on.exit(options(ow))
options(warn = -1)
trafo <- L2Fam at param@trafo
if(identical(all.equal(loRad, 0), TRUE)){
Modified: pkg/ROptRegTS/R/optIC.R
===================================================================
--- pkg/ROptRegTS/R/optIC.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptRegTS/R/optIC.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -37,8 +37,9 @@
function(model, risk, z.start=NULL, A.start=NULL, upper = 1e4,
maxiter = 50, tol = .Machine$double.eps^0.4, warn = TRUE){
ErrorL2derivDim <- numberOfMaps(model at center@ErrorL2deriv)
+ ow <- options("warn")
+ on.exit(options(ow))
if(ErrorL2derivDim == 1){
- ow <- options("warn")
options(warn = -1)
res <- getInfRobRegTypeIC(ErrorL2deriv = model at center@ErrorL2derivDistr[[1]],
Regressor = model at center@RegDistr, risk = risk, neighbor = model at neighbor,
@@ -71,7 +72,6 @@
ErrorL2derivDistrSymm <- new("DistrSymmList", L2)
}
}
- ow <- options("warn")
options(warn = -1)
res <- getInfRobRegTypeIC(ErrorL2deriv = ErrorL2deriv,
Regressor = model at center@RegDistr, risk = risk, neighbor = model at neighbor,
@@ -96,10 +96,11 @@
setMethod("optIC", signature(model = "InfRobRegTypeModel", risk = "asUnOvShoot"),
function(model, risk, upper = 1e4, maxiter = 50, tol = .Machine$double.eps^0.4,
warn = TRUE){
+ ow <- options("warn")
+ on.exit(options(ow))
ErrorL2derivDistr <- model at center@ErrorL2derivDistr[[1]]
if((length(model at center@ErrorL2derivDistr) == 1) & is(ErrorL2derivDistr, "UnivariateDistribution")
& is(model at center@RegDistr, "UnivariateDistribution")){
- ow <- options("warn")
options(warn = -1)
res <- getInfRobRegTypeIC(ErrorL2deriv = ErrorL2derivDistr,
Regressor = model at center@RegDistr, risk = risk, neighbor = model at neighbor,
@@ -134,6 +135,8 @@
setMethod("optIC", signature(model = "FixRobRegTypeModel", risk = "fiUnOvShoot"),
function(model, risk, sampleSize, upper = 1e4, maxiter = 50,
tol = .Machine$double.eps^0.4, warn = TRUE, Algo = "A", cont = "left"){
+ ow <- options("warn")
+ on.exit(options(ow))
if(!identical(all.equal(sampleSize, trunc(sampleSize)), TRUE))
stop("'sampleSize' has to be an integer > 0")
if(is(model at center@ErrorDistr, "UnivariateDistribution")
@@ -142,7 +145,6 @@
if(!is(RegDistr, "AbscontDistribution"))
if(!identical(all.equal(d(RegDistr)(0), 0), TRUE))
stop("Solution only available under 'K(x=0)!=0'!")
- ow <- options("warn")
options(warn = -1)
res <- getFixRobRegTypeIC(ErrorDistr = model at center@ErrorDistr,
Regressor = RegDistr, risk = risk, neighbor = model at neighbor,
Modified: pkg/ROptRegTS/R/radiusMinimaxIC.R
===================================================================
--- pkg/ROptRegTS/R/radiusMinimaxIC.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/ROptRegTS/R/radiusMinimaxIC.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -7,6 +7,10 @@
risk = "asGRisk"),
function(L2Fam, neighbor, risk, loRad, upRad, z.start = NULL, A.start = NULL,
upper = 1e4, maxiter = 100, tol = .Machine$double.eps^0.4, warn = FALSE){
+
+ ow <- options("warn")
+ on.exit(options(ow))
+
if(length(loRad) != 1)
stop("'loRad' is not of length == 1")
if(length(upRad) != 1)
@@ -15,7 +19,6 @@
stop("'upRad < loRad' is not fulfilled")
L2derivDim <- numberOfMaps(L2Fam at ErrorL2deriv)
if(L2derivDim == 1){
- ow <- options("warn")
options(warn = -1)
upper.b <- upper
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
@@ -102,7 +105,6 @@
}
}
trafo <- L2Fam at param@trafo
- ow <- options("warn")
options(warn = -1)
upper.b <- upper
lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
Modified: pkg/RandVar/DESCRIPTION
===================================================================
--- pkg/RandVar/DESCRIPTION 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RandVar/DESCRIPTION 2008-11-24 16:23:27 UTC (rev 214)
@@ -1,10 +1,11 @@
Package: RandVar
Version: 0.6.5
-Date: 2008-11-05
+Date: 2008-11-24
Title: Implementation of random variables
-Description: Implementation of random variables by means
- of S4 classes and methods
-Depends: R (>= 2.7.0), methods, startupmsg, distr(>= 2.0), distrEx(>= 2.0)
+Description: Implementation of random variables by means of S4 classes
+ and methods
+Depends: R (>= 2.7.0), methods, startupmsg, distr(>= 2.0), distrEx(>=
+ 2.0)
Author: Matthias Kohl, Peter Ruckdeschel
Maintainer: Matthias Kohl <Matthias.Kohl at stamats.de>
LazyLoad: yes
Modified: pkg/RandVar/chm/00Index.html
===================================================================
--- pkg/RandVar/chm/00Index.html 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RandVar/chm/00Index.html 2008-11-24 16:23:27 UTC (rev 214)
@@ -10,7 +10,7 @@
<param name="keyword" value=".. contents">
</object>
-<h2>Help pages for package ‘RandVar’ version 0.6.4</h2>
+<h2>Help pages for package ‘RandVar’ version 0.6.5</h2>
<p align="center">
<a href="#"></a>
@@ -35,7 +35,7 @@
<h2><a name=" ">-- --</a></h2>
<table width="100%">
-<tr><td width="25%"><a href="RandVar-package.html">RandVar-package</a></td>
+<tr><td width="25%"><a href="0RandVar-package.html">RandVar-package</a></td>
<td>Implementation of random variables </td></tr>
</table>
@@ -286,7 +286,7 @@
<h2><a name="R">-- R --</a></h2>
<table width="100%">
-<tr><td width="25%"><a href="RandVar-package.html">RandVar</a></td>
+<tr><td width="25%"><a href="0RandVar-package.html">RandVar</a></td>
<td>Implementation of random variables </td></tr>
<tr><td width="25%"><a href="RandVariable.html">RandVariable</a></td>
<td>Generating function for RandVariable-class</td></tr>
Modified: pkg/RandVar/chm/RandVar.chm
===================================================================
(Binary files differ)
Modified: pkg/RandVar/chm/RandVar.hhp
===================================================================
--- pkg/RandVar/chm/RandVar.hhp 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RandVar/chm/RandVar.hhp 2008-11-24 16:23:27 UTC (rev 214)
@@ -12,6 +12,7 @@
[FILES]
00Index.html
+0RandVar-package.html
EuclRandMatrix-class.html
EuclRandMatrix.html
EuclRandVarList-class.html
@@ -19,7 +20,6 @@
EuclRandVariable-class.html
EuclRandVariable.html
OptionalrSpace-class.html
-RandVar-package.html
RandVariable-class.html
RandVariable.html
RealRandVariable-class.html
Modified: pkg/RandVar/chm/RandVar.toc
===================================================================
--- pkg/RandVar/chm/RandVar.toc 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RandVar/chm/RandVar.toc 2008-11-24 16:23:27 UTC (rev 214)
@@ -11,7 +11,7 @@
<UL>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="RandVar-package">
-<param name="Local" value="RandVar-package.html">
+<param name="Local" value="0RandVar-package.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="%*%,EuclRandMatrix,EuclRandMatrix-method">
@@ -419,7 +419,7 @@
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="RandVar">
-<param name="Local" value="RandVar-package.html">
+<param name="Local" value="0RandVar-package.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="RandVariable">
@@ -532,7 +532,7 @@
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="Implementation of random variables ">
-<param name="Local" value="RandVar-package.html">
+<param name="Local" value="0RandVar-package.html">
</OBJECT>
<LI> <OBJECT type="text/sitemap">
<param name="Name" value="List of Euclidean random variables">
Modified: pkg/RandVar/inst/doc/RandVar.Rnw
===================================================================
--- pkg/RandVar/inst/doc/RandVar.Rnw 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RandVar/inst/doc/RandVar.Rnw 2008-11-24 16:23:27 UTC (rev 214)
@@ -136,6 +136,7 @@
we can for instance generate
<<exa1, eval = TRUE>>=
library(RandVar)
+distroptions("withSweave" = TRUE) ## only for use in Sweave - document; set to FALSE else!
(X <- RealRandVariable(Map = list(function(x){x}, function(x){x^2}), Domain = Reals(), Range = Reals()))
Map(X)
evalRandVar(X, 2)
Modified: pkg/RandVar/man/0RandVar-package.Rd
===================================================================
--- pkg/RandVar/man/0RandVar-package.Rd 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RandVar/man/0RandVar-package.Rd 2008-11-24 16:23:27 UTC (rev 214)
@@ -11,10 +11,10 @@
\details{
\tabular{ll}{
Package: \tab RandVar\cr
-Type: \tab Package\cr
Version: \tab 0.6.5\cr
-Date: \tab 2008-11-05\cr
-Depends: \tab R (>= 2.7.0), methods, startupmsg, distr(>= 2.0), distrEx(>= 2.0)\cr
+Date: \tab 2008-11-24\cr
+Depends: \tab R (>= 2.7.0), methods, startupmsg, distr(>= 2.0), distrEx(>=
+2.0)\cr
LazyLoad: \tab yes\cr
License: \tab LGPL-3\cr
URL: \tab http://robast.r-forge.r-project.org/\cr
Modified: pkg/RobAStBase/DESCRIPTION
===================================================================
--- pkg/RobAStBase/DESCRIPTION 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobAStBase/DESCRIPTION 2008-11-24 16:23:27 UTC (rev 214)
@@ -1,9 +1,11 @@
Package: RobAStBase
Version: 0.1.2
-Date: 2008-11-19
+Date: 2008-11-24
Title: Robust Asymptotic Statistics
-Description: Base S4-classes and functions for robust asymptotic statistics.
-Depends: R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.3)
+Description: Base S4-classes and functions for robust asymptotic
+ statistics.
+Depends: R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0),
+ distrMod(>= 2.0), RandVar(>= 0.6.3)
Author: Matthias Kohl, Peter Ruckdeschel
Maintainer: Matthias Kohl <Matthias.Kohl at stamats.de>
LazyLoad: yes
Modified: pkg/RobAStBase/R/AllPlot.R
===================================================================
--- pkg/RobAStBase/R/AllPlot.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobAStBase/R/AllPlot.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -114,7 +114,9 @@
w0 <- options("warn")
options(warn = -1)
+ on.exit(options(w0))
opar <- par()
+ on.exit(par=opar)
if (!withSweave)
devNew()
nrows <- trunc(sqrt(dims))
@@ -160,7 +162,5 @@
mtext(text = sub, side = 1, cex = cex.sub, adj = .5,
outer = TRUE, line = -1.6, col = col.sub)
- par(opar)
- options(w0)
invisible()
})
Modified: pkg/RobAStBase/R/comparePlot.R
===================================================================
--- pkg/RobAStBase/R/comparePlot.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobAStBase/R/comparePlot.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -162,7 +162,9 @@
w0 <- options("warn")
options(warn = -1)
+ on.exit(options(w0))
opar <- par()
+ on.exit(par(opar))
nrows <- trunc(sqrt(dims))
ncols <- ceiling(dims/nrows)
par(mfrow = c(nrows, ncols))
@@ -217,7 +219,5 @@
outer = TRUE, line = -1.6, col = col.sub)
- par(opar)
- options(w0)
invisible()
})
Modified: pkg/RobAStBase/R/infoPlot.R
===================================================================
--- pkg/RobAStBase/R/infoPlot.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobAStBase/R/infoPlot.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -23,8 +23,6 @@
dotsP <- dotsL <- dotsT <- dots
- print(dots)
- print(lwd)
e1 <- L2Fam at distribution
if(!is(e1, "UnivariateDistribution") | is(e1, "CondDistribution"))
stop("not yet implemented")
@@ -146,9 +144,11 @@
w0 <- options("warn")
options(warn = -1)
+ on.exit(w0)
opar <- par()
- if (!withSweave)
- devNew()
+ on.exit(par(opar))
+# if (!withSweave)
+# devNew()
omar <- par("mar")
parArgs <- list(mar = c(bmar,omar[2],tmar,omar[4]))
@@ -227,8 +227,6 @@
outer = TRUE, line = -1.6, col = col.sub)
- par(opar)
- options(w0)
}
})
\ No newline at end of file
Modified: pkg/RobAStBase/chm/0RobAStBase-package.html
===================================================================
--- pkg/RobAStBase/chm/0RobAStBase-package.html 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobAStBase/chm/0RobAStBase-package.html 2008-11-24 16:23:27 UTC (rev 214)
@@ -29,13 +29,10 @@
<td align="left">Package: </td> <td align="left"> RobAStBase</td>
</tr>
<tr>
- <td align="left"> Type: </td> <td align="left"> Package</td>
-</tr>
-<tr>
<td align="left"> Version: </td> <td align="left"> 0.1.2</td>
</tr>
<tr>
- <td align="left"> Date: </td> <td align="left"> 2008-11-05</td>
+ <td align="left"> Date: </td> <td align="left"> 2008-11-24</td>
</tr>
<tr>
<td align="left"> Depends: </td> <td align="left"> R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.3)</td>
Modified: pkg/RobAStBase/chm/RobAStBase.chm
===================================================================
(Binary files differ)
Modified: pkg/RobAStBase/man/0RobAStBase-package.Rd
===================================================================
--- pkg/RobAStBase/man/0RobAStBase-package.Rd 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobAStBase/man/0RobAStBase-package.Rd 2008-11-24 16:23:27 UTC (rev 214)
@@ -11,10 +11,9 @@
\details{
\tabular{ll}{
Package: \tab RobAStBase\cr
-Type: \tab Package\cr
Version: \tab 0.1.2\cr
-Date: \tab 2008-11-19\cr
-Depends: \tab R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.3)\cr
+Date: \tab 2008-11-24\cr
+Depends: \tab R(>= 2.7.0), methods, distr(>= 2.0), distrEx(>= 2.0),distrMod(>= 2.0), RandVar(>= 0.6.3)\cr
LazyLoad: \tab yes\cr
License: \tab LGPL-3\cr
URL: \tab http://robast.r-forge.r-project.org/\cr
Modified: pkg/RobLox/chm/00Index.html
===================================================================
--- pkg/RobLox/chm/00Index.html 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobLox/chm/00Index.html 2008-11-24 16:23:27 UTC (rev 214)
@@ -10,7 +10,7 @@
<param name="keyword" value=".. contents">
</object>
-<h2>Help pages for package ‘RobLox’ version 0.6.0</h2>
+<h2>Help pages for package ‘RobLox’ version 0.6.1</h2>
<table width="100%">
Modified: pkg/RobLox/chm/RobLox.chm
===================================================================
(Binary files differ)
Modified: pkg/RobRex/inst/scripts/example.R
===================================================================
--- pkg/RobRex/inst/scripts/example.R 2008-11-19 08:16:05 UTC (rev 213)
+++ pkg/RobRex/inst/scripts/example.R 2008-11-24 16:23:27 UTC (rev 214)
@@ -1,4 +1,5 @@
library(RobRex)
+options("newDevice"=TRUE)
###############################################################################
## start of tests
More information about the Robast-commits
mailing list