[Robast-commits] r443 - in pkg/RobAStBase: . tests/Examples

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Jan 5 19:34:04 CET 2011


Author: stamats
Date: 2011-01-05 19:34:04 +0100 (Wed, 05 Jan 2011)
New Revision: 443

Modified:
   pkg/RobAStBase/DESCRIPTION
   pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save
Log:
updated RobAStBase-Ex.Rout.save files to R 2.12.1 patched, added 'Suggests: ROptEst' to DESCRIPTION file

Modified: pkg/RobAStBase/DESCRIPTION
===================================================================
--- pkg/RobAStBase/DESCRIPTION	2011-01-05 18:04:39 UTC (rev 442)
+++ pkg/RobAStBase/DESCRIPTION	2011-01-05 18:34:04 UTC (rev 443)
@@ -5,6 +5,7 @@
 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)
+Suggests: ROptEst
 Author: Matthias Kohl, Peter Ruckdeschel
 Maintainer: Matthias Kohl <Matthias.Kohl at stamats.de>
 LazyLoad: yes

Modified: pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save
===================================================================
--- pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save	2011-01-05 18:04:39 UTC (rev 442)
+++ pkg/RobAStBase/tests/Examples/RobAStBase-Ex.Rout.save	2011-01-05 18:34:04 UTC (rev 443)
@@ -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,78 +18,13 @@
 '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("RobAStBase-Ex.ps")
-> 
-> assign("par.postscript", graphics::par(no.readonly = TRUE), pos = "CheckExEnv")
-> options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly"))
+> pkgname <- "RobAStBase"
+> source(file.path(R.home("share"), "R", "examples-header.R"))
 > options(warn = 1)
 > library('RobAStBase')
 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")
@@ -96,7 +32,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
@@ -117,14 +53,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
@@ -145,25 +79,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().
@@ -178,17 +108,13 @@
 
 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: distrMod
 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
@@ -198,8 +124,8 @@
 
 Loading required package: MASS
 Loading required package: stats4
-:distrMod>  Object orientated implementation of probability models
-:distrMod>  (version 2.2)
+:distrMod>  Object oriented implementation of probability models
+:distrMod>  (version 2.3)
 :distrMod> 
 :distrMod>  Some functions from pkg's 'base' and 'stats' are
 :distrMod>  intentionally masked ---see distrModMASK().
@@ -210,24 +136,29 @@
 :distrMod>  For more information see ?"distrMod",
 :distrMod>  NEWS("distrMod"), as well as
 :distrMod>    http://distr.r-forge.r-project.org/
-:distrMod>  Package "distrDoc" provides a vignette to this package
+:distrMod>  There is a vignette to this package; try
+:distrMod>  vignette("distrMod").
+:distrMod>  Package "distrDoc" provides a vignette to the other
+:distrMod>  distrXXX packages,
 :distrMod>  as well as to several related packages; try
 :distrMod>  vignette("distr").
 
 
 Attaching package: 'distrMod'
 
+The following object(s) are masked from 'package:stats4':
 
-	The following object(s) are masked from package:stats4 :
+    confint
 
-	 confint 
+The following object(s) are masked from 'package:stats':
 
+    confint
 
-	The following object(s) are masked from package:stats :
+The following object(s) are masked from 'package:base':
 
-	 confint 
+    norm
 
-:RobAStBase>  Robust Asymptotic Statistics (version 0.7)
+:RobAStBase>  Robust Asymptotic Statistics (version 0.8)
 :RobAStBase> 
 :RobAStBase>  Some functions from pkg's 'stats' and 'graphics'
 :RobAStBase>  are intentionally masked ---see RobAStBaseMASK().
@@ -242,20 +173,18 @@
 
 Attaching package: 'RobAStBase'
 
+The following object(s) are masked from 'package:stats':
 
-	The following object(s) are masked from package:stats :
+    start
 
-	 start 
+The following object(s) are masked from 'package:graphics':
 
+    clip
 
-	The following object(s) are masked from package:graphics :
-
-	 clip 
-
 > 
 > assign(".oldSearch", search(), pos = 'CheckExEnv')
-> assign(".oldNS", loadedNamespaces(), pos = 'CheckExEnv')
-> cleanEx(); nameEx("0RobAStBase-package")
+> cleanEx()
+> nameEx("0RobAStBase-package")
 > ### * 0RobAStBase-package
 > 
 > flush(stderr()); flush(stdout())
@@ -285,7 +214,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("ALEstimate-class")
+> cleanEx()
+> nameEx("ALEstimate-class")
 > ### * ALEstimate-class
 > 
 > flush(stderr()); flush(stdout())
@@ -316,7 +246,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("BdStWeight-class")
+> cleanEx()
+> nameEx("BdStWeight-class")
 > ### * BdStWeight-class
 > 
 > flush(stderr()); flush(stdout())
@@ -331,7 +262,7 @@
 > 
 > ## prototype
 > new("BdStWeight")
-An object of class “BdStWeight”
+An object of class "BdStWeight"
 Slot "stand":
      [,1]
 [1,]    1
@@ -350,7 +281,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("BoundedWeight-class")
+> cleanEx()
+> nameEx("BoundedWeight-class")
 > ### * BoundedWeight-class
 > 
 > flush(stderr()); flush(stdout())
@@ -365,7 +297,7 @@
 > 
 > ## prototype
 > new("BoundedWeight")
-An object of class “BoundedWeight”
+An object of class "BoundedWeight"
 Slot "clip":
 [1] 1
 
@@ -380,7 +312,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("ContIC-class")
+> cleanEx()
+> nameEx("ContIC-class")
 > ### * ContIC-class
 > 
 > flush(stderr()); flush(stdout())
@@ -401,7 +334,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("ContIC")
+> cleanEx()
+> nameEx("ContIC")
 > ### * ContIC
 > 
 > flush(stderr()); flush(stdout())
@@ -418,7 +352,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("ContNeighborhood-class")
+> cleanEx()
+> nameEx("ContNeighborhood-class")
 > ### * ContNeighborhood-class
 > 
 > flush(stderr()); flush(stdout())
@@ -437,7 +372,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("ContNeighborhood")
+> cleanEx()
+> nameEx("ContNeighborhood")
 > ### * ContNeighborhood
 > 
 > flush(stderr()); flush(stdout())
@@ -465,7 +401,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("FixRobModel-class")
+> cleanEx()
+> nameEx("FixRobModel-class")
 > ### * FixRobModel-class
 > 
 > flush(stderr()); flush(stdout())
@@ -497,7 +434,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("FixRobModel")
+> cleanEx()
+> nameEx("FixRobModel")
 > ### * FixRobModel
 > 
 > flush(stderr()); flush(stdout())
@@ -537,7 +475,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("HampIC-class")
+> cleanEx()
+> nameEx("HampIC-class")
 > ### * HampIC-class
 > 
 > flush(stderr()); flush(stdout())
@@ -557,7 +496,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("HampelWeight-class")
+> cleanEx()
+> nameEx("HampelWeight-class")
 > ### * HampelWeight-class
 > 
 > flush(stderr()); flush(stdout())
@@ -572,7 +512,7 @@
 > 
 > ## prototype
 > new("HampelWeight")
-An object of class “HampelWeight”
+An object of class "HampelWeight"
 Slot "cent":
 [1] 0
 
@@ -594,7 +534,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("IC-class")
+> cleanEx()
+> nameEx("IC-class")
 > ### * IC-class
 > 
 > flush(stderr()); flush(stdout())
@@ -614,7 +555,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("IC")
+> cleanEx()
+> nameEx("IC")
 > ### * IC
 > 
 > flush(stderr()); flush(stdout())
@@ -631,7 +573,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("InfRobModel-class")
+> cleanEx()
+> nameEx("InfRobModel-class")
 > ### * InfRobModel-class
 > 
 > flush(stderr()); flush(stdout())
@@ -663,7 +606,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("InfRobModel")
+> cleanEx()
+> nameEx("InfRobModel")
 > ### * InfRobModel
 > 
 > flush(stderr()); flush(stdout())
@@ -703,7 +647,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("InfluenceCurve-class")
+> cleanEx()
+> nameEx("InfluenceCurve-class")
 > ### * InfluenceCurve-class
 > 
 > flush(stderr()); flush(stdout())
@@ -737,7 +682,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("InfluenceCurve")
+> cleanEx()
+> nameEx("InfluenceCurve")
 > ### * InfluenceCurve
 > 
 > flush(stderr()); flush(stdout())
@@ -779,7 +725,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("MEstimate-class")
+> cleanEx()
+> nameEx("MEstimate-class")
 > ### * MEstimate-class
 > 
 > flush(stderr()); flush(stdout())
@@ -808,7 +755,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("RobAStBaseMASK")
+> cleanEx()
+> nameEx("RobAStBaseMASK")
 > ### * RobAStBaseMASK
 > 
 > flush(stderr()); flush(stdout())
@@ -843,14 +791,15 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("RobAStBaseOptions")
+> cleanEx()
+> nameEx("RobAStBaseOptions")
 > ### * RobAStBaseOptions
 > 
 > flush(stderr()); flush(stdout())
 > 
 > ### Name: RobAStBaseOptions
 > ### Title: Function to change the global variables of the package
-> ###   `RobAStBase'
+> ###   'RobAStBase'
 > ### Aliases: RobAStBaseOptions getRobAStBaseOption kStepUseLast
 > ### Keywords: misc robust
 > 
@@ -887,7 +836,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("RobWeight-class")
+> cleanEx()
+> nameEx("RobWeight-class")
 > ### * RobWeight-class
 > 
 > flush(stderr()); flush(stdout())
@@ -903,7 +853,7 @@
 > 
 > ## prototype
 > new("RobWeight")
-An object of class “RobWeight”
+An object of class "RobWeight"
 Slot "name":
 [1] "some weight"
 
@@ -915,7 +865,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("TotalVarIC-class")
+> cleanEx()
+> nameEx("TotalVarIC-class")
 > ### * TotalVarIC-class
 > 
 > flush(stderr()); flush(stdout())
@@ -938,7 +889,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("TotalVarIC")
+> cleanEx()
+> nameEx("TotalVarIC")
 > ### * TotalVarIC
 > 
 > flush(stderr()); flush(stdout())
@@ -955,7 +907,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("TotalVarNeighborhood-class")
+> cleanEx()
+> nameEx("TotalVarNeighborhood-class")
 > ### * TotalVarNeighborhood-class
 > 
 > flush(stderr()); flush(stdout())
@@ -974,7 +927,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("TotalVarNeighborhood")
+> cleanEx()
+> nameEx("TotalVarNeighborhood")
 > ### * TotalVarNeighborhood
 > 
 > flush(stderr()); flush(stdout())
@@ -1002,7 +956,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("checkIC")
+> cleanEx()
+> nameEx("checkIC")
 > ### * checkIC
 > 
 > flush(stderr()); flush(stdout())
@@ -1025,7 +980,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("comparePlot")
+> cleanEx()
+> nameEx("comparePlot")
 > ### * comparePlot
 > 
 > flush(stderr()); flush(stdout())
@@ -1090,7 +1046,11 @@
 > 
 > 
 > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> cleanEx(); nameEx("cutoff-class")
+> cleanEx()
+
+detaching ‘package:ROptEst’
+
+> nameEx("cutoff-class")
 > ### * cutoff-class
 > 
 > flush(stderr()); flush(stdout())
@@ -1105,7 +1065,7 @@
 > ### ** Examples
 > 
 > cutoff()
-An object of class “cutoff”
+An object of class "cutoff"
 Slot "name":
 [1] "empirical"
 
@@ -1119,7 +1079,7 @@
     }
     quantile(slot(norm, "fct")(data), cutoff.quantile)
 }
-<environment: 0x97faf80>
+<environment: 0x7266808>
 
 Slot "cutoff.quantile":
 [1] 0.95
@@ -1127,7 +1087,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("cutoff")
+> cleanEx()
+> nameEx("cutoff")
 > ### * cutoff
 > 
 > flush(stderr()); flush(stdout())
@@ -1140,7 +1101,7 @@
 > ### ** Examples
 > 
 > cutoff()
-An object of class “cutoff”
+An object of class "cutoff"
 Slot "name":
 [1] "empirical"
 
@@ -1154,13 +1115,13 @@
     }
     quantile(slot(norm, "fct")(data), cutoff.quantile)
 }
-<environment: 0x8571d20>
+<environment: 0x71cf950>
 
 Slot "cutoff.quantile":
 [1] 0.95
 
 > cutoff.sememp()
-An object of class “cutoff”
+An object of class "cutoff"
 Slot "name":
 [1] "semi-empirical"
 
@@ -1179,13 +1140,13 @@
         quantile((rowSums(N0^2))^0.5, cutoff.quantile)
     }
 }
-<environment: 0x971e850>
+<environment: 0x7170648>
 
 Slot "cutoff.quantile":
 [1] 0.95
 
 > cutoff.chisq()
-An object of class “cutoff”
+An object of class "cutoff"
 Slot "name":
 [1] "chisq"
 
@@ -1202,7 +1163,7 @@
         qchisq(df = dim, cutoff.quantile)^0.5
     }
 }
-<environment: 0x863dc88>
+<environment: 0x707c890>
 
 Slot "cutoff.quantile":
 [1] 0.95
@@ -1210,13 +1171,14 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("ddPlot-methods")
+> cleanEx()
+> nameEx("ddPlot-methods")
 > ### * ddPlot-methods
 > 
 > flush(stderr()); flush(stdout())
 > 
 > ### Name: ddPlot-methods
-> ### Title: Methods for Function ddPlot in Package `RobAStBase'
+> ### Title: Methods for Function ddPlot in Package 'RobAStBase'
 > ### Aliases: ddPlot ddPlot-methods ddPlot,matrix-method
 > ###   ddPlot,numeric-method ddPlot,data.frame-method
 > ### Keywords: methods hplot
@@ -1226,6 +1188,9 @@
 > 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)))
+NULL
+[1] 1
+[1] "black"
 $id.x
  [1]  35  75  81  83 103 134 141 156 161 195 201 216 241
 
@@ -1254,7 +1219,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("infoPlot")
+> cleanEx()
+> nameEx("infoPlot")
 > ### * infoPlot
 > 
 > flush(stderr()); flush(stdout())
@@ -1299,7 +1265,8 @@
 > 
 > 
 > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> cleanEx(); nameEx("internals_ddPlot")
+> cleanEx()
+> nameEx("internals_ddPlot")
 > ### * internals_ddPlot
 > 
 > flush(stderr()); flush(stdout())
@@ -1319,6 +1286,41 @@
 +         lwd=2, lwd.cutoff=4, lty=2, col.cutoff =2, col.idn="green",
 +         col = "blue", adj=0.4, pos=4,id.n = sample(1:200,size=100),
 +         lab.pts=letters,log="x", main="GA", sub="NO",cex.sub=0.2)
+$xlab
+[1] "Norm.x"
+
+$ylab
+[1] "Norm.y"
+
+$offset
+[1] 0
+
+$lwd
+[1] 2
+
+$lty
+[1] 2
+
+$col
+[1] "blue"
+
+$pos
+[1] 4
+
+$log
+[1] "x"
+
+$main
+[1] "GA"
+
+$sub
+[1] "NO"
+
+$cex.sub
+[1] 0.2
+
+[1] 1.3
+[1] "green"
 $id.x
 [1]  83 161 156 134  81 177
 
@@ -1347,7 +1349,8 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("kStepEstimator")
+> cleanEx()
+> nameEx("kStepEstimator")
 > ### * kStepEstimator
 > 
 > flush(stderr()); flush(stdout())
@@ -1422,7 +1425,11 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("makeIC-methods")
+> cleanEx()
+
+detaching ‘package:ROptEst’
+
+> nameEx("makeIC-methods")
 > ### * makeIC-methods
 > 
 > flush(stderr()); flush(stdout())
@@ -1431,7 +1438,8 @@
 > ### Title: Generic Function for making ICs consistent at a possibly
 > ###   different model
 > ### Aliases: makeIC makeIC-methods makeIC,IC,missing-method
-> ###   makeIC,IC,L2ParamFamily-method
+> ###   makeIC,IC,L2ParamFamily-method makeIC,list,L2ParamFamily-method
+> ###   makeIC,function,L2ParamFamily-method
 > ### Keywords: robust
 > 
 > ### ** Examples
@@ -1481,9 +1489,82 @@
 maximum deviation 
      3.091672e-18 
 > 
+> IC4 <- makeIC(sin, B)
+$Curve
+An object of class “EuclRandVarList” 
+Domain:	Real Space with dimension 1 
+[[1]]
+length of Map:	 1 
+Range:	Real Space with dimension 1 
+
+$CallL2Fam
+L2Fam at fam.call
+
+An object of class “IC” 
+### name:	 square integrable (partial) influence curve 
+### L2-differentiable parametric family:	 Binomial family 
+
+### 'Curve':	An object of class “EuclRandVarList” 
+Domain:	Real Space with dimension 1 
+[[1]]
+length of Map:	 1 
+Range:	Real Space with dimension 1 
+
+### Infos:
+     method message
+> checkIC(IC4)
+precision of centering:	 2.715274e-17 
+precision of Fisher consistency:
+              prob
+prob -1.110223e-16
+maximum deviation 
+     1.110223e-16 
 > 
+> (IC5 <- makeIC(list(function(x)x^3), B, name="a try"))
+An object of class “IC” 
+### name:	 a try 
+### L2-differentiable parametric family:	 Binomial family 
+
+### 'Curve':	An object of class “EuclRandVarList” 
+Domain:	Real Space with dimension 1 
+[[1]]
+length of Map:	 1 
+Range:	Real Space with dimension 1 
+
+### Infos:
+     method message                                                  
+[1,] "IC<-" "generated by affine linear trafo to enforce consistency"
+> plot(IC5)
+> checkIC(IC5)
+precision of centering:	 2.565774e-17 
+precision of Fisher consistency:
+     prob
+prob    0
+maximum deviation 
+     2.565774e-17 
 > 
-> cleanEx(); nameEx("optIC")
+> N0 <- NormLocationScaleFamily()
+> IC6 <- makeIC(list(sin,cos),N0)
+> plot(IC6)
+> checkIC(IC6)
+precision of centering:	 0 -1.999999e-07 
+precision of Fisher consistency:
+              mean           sd
+mean -2.220446e-16 0.000000e+00
+sd    0.000000e+00 2.220446e-16
+maximum deviation 
+     1.999999e-07 
+> 
+> getRiskIC(IC6,risk=trAsCov())$trAsCov$value
+[1] 1.718278
+> getRiskIC(IC6,risk=asBias(),neighbor=ContNeighborhood())$asBias$value
+[1] 2.648721
+> 
+> 
+> 
+> 
+> cleanEx()
+> nameEx("optIC")
 > ### * optIC
 > 
 > flush(stderr()); flush(stdout())
@@ -1510,13 +1591,14 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("outlyingPlotIC")
+> cleanEx()
+> nameEx("outlyingPlotIC")
 > ### * outlyingPlotIC
 > 
 > flush(stderr()); flush(stdout())
 > 
 > ### Name: outlyingPlotIC
-> ### Title: Function outlyingPlotIC in Package `RobAStBase'
+> ### Title: Function outlyingPlotIC in Package 'RobAStBase'
 > ### Aliases: outlyingPlotIC
 > ### Keywords: hplot
 > 
@@ -1533,6 +1615,28 @@
 + outlyingPlotIC(xn, IC.x=N0.IC1)
 + }
 Loading required package: ROptEst
+$xlim
+[1] TRUE
+
+$ylim
+[1] TRUE
+
+$main
+[1] "Outlyingness by means of a distance-distance plot"
+
+[1] 1
+[1] "black"
+$xlim
+[1] TRUE
+
+$ylim
+[1] TRUE
+
+$main
+[1] "Outlyingness by means of a distance-distance plot"
+
+[1] 1
+[1] "black"
 $id.x
 integer(0)
 
@@ -1544,7 +1648,7 @@
 
 $qtx
        0%       25%       50%       75%      100% 
-0.8655423 0.9150693 1.1443918 1.9218962 1.9218963 
+0.8655423 0.9150694 1.1443920 1.9218964 1.9218966 
 
 $qty
       0%      25%      50%      75%     100% 
@@ -1560,13 +1664,17 @@
 > 
 > 
 > 
-> cleanEx(); nameEx("plot-methods")
+> cleanEx()
+
+detaching ‘package:ROptEst’
+
+> nameEx("plot-methods")
 > ### * plot-methods
 > 
 > flush(stderr()); flush(stdout())
 > 
 > ### Name: plot-methods
-> ### Title: Methods for Function plot in Package `RobAStBase'
+> ### Title: Methods for Function plot in Package 'RobAStBase'
 > ### Aliases: plot plot-methods plot,IC,missing-method
 > ###   plot,IC,numeric-method
 > ### Keywords: methods distribution
@@ -1603,13 +1711,14 @@
 > 
 > 
 > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> cleanEx(); nameEx("qqplot")
+> cleanEx()
+> nameEx("qqplot")
 > ### * qqplot
 > 
 > flush(stderr()); flush(stdout())
 > 
 > ### Name: qqplot
-> ### Title: Methods for Function qqplot in Package `RobAStBase'
+> ### Title: Methods for Function qqplot in Package 'RobAStBase'
 > ### Aliases: qqplot qqplot-methods qqplot,ANY,RobModel-method
 > ###   qqplot,ANY,InfRobModel-method qqplot,ANY,kStepEstimate-method
 > ### Keywords: hplot distribution
@@ -1647,6 +1756,17 @@
  [8] 11.886518 12.631262 13.368738 14.113482 14.881078 15.690666 16.569064
 [15] 17.559339 18.743000 20.318117 23.130613
 
+> qqplot(x, RobM, alpha.CI=0.9)
+$x
+ [1]  8.814224  9.497963 11.149040 11.375858 12.278782 13.355490 13.955754
+ [8] 14.231792 14.377338 16.875949 17.029301 17.435943 18.078416 18.489453
+[15] 19.071074 19.680944 22.493351 25.847097
+
+$y
+ [1]  2.869387  5.681883  7.257000  8.440661  9.430936 10.309334 11.118922
+ [8] 11.886518 12.631262 13.368738 14.113482 14.881078 15.690666 16.569064
+[15] 17.559339 18.743000 20.318117 23.130613
+
 > ## further examples for ANY,kStepEstimator-method
 > ## in example to roptest() in package ROptEst
 > 
@@ -1655,7 +1775,7 @@
 > ### * <FOOTER>
 > ###
 > cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  88.217 0.196 90.784 0.008 0.008 
+Time elapsed:  83.43 0.1 83.867 0 0 
 > grDevices::dev.off()
 null device 
           1 



More information about the Robast-commits mailing list