[Robast-commits] r576 - in branches/robast-0.9/pkg/RobAStBase: man tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Jan 29 05:34:41 CET 2013
Author: stamats
Date: 2013-01-29 05:34:41 +0100 (Tue, 29 Jan 2013)
New Revision: 576
Modified:
branches/robast-0.9/pkg/RobAStBase/man/comparePlot.Rd
branches/robast-0.9/pkg/RobAStBase/man/infoPlot.Rd
branches/robast-0.9/pkg/RobAStBase/man/kStepEstimator.Rd
branches/robast-0.9/pkg/RobAStBase/man/makeIC-methods.Rd
branches/robast-0.9/pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save
Log:
update of Rout.save, had to put several examples in \dontrun to reduce check time
Modified: branches/robast-0.9/pkg/RobAStBase/man/comparePlot.Rd
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/man/comparePlot.Rd 2013-01-28 02:57:29 UTC (rev 575)
+++ branches/robast-0.9/pkg/RobAStBase/man/comparePlot.Rd 2013-01-29 04:34:41 UTC (rev 576)
@@ -204,6 +204,8 @@
which.Order = 1:6,
return.Order = TRUE)
+## don't run to reduce check time on CRAN
+\dontrun{
## selection of subpanels for plotting
par(mfrow=c(1,1))
comparePlot(IC1, IC2 ,mfColRow = FALSE, to.draw.arg=c("mean"),
@@ -249,8 +251,8 @@
system.time(IC2.s <- optIC(model = G2.Rob1, risk = asMSE(normtype=SelfNorm())))
comparePlot(IC1,IC2, IC2.i, IC2.s)
+}
-
}
}
\keyword{robust}
Modified: branches/robast-0.9/pkg/RobAStBase/man/infoPlot.Rd
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/man/infoPlot.Rd 2013-01-28 02:57:29 UTC (rev 575)
+++ branches/robast-0.9/pkg/RobAStBase/man/infoPlot.Rd 2013-01-29 04:34:41 UTC (rev 576)
@@ -195,18 +195,24 @@
N <- NormLocationScaleFamily(mean=0, sd=1)
IC1 <- optIC(model = N, risk = asCov())
infoPlot(IC1)
+
+## don't run to reduce check time on CRAN
+\dontrun{
## selection of subpanels for plotting
par(mfrow=c(1,2))
infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","sd"))
infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","sd"), log="y")
+
infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","mean"),
panel.first= grid(), ylim = c(0,4), xlim = c(-6,6))
infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","mean"),
panel.first= grid(), ylim = c(0,4,-3,3), xlim = c(-6,6))
+
par(mfrow=c(1,3))
infoPlot(IC1, mfColRow = FALSE, panel.first= grid(),
ylim = c(0,4,0,.3,0,.8), xlim=c(-6,6))
par(mfrow=c(1,1))
+
data <- r(N)(20)
par(mfrow=c(1,3))
infoPlot(IC1, data=data, mfColRow = FALSE, panel.first= grid(),
@@ -217,6 +223,8 @@
with.lab = TRUE, cex.pts=0.7)
par(mfrow=c(1,1))
}
+
+}
\concept{absolute information}
\concept{relative information}
\keyword{robust}
Modified: branches/robast-0.9/pkg/RobAStBase/man/kStepEstimator.Rd
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/man/kStepEstimator.Rd 2013-01-28 02:57:29 UTC (rev 575)
+++ branches/robast-0.9/pkg/RobAStBase/man/kStepEstimator.Rd 2013-01-29 04:34:41 UTC (rev 576)
@@ -100,6 +100,8 @@
pICList(est1)
start(est1)
+## don't run to reduce check time on CRAN
+\dontrun{
## a transformed model
tfct <- function(x){
nms0 <- c("mean","sd")
@@ -139,6 +141,7 @@
ustartval(est1a.traf)
}
}
+}
\concept{k-step estimator}
\concept{estimator}
\keyword{univar}
Modified: branches/robast-0.9/pkg/RobAStBase/man/makeIC-methods.Rd
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/man/makeIC-methods.Rd 2013-01-28 02:57:29 UTC (rev 575)
+++ branches/robast-0.9/pkg/RobAStBase/man/makeIC-methods.Rd 2013-01-29 04:34:41 UTC (rev 576)
@@ -101,6 +101,8 @@
plot(IC5)
checkIC(IC5)
+## don't run to reduce check time on CRAN
+\dontrun{
N0 <- NormLocationScaleFamily()
IC6 <- makeIC(list(sin,cos),N0)
plot(IC6)
@@ -108,6 +110,7 @@
getRiskIC(IC6,risk=trAsCov())$trAsCov$value
getRiskIC(IC6,risk=asBias(),neighbor=ContNeighborhood())$asBias$value
+}
}
\concept{influence curve}
Modified: branches/robast-0.9/pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save 2013-01-28 02:57:29 UTC (rev 575)
+++ branches/robast-0.9/pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save 2013-01-29 04:34:41 UTC (rev 576)
@@ -1,6 +1,6 @@
-R version 2.15.0 Patched (2012-05-26 r59450) -- "Easter Beagle"
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R Under development (unstable) (2013-01-26 r61749) -- "Unsuffered Consequences"
+Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-unknown-linux-gnu (64-bit)
@@ -22,6 +22,12 @@
> source(file.path(R.home("share"), "R", "examples-header.R"))
> options(warn = 1)
> library('RobAStBase')
+Loading required package: rrcov
+Loading required package: robustbase
+Loading required package: pcaPP
+Loading required package: mvtnorm
+Scalable Robust Estimators with High Breakdown Point (version 1.3-02)
+
Loading required package: distr
Loading required package: startupmsg
:startupmsg> Utilities for start-up messages (version 0.8)
@@ -34,6 +40,13 @@
:SweaveListingUtils> Utilities for Sweave together with
:SweaveListingUtils> TeX listings package (version 0.6)
:SweaveListingUtils>
+:SweaveListingUtils> NOTE: Support for this package
+:SweaveListingUtils> will stop soon.
+:SweaveListingUtils>
+:SweaveListingUtils> Package 'knitr' is providing the
+:SweaveListingUtils> same functionality in a better
+:SweaveListingUtils> way.
+:SweaveListingUtils>
:SweaveListingUtils> Some functions from package 'base'
:SweaveListingUtils> are intentionally masked ---see
:SweaveListingUtils> SweaveListingMASK().
@@ -53,7 +66,7 @@
Attaching package: ‘SweaveListingUtils’
-The following object(s) are masked from ‘package:base’:
+The following object is masked from ‘package:base’:
library, require
@@ -79,7 +92,7 @@
Attaching package: ‘distr’
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
df, qqplot, sd
@@ -103,7 +116,7 @@
Attaching package: ‘distrEx’
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
IQR, mad, median, var
@@ -141,15 +154,15 @@
Attaching package: ‘distrMod’
-The following object(s) are masked from ‘package:stats4’:
+The following object is masked from ‘package:stats4’:
confint
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
confint
-The following object(s) are masked from ‘package:base’:
+The following object is masked from ‘package:base’:
norm
@@ -168,18 +181,29 @@
Attaching package: ‘RobAStBase’
-The following object(s) are masked from ‘package:graphics’:
+The following object is masked from ‘package:graphics’:
clip
>
> assign(".oldSearch", search(), pos = 'CheckExEnv')
+> assign(".ExTimings", "RobAStBase-Ex.timings", pos = 'CheckExEnv')
+> cat("name\tuser\tsystem\telapsed\n", file=get(".ExTimings", pos = 'CheckExEnv'))
+> assign(".format_ptime",
++ function(x) {
++ if(!is.na(x[4L])) x[1L] <- x[1L] + x[4L]
++ if(!is.na(x[5L])) x[2L] <- x[2L] + x[5L]
++ format(x[1L:3L])
++ },
++ pos = 'CheckExEnv')
+>
> cleanEx()
> nameEx("0RobAStBase-package")
> ### * 0RobAStBase-package
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RobAStBase-package
> ### Title: Robust Asymptotic Statistics
> ### Aliases: RobAStBase-package RobAStBase
@@ -195,6 +219,7 @@
> ## classical optimal IC
> IC0 <- optIC(model = B, risk = asCov())
> plot(IC0) # plot IC
+NULL
> checkIC(IC0, B)
precision of centering: -4.25449e-18
precision of Fisher consistency:
@@ -205,12 +230,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("0RobAStBase-package", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ALEstimate-class")
> ### * ALEstimate-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ALEstimate-class
> ### Title: ALEstimate-class.
> ### Aliases: ALEstimate-class pIC pIC,ALEstimate-method asbias
@@ -237,12 +266,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ALEstimate-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("BdStWeight-class")
> ### * BdStWeight-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BdStWeight-class
> ### Title: Robust Weight classes for bounded, standardized weights
> ### Aliases: BdStWeight-class stand,BdStWeight-method
@@ -267,18 +300,22 @@
Slot "weight":
function (x)
1
-<bytecode: 0x627f7c0>
+<bytecode: 0x6c7b840>
<environment: namespace:RobAStBase>
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("BdStWeight-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("BoundedWeight-class")
> ### * BoundedWeight-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BoundedWeight-class
> ### Title: Robust Weight classes for bounded weights
> ### Aliases: BoundedWeight-class clip,BoundedWeight-method
@@ -299,18 +336,22 @@
Slot "weight":
function (x)
1
-<bytecode: 0x6274860>
+<bytecode: 0x6c725a8>
<environment: namespace:RobAStBase>
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("BoundedWeight-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ContIC-class")
> ### * ContIC-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ContIC-class
> ### Title: Influence curve of contamination type
> ### Aliases: ContIC-class CallL2Fam<-,ContIC-method cent cent,ContIC-method
@@ -324,15 +365,20 @@
>
> IC1 <- new("ContIC")
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ContIC-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ContIC")
> ### * ContIC
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ContIC
> ### Title: Generating function for ContIC-class
> ### Aliases: ContIC
@@ -342,15 +388,20 @@
>
> IC1 <- ContIC()
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ContIC", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ContNeighborhood-class")
> ### * ContNeighborhood-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ContNeighborhood-class
> ### Title: Contamination Neighborhood
> ### Aliases: ContNeighborhood-class
@@ -365,12 +416,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ContNeighborhood-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ContNeighborhood")
> ### * ContNeighborhood
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ContNeighborhood
> ### Title: Generating function for ContNeighborhood-class
> ### Aliases: ContNeighborhood
@@ -394,12 +449,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ContNeighborhood", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("FixRobModel-class")
> ### * FixRobModel-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FixRobModel-class
> ### Title: Robust model with fixed (unconditional) neighborhood
> ### Aliases: FixRobModel-class neighbor<-,FixRobModel-method
@@ -427,12 +486,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("FixRobModel-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("FixRobModel")
> ### * FixRobModel
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FixRobModel
> ### Title: Generating function for FixRobModel-class
> ### Aliases: FixRobModel
@@ -468,12 +531,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("FixRobModel", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("HampIC-class")
> ### * HampIC-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: HampIC-class
> ### Title: Influence curve of Hampel type
> ### Aliases: HampIC-class lowerCase lowerCase,HampIC-method neighborRadius
@@ -486,15 +553,20 @@
>
> IC1 <- new("HampIC")
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("HampIC-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("HampelWeight-class")
> ### * HampelWeight-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: HampelWeight-class
> ### Title: Robust Weight classes for weights of Hampel type
> ### Aliases: HampelWeight-class cent,HampelWeight-method
@@ -522,18 +594,22 @@
Slot "weight":
function (x)
1
-<bytecode: 0x6213a80>
+<bytecode: 0x6c0db98>
<environment: namespace:RobAStBase>
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("HampelWeight-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("IC-class")
> ### * IC-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: IC-class
> ### Title: Influence curve
> ### Aliases: IC-class CallL2Fam CallL2Fam,IC-method CallL2Fam<-
@@ -546,15 +622,20 @@
>
> IC1 <- new("IC")
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("IC-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("IC")
> ### * IC
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: IC
> ### Title: Generating function for IC-class
> ### Aliases: IC
@@ -564,15 +645,20 @@
>
> IC1 <- IC()
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("IC", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("InfRobModel-class")
> ### * InfRobModel-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: InfRobModel-class
> ### Title: Robust model with infinitesimal (unconditional) neighborhood
> ### Aliases: InfRobModel-class neighbor<-,InfRobModel-method
@@ -600,12 +686,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("InfRobModel-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("InfRobModel")
> ### * InfRobModel
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: InfRobModel
> ### Title: Generating function for InfRobModel-class
> ### Aliases: InfRobModel
@@ -641,12 +731,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("InfRobModel", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("InfluenceCurve-class")
> ### * InfluenceCurve-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: InfluenceCurve-class
> ### Title: Influence curve
> ### Aliases: InfluenceCurve-class addInfo<- addInfo<-,InfluenceCurve-method
@@ -676,12 +770,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("InfluenceCurve-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("InfluenceCurve")
> ### * InfluenceCurve
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: InfluenceCurve
> ### Title: Generating function for InfluenceCurve-class
> ### Aliases: InfluenceCurve
@@ -719,12 +817,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("InfluenceCurve", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MEstimate-class")
> ### * MEstimate-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MEstimate-class
> ### Title: MEstimate-class.
> ### Aliases: MEstimate-class Mroot Mroot,MEstimate-method
@@ -749,12 +851,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("MEstimate-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RobAStBaseMASK")
> ### * RobAStBaseMASK
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RobAStBaseMASK
> ### Title: Masking of/by other functions in package "RobAStBase"
> ### Aliases: RobAStBaseMASK MASKING
@@ -785,12 +891,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("RobAStBaseMASK", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RobAStBaseOptions")
> ### * RobAStBaseOptions
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RobAStBaseOptions
> ### Title: Function to change the global variables of the package
> ### 'RobAStBase'
@@ -830,12 +940,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("RobAStBaseOptions", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RobWeight-class")
> ### * RobWeight-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RobWeight-class
> ### Title: Robust Weight classes
> ### Aliases: RobWeight-class name,RobWeight-method name<-,RobWeight-method
@@ -854,18 +968,22 @@
Slot "weight":
function (x)
1
-<bytecode: 0x5ce4e70>
+<bytecode: 0x71a7478>
<environment: namespace:RobAStBase>
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("RobWeight-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("TotalVarIC-class")
> ### * TotalVarIC-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TotalVarIC-class
> ### Title: Influence curve of total variation type
> ### Aliases: TotalVarIC-class CallL2Fam<-,TotalVarIC-method clipLo
@@ -881,15 +999,20 @@
>
> IC1 <- new("TotalVarIC")
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("TotalVarIC-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("TotalVarIC")
> ### * TotalVarIC
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TotalVarIC
> ### Title: Generating function for TotalVarIC-class
> ### Aliases: TotalVarIC
@@ -899,15 +1022,20 @@
>
> IC1 <- TotalVarIC()
> plot(IC1)
+NULL
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("TotalVarIC", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("TotalVarNeighborhood-class")
> ### * TotalVarNeighborhood-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TotalVarNeighborhood-class
> ### Title: Total variation neighborhood
> ### Aliases: TotalVarNeighborhood-class
@@ -922,12 +1050,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("TotalVarNeighborhood-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("TotalVarNeighborhood")
> ### * TotalVarNeighborhood
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TotalVarNeighborhood
> ### Title: Generating function for TotalVarNeighborhood-class
> ### Aliases: TotalVarNeighborhood
@@ -951,12 +1083,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("TotalVarNeighborhood", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("checkIC")
> ### * checkIC
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: checkIC
> ### Title: Generic Function for Checking ICs
> ### Aliases: checkIC
@@ -975,12 +1111,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("checkIC", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("comparePlot")
> ### * comparePlot
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: comparePlot-methods
> ### Title: Compare - Plots
> ### Aliases: comparePlot comparePlot-methods comparePlot,IC,IC-method
@@ -998,49 +1138,69 @@
+
+ comparePlot(IC1,IC2)
+
-+ data <- r(N0)(20)
++ set.seed(12); data <- r(N0)(20)
+ comparePlot(IC1, IC2, data=data, with.lab = TRUE,
+ which.lbs = c(1:4,15:20),
+ which.Order = 1:6,
+ return.Order = TRUE)
+
-+ ## selection of subpanels for plotting
-+ par(mfrow=c(1,1))
-+ comparePlot(IC1, IC2 ,mfColRow = FALSE, to.draw.arg=c("mean"),
-+ panel.first= grid(),ylim=c(-4,4),xlim=c(-6,6))
-+ ## matrix-valued ylim
-+ comparePlot(IC1, IC2, panel.first= grid(),ylim=c(-4,4,0,4),xlim=c(-6,6))
++ ## don't run to reduce check time on CRAN
++ ## Not run:
++ ##D ## selection of subpanels for plotting
++ ##D par(mfrow=c(1,1))
++ ##D comparePlot(IC1, IC2 ,mfColRow = FALSE, to.draw.arg=c("mean"),
++ ##D panel.first= grid(),ylim=c(-4,4),xlim=c(-6,6))
++ ##D ## matrix-valued ylim
++ ##D comparePlot(IC1, IC2, panel.first= grid(),ylim=c(-4,4,0,4),xlim=c(-6,6))
++ ##D
++ ##D x <- c(data,-12,10)
++ ##D comparePlot(IC1, IC2, data=x, which.Order=10,
++ ##D panel.first= grid(), ylim=c(-4,4,0,4), xlim=c(-6,6))
++ ##D
++ ##D Y <- Chisq(df=1)* DiscreteDistribution(c(-1,1))
++ ##D comparePlot(IC1, IC2, data=x, which.Order=10,
++ ##D scaleX = TRUE, scaleX.fct=pnorm, scaleX.inv=qnorm,
++ ##D scaleY = TRUE, scaleY.fct=p(Y), scaleY.inv=q(Y),
++ ##D panel.first= grid(), ylim=c(-4,4,0,4), xlim=c(-6,6))
++ ##D comparePlot(IC1, IC2, data=x, which.Order=10,
++ ##D scaleX = TRUE, scaleX.fct=pnorm, scaleX.inv=qnorm,
++ ##D scaleY = TRUE, scaleY.fct=p(Y), scaleY.inv=q(Y),
++ ##D x.ticks = c(-Inf, -10, -1,0,1,10,Inf),
++ ##D y.ticks = c(-Inf, -5, -1,0,1,5,Inf),
++ ##D panel.first= grid(), ylim=c(-4,4,0,4), xlim=c(-6,6))
++ ##D
++ ##D ## with use of trafo-matrix:
++ ##D G <- GammaFamily(scale = 1, shape = 2)
++ ##D ## explicitely transforming to
++ ##D ## MASS parametrization:
++ ##D mtrafo <- function(x){
++ ##D nms0 <- names(c(main(param(G)),nuisance(param(G))))
++ ##D nms <- c("shape","rate")
++ ##D fval0 <- c(x[2], 1/x[1])
++ ##D names(fval0) <- nms
++ ##D mat0 <- matrix( c(0, -1/x[1]^2, 1, 0), nrow = 2, ncol = 2,
++ ##D dimnames = list(nms,nms0))
++ ##D list(fval = fval0, mat = mat0)}
++ ##D G2 <- G
++ ##D trafo(G2) <- mtrafo
++ ##D G2
++ ##D G2.Rob1 <- InfRobModel(center = G2, neighbor = ContNeighborhood(radius = 0.5))
++ ##D system.time(IC1 <- optIC(model = G2, risk = asCov()))
++ ##D system.time(IC2 <- optIC(model = G2.Rob1, risk = asMSE()))
++ ##D system.time(IC2.i <- optIC(model = G2.Rob1, risk = asMSE(normtype=InfoNorm())))
++ ##D system.time(IC2.s <- optIC(model = G2.Rob1, risk = asMSE(normtype=SelfNorm())))
++ ##D
++ ##D comparePlot(IC1,IC2, IC2.i, IC2.s)
++ ## End(Not run)
+
-+ ## with use of trafo-matrix:
-+ G <- GammaFamily(scale = 1, shape = 2)
-+ ## explicitely transforming to
-+ ## MASS parametrization:
-+ mtrafo <- function(x){
-+ nms0 <- names(c(main(param(G)),nuisance(param(G))))
-+ nms <- c("shape","rate")
-+ fval0 <- c(x[2], 1/x[1])
-+ names(fval0) <- nms
-+ mat0 <- matrix( c(0, -1/x[1]^2, 1, 0), nrow = 2, ncol = 2,
-+ dimnames = list(nms,nms0))
-+ list(fval = fval0, mat = mat0)}
-+ G2 <- G
-+ trafo(G2) <- mtrafo
-+ G2
-+ G2.Rob1 <- InfRobModel(center = G2, neighbor = ContNeighborhood(radius = 0.5))
-+ system.time(IC1 <- optIC(model = G2, risk = asCov()))
-+ system.time(IC2 <- optIC(model = G2.Rob1, risk = asMSE()))
-+ system.time(IC2.i <- optIC(model = G2.Rob1, risk = asMSE(normtype=InfoNorm())))
-+ system.time(IC2.s <- optIC(model = G2.Rob1, risk = asMSE(normtype=SelfNorm())))
-+
-+ comparePlot(IC1,IC2, IC2.i, IC2.s)
-+
-+
+ }
Loading required package: ROptEst
>
>
>
-> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("comparePlot", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
detaching ‘package:ROptEst’
@@ -1050,6 +1210,7 @@
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cutoff-class
> ### Title: Cutoff class for distance-distance plots
> ### Aliases: cutoff-class cutoff.quantile<-,cutoff-method cutoff.quantile<-
@@ -1074,7 +1235,7 @@
}
quantile(slot(norm, "fct")(data), cutoff.quantile)
}
-<environment: 0x83e0ba0>
+<environment: 0x9b718a8>
Slot "cutoff.quantile":
[1] 0.95
@@ -1082,12 +1243,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("cutoff-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("cutoff")
> ### * cutoff
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cutoff
> ### Title: Generating function(s) for class 'cutoff'
> ### Aliases: cutoff cutoff.sememp cutoff.chisq
@@ -1110,7 +1275,7 @@
}
quantile(slot(norm, "fct")(data), cutoff.quantile)
}
-<environment: 0x81e7fd0>
+<environment: 0x89190c8>
Slot "cutoff.quantile":
[1] 0.95
@@ -1135,7 +1300,7 @@
quantile((rowSums(N0^2))^0.5, cutoff.quantile)
}
}
-<environment: 0x8195858>
+<environment: 0x89193b8>
Slot "cutoff.quantile":
[1] 0.95
@@ -1158,7 +1323,7 @@
qchisq(df = dim, cutoff.quantile)^0.5
}
}
-<environment: 0x85dba90>
+<environment: 0x9eb11e0>
Slot "cutoff.quantile":
[1] 0.95
@@ -1166,12 +1331,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("cutoff", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ddPlot-methods")
> ### * ddPlot-methods
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ddPlot-methods
> ### Title: Methods for Function ddPlot in Package 'RobAStBase'
> ### Aliases: ddPlot ddPlot-methods ddPlot,matrix-method
@@ -1183,8 +1352,6 @@
> MX <- matrix(rnorm(1500),nrow=6)
> QM <- matrix(rnorm(36),nrow=6); QM <- QM %*% t(QM)
> ddPlot(data=MX, dist.y=QFNorm(QuadF=PosSemDefSymmMatrix(QM)))
-[1] 1
-[1] "black"
$id.x
[1] 35 75 81 83 103 134 141 156 161 195 201 216 241
@@ -1213,12 +1380,44 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ddPlot-methods", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
+> nameEx("getRiskFctBV-methods")
+> ### * getRiskFctBV-methods
+>
+> flush(stderr()); flush(stdout())
+>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> ### Name: getRiskFctBV-methods
+> ### Title: Methods for Function getRiskFctBV in Package 'RobAStBase'
+> ### Aliases: getRiskFctBV getRiskFctBV-methods
+> ### getRiskFctBV,asGRisk,ANY-method getRiskFctBV,asMSE,ANY-method
+> ### getRiskFctBV,asSemivar,onesidedBias-method
+> ### getRiskFctBV,asSemivar,asymmetricBias-method
+> ### Keywords: classes
+>
+> ### ** Examples
+>
+> myrisk <- asMSE()
+> getRiskFctBV(myrisk)
+function (bias, var)
+bias^2 + var
+<environment: 0x8eae918>
+>
+>
+>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("getRiskFctBV-methods", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
+> cleanEx()
> nameEx("infoPlot")
> ### * infoPlot
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: infoPlot
> ### Title: Plot absolute and relative information
> ### Aliases: infoPlot infoPlot-methods infoPlot,IC-method
@@ -1229,43 +1428,48 @@
> N <- NormLocationScaleFamily(mean=0, sd=1)
> IC1 <- optIC(model = N, risk = asCov())
> infoPlot(IC1)
-> ## selection of subpanels for plotting
-> par(mfrow=c(1,2))
-> infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","sd"))
-> infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","sd"), log="y")
-> infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","mean"),
-+ panel.first= grid(), ylim = c(0,4), xlim = c(-6,6))
-> infoPlot(IC1, mfColRow = FALSE, to.draw.arg=c("Abs","mean"),
-+ panel.first= grid(), ylim = c(0,4,-3,3), xlim = c(-6,6))
-> par(mfrow=c(1,3))
-> infoPlot(IC1, mfColRow = FALSE, panel.first= grid(),
-+ ylim = c(0,4,0,.3,0,.8), xlim=c(-6,6))
-> par(mfrow=c(1,1))
-> data <- r(N)(20)
-> par(mfrow=c(1,3))
-> infoPlot(IC1, data=data, mfColRow = FALSE, panel.first= grid(),
-+ with.lab = TRUE, cex.pts=2,
-+ which.lbs = c(1:4,15:20), which.Order = 1:6,
-+ return.Order = TRUE)
-$IC
- [1] 17 16 2 20 1 19 3 18 15 4
-
-$IC.class
- [1] 17 16 2 20 1 19 3 18 15 4
-
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/robast -r 576
More information about the Robast-commits
mailing list