[Robast-commits] r446 - pkg/RobRex/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Wed Jan 5 20:19:52 CET 2011
Author: stamats
Date: 2011-01-05 20:19:52 +0100 (Wed, 05 Jan 2011)
New Revision: 446
Modified:
pkg/RobRex/tests/Examples/RobRex-Ex.Rout.save
Log:
updated RobRex-Ex.Rout.save files to R 2.12.1 patched
Modified: pkg/RobRex/tests/Examples/RobRex-Ex.Rout.save
===================================================================
--- pkg/RobRex/tests/Examples/RobRex-Ex.Rout.save 2011-01-05 19:16:31 UTC (rev 445)
+++ pkg/RobRex/tests/Examples/RobRex-Ex.Rout.save 2011-01-05 19:19:52 UTC (rev 446)
@@ -1,7 +1,8 @@
-R version 2.10.0 beta (2009-10-15 r50107)
-Copyright (C) 2009 The R Foundation for Statistical Computing
+R version 2.12.1 Patched (2011-01-04 r53913)
+Copyright (C) 2011 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
+Platform: x86_64-unknown-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -17,79 +18,14 @@
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
-> ### * <HEADER>
-> ###
-> attach(NULL, name = "CheckExEnv")
-> assign("nameEx",
-+ local({
-+ s <- "__{must remake R-ex/*.R}__"
-+ function(new) {
-+ if(!missing(new)) s <<- new else s
-+ }
-+ }),
-+ pos = "CheckExEnv")
-> ## Add some hooks to label plot pages for base and grid graphics
-> assign("base_plot_hook",
-+ function() {
-+ pp <- par(c("mfg","mfcol","oma","mar"))
-+ if(all(pp$mfg[1:2] == c(1, pp$mfcol[2]))) {
-+ outer <- (oma4 <- pp$oma[4]) > 0; mar4 <- pp$mar[4]
-+ mtext(sprintf("help(\"%s\")", nameEx()), side = 4,
-+ line = if(outer)max(1, oma4 - 1) else min(1, mar4 - 1),
-+ outer = outer, adj = 1, cex = .8, col = "orchid", las=3)
-+ }
-+ },
-+ pos = "CheckExEnv")
-> assign("grid_plot_hook",
-+ function() {
-+ grid::pushViewport(grid::viewport(width=grid::unit(1, "npc") -
-+ grid::unit(1, "lines"), x=0, just="left"))
-+ grid::grid.text(sprintf("help(\"%s\")", nameEx()),
-+ x=grid::unit(1, "npc") + grid::unit(0.5, "lines"),
-+ y=grid::unit(0.8, "npc"), rot=90,
-+ gp=grid::gpar(col="orchid"))
-+ },
-+ pos = "CheckExEnv")
-> setHook("plot.new", get("base_plot_hook", pos = "CheckExEnv"))
-> setHook("persp", get("base_plot_hook", pos = "CheckExEnv"))
-> setHook("grid.newpage", get("grid_plot_hook", pos = "CheckExEnv"))
-> assign("cleanEx",
-+ function(env = .GlobalEnv) {
-+ rm(list = ls(envir = env, all.names = TRUE), envir = env)
-+ RNGkind("default", "default")
-+ set.seed(1)
-+ options(warn = 1)
-+ .CheckExEnv <- as.environment("CheckExEnv")
-+ delayedAssign("T", stop("T used instead of TRUE"),
-+ assign.env = .CheckExEnv)
-+ delayedAssign("F", stop("F used instead of FALSE"),
-+ assign.env = .CheckExEnv)
-+ sch <- search()
-+ newitems <- sch[! sch %in% .oldSearch]
-+ for(item in rev(newitems))
-+ eval(substitute(detach(item), list(item=item)))
-+ missitems <- .oldSearch[! .oldSearch %in% sch]
-+ if(length(missitems))
-+ warning("items ", paste(missitems, collapse=", "),
-+ " have been removed from the search path")
-+ },
-+ pos = "CheckExEnv")
-> assign("ptime", proc.time(), pos = "CheckExEnv")
-> ## at least one package changes these via ps.options(), so do this
-> ## before loading the package.
-> ## Use postscript as incomplete files may be viewable, unlike PDF.
-> ## Choose a size that is close to on-screen devices, fix paper
-> grDevices::ps.options(width = 7, height = 7, paper = "a4", reset = TRUE)
-> grDevices::postscript("RobRex-Ex.ps")
->
-> assign("par.postscript", graphics::par(no.readonly = TRUE), pos = "CheckExEnv")
-> options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly"))
+> pkgname <- "RobRex"
+> source(file.path(R.home("share"), "R", "examples-header.R"))
> options(warn = 1)
> library('RobRex')
Loading required package: ROptRegTS
Loading required package: distr
Loading required package: startupmsg
-:startupmsg> Utilities for start-up messages (version 0.7)
+:startupmsg> Utilities for start-up messages (version 0.7.1)
:startupmsg>
:startupmsg> For more information see ?"startupmsg",
:startupmsg> NEWS("startupmsg")
@@ -97,7 +33,7 @@
Loading required package: sfsmisc
Loading required package: SweaveListingUtils
:SweaveListingUtils> Utilities for Sweave together with
-:SweaveListingUtils> TeX listings package (version 0.4)
+:SweaveListingUtils> TeX listings package (version 0.5)
:SweaveListingUtils>
:SweaveListingUtils> Some functions from package 'base'
:SweaveListingUtils> are intentionally masked ---see
@@ -118,14 +54,12 @@
Attaching package: 'SweaveListingUtils'
+The following object(s) are masked from 'package:base':
- The following object(s) are masked from package:base :
+ library, require
- library,
- require
-
-:distr> Object orientated implementation of distributions (version
-:distr> 2.2)
+:distr> Object oriented implementation of distributions (version
+:distr> 2.3)
:distr>
:distr> Attention: Arithmetics on distribution objects are
:distr> understood as operations on corresponding random variables
@@ -146,25 +80,21 @@
Attaching package: 'distr'
+The following object(s) are masked from 'package:stats':
- The following object(s) are masked from package:stats :
+ df, qqplot, sd
- df,
- qqplot,
- sd
-
Loading required package: distrEx
Loading required package: evd
Loading required package: actuar
Attaching package: 'actuar'
+The following object(s) are masked from 'package:grDevices':
- The following object(s) are masked from package:grDevices :
+ cm
- cm
-
-:distrEx> Extensions of package distr (version 2.2)
+:distrEx> Extensions of package distr (version 2.3)
:distrEx>
:distrEx> Note: Packages "e1071", "moments", "fBasics" should be
:distrEx> attached /before/ package "distrEx". See distrExMASK().
@@ -179,16 +109,12 @@
Attaching package: 'distrEx'
+The following object(s) are masked from 'package:stats':
- The following object(s) are masked from package:stats :
+ IQR, mad, median, var
- IQR,
- mad,
- median,
- var
-
Loading required package: RandVar
-:RandVar> Implementation of random variables (version 0.7)
+:RandVar> Implementation of random variables (version 0.8)
:RandVar>
:RandVar> For more information see ?"RandVar", NEWS("RandVar"), as
:RandVar> well as
@@ -200,15 +126,14 @@
Attaching package: 'ROptEstOld'
+The following object(s) are masked from 'package:graphics':
- The following object(s) are masked from package:graphics :
+ clip
- clip
-
>
> assign(".oldSearch", search(), pos = 'CheckExEnv')
-> assign(".oldNS", loadedNamespaces(), pos = 'CheckExEnv')
-> cleanEx(); nameEx("rgsOptIC.AL")
+> cleanEx()
+> nameEx("rgsOptIC.AL")
> ### * rgsOptIC.AL
>
> flush(stderr()); flush(stdout())
@@ -223,13 +148,13 @@
> K <- DiscreteDistribution(1:5) # = Unif({1,2,3,4,5})
> IC1 <- rgsOptIC.AL(r = 0.1, K = K)
> checkIC(IC1)
-precision of centering: 0 -4.83286e-07
+precision of centering: 0 -3.840492e-07
precision of Fisher consistency:
[,1] [,2]
-[1,] -1.083822e-06 0.000000e+00
-[2,] 0.000000e+00 -1.488624e-05
+[1,] -3.855975e-07 0.000000e+00
+[2,] 0.000000e+00 -1.373856e-05
maximum deviation
- 1.488624e-05
+ 1.373856e-05
> Risks(IC1)
$asMSE
[1] 0.6923324
@@ -251,7 +176,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.ALc")
+> cleanEx()
+> nameEx("rgsOptIC.ALc")
> ### * rgsOptIC.ALc
>
> flush(stderr()); flush(stdout())
@@ -266,13 +192,13 @@
> K <- DiscreteDistribution(1:5) # = Unif({1,2,3,4,5})
> IC1 <- rgsOptIC.ALc(r = 0.1, K = K)
> checkIC(IC1)
-precision of conditional centering: 9.851877e-07
+precision of conditional centering: 7.056188e-06
precision of Fisher consistency:
[,1] [,2]
-[1,] -1.061903e-06 0.000000e+00
-[2,] 0.000000e+00 -5.374509e-05
+[1,] -7.066811e-06 0.000000e+00
+[2,] 0.000000e+00 -5.259399e-05
maximum deviation
- 5.374509e-05
+ 5.259399e-05
> Risks(IC1)
$asMSE
[1] 0.6923343
@@ -286,7 +212,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.ALs")
+> cleanEx()
+> nameEx("rgsOptIC.ALs")
> ### * rgsOptIC.ALs
>
> flush(stderr()); flush(stdout())
@@ -309,7 +236,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.BM")
+> cleanEx()
+> nameEx("rgsOptIC.BM")
> ### * rgsOptIC.BM
>
> flush(stderr()); flush(stdout())
@@ -331,7 +259,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.M")
+> cleanEx()
+> nameEx("rgsOptIC.M")
> ### * rgsOptIC.M
>
> flush(stderr()); flush(stdout())
@@ -353,7 +282,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.MK")
+> cleanEx()
+> nameEx("rgsOptIC.MK")
> ### * rgsOptIC.MK
>
> flush(stderr()); flush(stdout())
@@ -375,7 +305,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.Mc")
+> cleanEx()
+> nameEx("rgsOptIC.Mc")
> ### * rgsOptIC.Mc
>
> flush(stderr()); flush(stdout())
@@ -397,7 +328,8 @@
>
>
>
-> cleanEx(); nameEx("rgsOptIC.Ms")
+> cleanEx()
+> nameEx("rgsOptIC.Ms")
> ### * rgsOptIC.Ms
>
> flush(stderr()); flush(stdout())
@@ -422,7 +354,7 @@
> ### * <FOOTER>
> ###
> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 15.664 0.132 18.409 0.004 0.004
+Time elapsed: 10.59 0.03 10.66 0 0
> grDevices::dev.off()
null device
1
More information about the Robast-commits
mailing list