[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