[Distr-commits] r1209 - in pkg: distrEllipse/tests/Examples distrMod/tests/Examples distrRmetrics/tests/Examples distrSim/tests/Examples distrTEst/tests/Examples distrTeach/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Jul 23 13:21:09 CEST 2018
Author: ruckdeschel
Date: 2018-07-23 13:21:08 +0200 (Mon, 23 Jul 2018)
New Revision: 1209
Modified:
pkg/distrEllipse/tests/Examples/distrEllipse-Ex.Rout.save
pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
pkg/distrRmetrics/tests/Examples/distrRmetrics-Ex.Rout.save
pkg/distrSim/tests/Examples/distrSim-Ex.Rout.save
pkg/distrTEst/tests/Examples/distrTEst-Ex.Rout.save
pkg/distrTeach/tests/Examples/distrTeach-Ex.Rout.save
Log:
trunk : after submission of 2.7.0, updated the *-Ex.Rout.save files
Modified: pkg/distrEllipse/tests/Examples/distrEllipse-Ex.Rout.save
===================================================================
--- pkg/distrEllipse/tests/Examples/distrEllipse-Ex.Rout.save 2018-07-21 23:05:03 UTC (rev 1208)
+++ pkg/distrEllipse/tests/Examples/distrEllipse-Ex.Rout.save 2018-07-23 11:21:08 UTC (rev 1209)
@@ -1,6 +1,6 @@
-R Under development (unstable) (2016-04-22 r70532) -- "Unsuffered Consequences"
-Copyright (C) 2016 The R Foundation for Statistical Computing
+R version 3.5.1 RC (2018-06-24 r74935) -- "Feather Spray"
+Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: i386-w64-mingw32/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -21,54 +21,31 @@
> source(file.path(R.home("share"), "R", "examples-header.R"))
> options(warn = 1)
> options(pager = "console")
+> base::assign(".ExTimings", "distrEllipse-Ex.timings", pos = 'CheckExEnv')
+> base::cat("name\tuser\tsystem\telapsed\n", file=base::get(".ExTimings", pos = 'CheckExEnv'))
+> base::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]
++ options(OutDec = '.')
++ format(x[1L:3L], digits = 7L)
++ },
++ pos = 'CheckExEnv')
+>
+> ### * </HEADER>
> library('distrEllipse')
Loading required package: mvtnorm
Loading required package: setRNG
Loading required package: distr
Loading required package: startupmsg
-:startupmsg> Utilities for Start-Up Messages (version 0.9.3)
+:startupmsg> Utilities for Start-Up Messages (version 0.9.5)
:startupmsg>
:startupmsg> For more information see ?"startupmsg",
:startupmsg> NEWS("startupmsg")
Loading required package: sfsmisc
-Loading required package: SweaveListingUtils
-:SweaveListingUtils> Utilities for Sweave Together with
-:SweaveListingUtils> TeX 'listings' Package (version
-:SweaveListingUtils> 0.7.3)
-: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().
-:SweaveListingUtils>
-:SweaveListingUtils> Note that global options are
-:SweaveListingUtils> controlled by
-:SweaveListingUtils> SweaveListingoptions() ---c.f.
-:SweaveListingUtils> ?"SweaveListingoptions".
-:SweaveListingUtils>
-:SweaveListingUtils> For more information see
-:SweaveListingUtils> ?"SweaveListingUtils",
-:SweaveListingUtils> NEWS("SweaveListingUtils")
-:SweaveListingUtils> There is a vignette to this
-:SweaveListingUtils> package; try
-:SweaveListingUtils> vignette("ExampleSweaveListingUtils").
-
-
-Attaching package: 'SweaveListingUtils'
-
-The following objects are masked from 'package:base':
-
- library, require
-
:distr> Object Oriented Implementation of Distributions (version
-:distr> 2.6)
+:distr> 2.8.0)
:distr>
:distr> Attention: Arithmetics on distribution objects are
:distr> understood as operations on corresponding random variables
@@ -94,7 +71,7 @@
df, qqplot, sd
Loading required package: distrEx
-:distrEx> Extensions of Package 'distr' (version 2.6)
+:distrEx> Extensions of Package 'distr' (version 2.7.0)
:distrEx>
:distrEx> Note: Packages "e1071", "moments", "fBasics" should be
:distrEx> attached /before/ package "distrEx". See
@@ -119,7 +96,7 @@
Loading required package: distrSim
:distrSim> Simulation Classes Based on Package 'distr' (version
-:distrSim> 2.6)
+:distrSim> 2.7.0)
:distrSim>
:distrSim> Some functions from package 'stats' are intentionally
:distrSim> masked ---see distrSimMASK().
@@ -144,7 +121,7 @@
rbind
:distrEllipse> S4 Classes for Elliptically Contoured
-:distrEllipse> Distributions (version 2.6.1)
+:distrEllipse> Distributions (version 2.7.0)
:distrEllipse>
:distrEllipse> Some functions from package 'stats' are
:distrEllipse> intentionally masked ---see
@@ -160,12 +137,14 @@
>
> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
+> base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv')
> cleanEx()
> nameEx("EllipticalDistribution-class")
> ### * EllipticalDistribution-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EllipticalDistribution-class
> ### Title: Elliptical distribution class
> ### Aliases: EllipticalDistribution-class
@@ -198,12 +177,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("EllipticalDistribution-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EllipticalDistribution")
> ### * EllipticalDistribution
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EllipticalDistribution
> ### Title: Generating function for EllipticalDistribution-class
> ### Aliases: EllipticalDistribution
@@ -224,12 +206,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("EllipticalDistribution", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EllipticalParameter-class")
> ### * EllipticalParameter-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EllipticalParameter-class
> ### Title: Paramter of an Elliptical distributions
> ### Aliases: EllipticalParameter-class location
@@ -257,12 +242,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("EllipticalParameter-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MVnormDistribution-class")
> ### * MVnormDistribution-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MVNormDistribution-class
> ### Title: MVNorm distribution class
> ### Aliases: MVNormDistribution-class sigma,MVNormDistribution-method
@@ -284,12 +272,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MVnormDistribution-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MVnormDistribution")
> ### * MVnormDistribution
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MVNormDistribution
> ### Title: Generating function for MVNormDistribution-class
> ### Aliases: MVNormDistribution MVNorm
@@ -310,12 +301,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MVnormDistribution", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MVnormParameter-class")
> ### * MVnormParameter-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MVNormParameter-class
> ### Title: Paramter of a multivariate normal distribution
> ### Aliases: MVNormParameter-class mean mean,MVNormParameter-method sigma
@@ -340,12 +334,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MVnormParameter-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MVtDistribution-class")
> ### * MVtDistribution-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MVtDistribution-class
> ### Title: MVt distribution class
> ### Aliases: MVtDistribution-class sigma,MVtDistribution-method
@@ -369,12 +366,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MVtDistribution-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MVtDistribution")
> ### * MVtDistribution
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MVtDistribution
> ### Title: Generating function for MvtDistribution-class
> ### Aliases: MVtDistribution MVt
@@ -402,12 +402,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MVtDistribution", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MVtParameter-class")
> ### * MVtParameter-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MVtParameter-class
> ### Title: Paramter of a multivariate t distribution
> ### Aliases: MVtParameter-class sigma,MVtParameter-method
@@ -438,12 +441,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MVtParameter-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MultivarDistrList-class")
> ### * MultivarDistrList-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MultivarDistrList-class
> ### Title: List of multivariate distributions
> ### Aliases: MultivarDistrList-class MVDistrList-class
@@ -502,12 +508,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MultivarDistrList-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MultivarDistrList")
> ### * MultivarDistrList
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MultivarDistrList
> ### Title: Generating function for MultivarDistrList-class
> ### Aliases: MultivarDistrList
@@ -564,12 +573,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MultivarDistrList", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MultivarMixingDistribution-class")
> ### * MultivarMixingDistribution-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MultivarMixingDistribution-class
> ### Title: Class "MultivarMixingDistribution"
> ### Aliases: MultivarMixingDistribution-class mixCoeff mixDistr mixCoeff<-
@@ -596,18 +608,8 @@
>
> mylist <- MultivarMixingDistribution(Binom(3,.3), Dirac(2), Norm(),
+ mixCoeff=c(1/4,1/5,11/20))
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
> mylist2 <- MultivarMixingDistribution(Binom(3,.3), mylist,
+ mixCoeff=c(.3,.7))
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
> mylist2
An object of class "UnivarLebDecDistribution"
--- a Lebesgue decomposed distribution:
@@ -619,7 +621,7 @@
Its absolutely continuous part (with weight 0.385000) is a
Distribution Object of Class: AbscontDistribution
This part is accessible with 'acPart(<obj>)'.
-Warning in function (object) :
+Warning in new("standardGeneric", .Data = function (object) :
arithmetics on distributions are understood as operations on r.v.'s
see 'distrARITH()'; for switching off this warning see '?distroptions'
> p(mylist)(0.3)
@@ -628,7 +630,7 @@
An object of class "UnivarDistrList"
[[1]] Distribution Object of Class: AbscontDistribution
[[2]] Distribution Object of Class: DiscreteDistribution
-Warning in function (object) :
+Warning in new("standardGeneric", .Data = function (object) :
arithmetics on distributions are understood as operations on r.v.'s
see 'distrARITH()'; for switching off this warning see '?distroptions'
> E(mylist)
@@ -771,12 +773,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MultivarMixingDistribution-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MultivarMixingDistribution")
> ### * MultivarMixingDistribution
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MultivarMixingDistribution
> ### Title: Generating function for Class "MultivarMixingDistribution"
> ### Aliases: MultivarMixingDistribution
@@ -786,21 +791,18 @@
>
> mylist <- MultivarMixingDistribution(Binom(3,.3), Dirac(2), Norm(),
+ mixCoeff=c(1/4,1/5,11/20))
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
-Warning in `[<-`(`*tmp*`, i, value = as(mixDistr[[i]], "UnivarLebDecDistribution")) :
- implicit list embedding of S4 objects is deprecated
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MultivarMixingDistribution", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("SphericalDistribution-class")
> ### * SphericalDistribution-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: SphericalDistribution-class
> ### Title: Spherical distribution class
> ### Aliases: SphericalDistribution-class scale,SphericalDistribution-method
@@ -811,11 +813,8 @@
> ### radDistr<-,SphericalDistribution-method
> ### plotRd,SphericalDistribution-method rRd,SphericalDistribution-method
> ### dRd,SphericalDistribution-method pRd,SphericalDistribution-method
-> ### qRd,SphericalDistribution-method plot.rd,SphericalDistribution-method
-> ### r.rd,SphericalDistribution-method d.rd,SphericalDistribution-method
-> ### p.rd,SphericalDistribution-method q.rd,SphericalDistribution-method
-> ### radDistr radDistr<- plot.rd r.rd d.rd p.rd q.rd plotRd rRd dRd pRd
-> ### qRd E,SphericalDistribution,missing,missing-method
+> ### qRd,SphericalDistribution-method radDistr radDistr<- plotRd rRd dRd
+> ### pRd qRd E,SphericalDistribution,missing,missing-method
> ### var,SphericalDistribution-method
> ### coerce,SphericalDistribution,EllipticalDistribution-method
> ### show,SphericalDistribution-method
@@ -840,12 +839,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("SphericalDistribution-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("SphericalDistribution")
> ### * SphericalDistribution
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: SphericalDistribution
> ### Title: Generating function for SphericalDistribution-class
> ### Aliases: SphericalDistribution
@@ -866,12 +868,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("SphericalDistribution", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("distrEllipseMASK")
> ### * distrEllipseMASK
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: distrEllipseMASK
> ### Title: Masking of/by other functions in package "distrEllipse"
> ### Aliases: distrEllipseMASK MASKING
@@ -891,12 +896,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("distrEllipseMASK", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("distrEllipseoptions")
> ### * distrEllipseoptions
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: distrEllipseoptions
> ### Title: functions to change the global variables of the package
> ### 'distrEllipse'
@@ -928,12 +936,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("distrEllipseoptions", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("plot-methods")
> ### * plot-methods
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: plot-methods
> ### Title: Methods for Function plot in Package 'distrEllipse'
> ### Aliases: plot plot-methods plot,SphericalDistribution,missing-method
@@ -951,11 +962,14 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("plot-methods", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> ### * <FOOTER>
> ###
+> cleanEx()
> options(digits = 7L)
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 4.68 0.13 4.8 NA NA
+Time elapsed: 6.74 0.31 7.07 NA NA
> grDevices::dev.off()
null device
1
Modified: pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
===================================================================
--- pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save 2018-07-21 23:05:03 UTC (rev 1208)
+++ pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save 2018-07-23 11:21:08 UTC (rev 1209)
@@ -1,3095 +1,3307 @@
-
-R version 3.5.1 Patched (2018-07-02 r74950) -- "Feather Spray"
-Copyright (C) 2018 The R Foundation for Statistical Computing
-Platform: x86_64-pc-linux-gnu (64-bit)
-
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
-Type 'license()' or 'licence()' for distribution details.
-
- Natural language support but running in an English locale
-
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
-'citation()' on how to cite R or R packages in publications.
-
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
-Type 'q()' to quit R.
-
-> pkgname <- "distrMod"
-> source(file.path(R.home("share"), "R", "examples-header.R"))
-> options(warn = 1)
-> library('distrMod')
-Loading required package: distr
-Loading required package: startupmsg
-:startupmsg> Utilities for Start-Up Messages (version 0.9.4)
-:startupmsg>
-:startupmsg> For more information see ?"startupmsg",
-:startupmsg> NEWS("startupmsg")
-
-Loading required package: sfsmisc
-:distr> Object Oriented Implementation of Distributions (version
-:distr> 2.7.0)
-:distr>
-:distr> Attention: Arithmetics on distribution objects are
-:distr> understood as operations on corresponding random variables
-:distr> (r.v.s); see distrARITH().
-:distr>
-:distr> Some functions from package 'stats' are intentionally masked
-:distr> ---see distrMASK().
-:distr>
-:distr> Note that global options are controlled by distroptions()
-:distr> ---c.f. ?"distroptions".
-:distr>
-:distr> For more information see ?"distr", NEWS("distr"), as well as
-:distr> http://distr.r-forge.r-project.org/
-:distr> Package "distrDoc" provides a vignette to this package as
-:distr> well as to several extension packages; try
-:distr> vignette("distr").
-
-
-Attaching package: ‘distr’
-
-The following objects are masked from ‘package:stats’:
-
- df, qqplot, sd
-
-Loading required package: distrEx
-:distrEx> Extensions of Package 'distr' (version 2.7.0)
-:distrEx>
-:distrEx> Note: Packages "e1071", "moments", "fBasics" should be
-:distrEx> attached /before/ package "distrEx". See
-:distrEx> distrExMASK().Note: Extreme value distribution
-:distrEx> functionality has been moved to
-:distrEx>
-:distrEx> package "RobExtremes". See distrExMOVED().
-:distrEx>
-:distrEx> For more information see ?"distrEx", NEWS("distrEx"), as
-:distrEx> well as
-:distrEx> http://distr.r-forge.r-project.org/
-:distrEx> Package "distrDoc" provides a vignette to this package
-:distrEx> as well as to several related packages; try
-:distrEx> vignette("distr").
-
-
-Attaching package: ‘distrEx’
-
-The following objects are masked from ‘package:stats’:
-
- IQR, mad, median, var
-
-Loading required package: RandVar
-:RandVar> Implementation of Random Variables (version 1.0.1)
-:RandVar>
-:RandVar> For more information see ?"RandVar", NEWS("RandVar"), as
-:RandVar> well as
-:RandVar> http://robast.r-forge.r-project.org/
-:RandVar> This package also includes a vignette; try
-:RandVar> vignette("RandVar").
-
-Loading required package: MASS
-Loading required package: stats4
-:distrMod> Object Oriented Implementation of Probability Models
-:distrMod> (version 2.7.0)
-:distrMod>
-:distrMod> Some functions from pkg's 'base' and 'stats' are
-:distrMod> intentionally masked ---see distrModMASK().
-:distrMod>
-:distrMod> Note that global options are controlled by
-:distrMod> distrModoptions() ---c.f. ?"distrModoptions".
-:distrMod>
-:distrMod> For more information see ?"distrMod",
-:distrMod> NEWS("distrMod"), as well as
-:distrMod> http://distr.r-forge.r-project.org/
-: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 is masked from ‘package:stats4’:
-
- confint
-
-The following object is masked from ‘package:stats’:
-
- confint
-
-The following object is masked from ‘package:base’:
-
- norm
-
->
-> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
-> base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv')
-> cleanEx()
-> nameEx("BetaFamily")
-> ### * BetaFamily
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: BetaFamily
-> ### Title: Generating function for Beta families
-> ### Aliases: BetaFamily
-> ### Keywords: models
->
-> ### ** Examples
->
-> (B1 <- BetaFamily())
-An object of class "BetaFamily"
-### name: Beta family
-
-### distribution: Distribution Object of Class: Beta
- shape1: 1
- shape2: 1
- ncp: 0
-
-### param: An object of class "ParamFamParameter"
-name: shape1 and shape2
-shape1: 1
-shape2: 1
-trafo:
- shape1 shape2
-shape1 1 0
-shape2 0 1
-
-### props:
-[1] "The Beta family is invariant in the following sense"
-[2] "if (x_i)~Beta(s1,s2) then (1-x_i)~Beta(s2,s1)"
-> FisherInfo(B1)
-An object of class "PosSemDefSymmMatrix"
- shape1 shape2
-shape1 1.0000000 -0.6449341
-shape2 -0.6449341 1.0000000
-> checkL2deriv(B1)
-precision of centering: 3.96327e-05 3.963591e-05
-precision of Fisher information:
- shape1 shape2
-shape1 -1.851068e-05 1.648326e-06
-shape2 1.648326e-06 -1.851068e-05
-precision of Fisher information - relativ error [%]:
- shape1 shape2
-shape1 -0.0018510679 -0.0002555806
-shape2 -0.0002555806 -0.0018510679
-condition of Fisher information:
-[1] 5.277691
-$maximum.deviation
-[1] 3.963591e-05
-
->
->
->
-> cleanEx()
-> nameEx("BiasType-class")
-> ### * BiasType-class
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: BiasType-class
-> ### Title: Bias Type
-> ### Aliases: BiasType-class name,BiasType-method name<-,BiasType-method
-> ### Keywords: classes
->
-> ### ** Examples
->
-> aB <- positiveBias()
-> name(aB)
-[1] "positive Bias"
->
->
->
-> cleanEx()
-> nameEx("BinomFamily")
-> ### * BinomFamily
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: BinomFamily
-> ### Title: Generating function for Binomial families
-> ### Aliases: BinomFamily
-> ### Keywords: models
->
-> ### ** Examples
->
-> (B1 <- BinomFamily(size = 25, prob = 0.25))
-An object of class "BinomFamily"
-### name: Binomial family
-
-### distribution: Distribution Object of Class: Binom
- size: 25
- prob: 0.25
-
-### param: An object of class "ParamFamParameter"
-name: probability of success
-prob: 0.25
-fixed part of param.:
- size: 25
-trafo:
- prob
-prob 1
-
-### props:
-[1] "The Binomial family is symmetric with respect to prob = 0.5;"
-[2] "i.e., d(Binom(size, prob))(k)=d(Binom(size,1-prob))(size-k)"
-> plot(B1)
-> FisherInfo(B1)
-An object of class "PosSemDefSymmMatrix"
- prob
-prob 133.3333
-> checkL2deriv(B1)
-precision of centering: -1.099042e-15
-precision of Fisher information:
- prob
-prob 2.842171e-14
-precision of Fisher information - relativ error [%]:
- prob
-prob 2.131628e-14
-condition of Fisher information:
-[1] 1
-$maximum.deviation
-[1] 2.842171e-14
-
->
->
->
-> cleanEx()
-> nameEx("CauchyLocationScaleFamily")
-> ### * CauchyLocationScaleFamily
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: CauchyLocationScaleFamily
-> ### Title: Generating function for Cauchy location and scale families
-> ### Aliases: CauchyLocationScaleFamily
-> ### Keywords: models
->
-> ### ** Examples
->
-> (C1 <- CauchyLocationScaleFamily())
-An object of class "CauchyLocationScaleFamily"
-### name: Cauchy Location and scale family
-
-### distribution: Distribution Object of Class: Cauchy
- location: 0
- scale: 1
-
-### param: An object of class "ParamWithScaleFamParameter"
-name: location and scale
-loc: 0
-scale: 1
-trafo:
- loc scale
-loc 1 0
-scale 0 1
-
-### props:
-[1] "The Cauchy Location and scale family is invariant under"
-[2] "the group of transformations 'g(x) = scale*x + loc'"
-[3] "with location parameter 'loc' and scale parameter 'scale'"
-> plot(C1)
-> FisherInfo(C1)
-An object of class "PosDefSymmMatrix"
- loc scale
-loc 0.5 0.0
-scale 0.0 0.5
-> ### need smaller integration range:
-> distrExoptions("ElowerTruncQuantile"=1e-4,"EupperTruncQuantile"=1e-4)
-> checkL2deriv(C1)
-precision of centering: 0 -0.02119711
-precision of Fisher information:
- loc scale
-loc -3.137524e-05 0.00000000
-scale 0.000000e+00 -0.02118143
-precision of Fisher information - relativ error [%]:
- loc scale
-loc -0.006275047 NaN
-scale NaN -4.236286
-condition of Fisher information:
-[1] 1
-$maximum.deviation
-[1] 0.02119711
-
-> distrExoptions("ElowerTruncQuantile"=1e-7,"EupperTruncQuantile"=1e-7)
->
->
->
-> cleanEx()
-> nameEx("Confint-class")
-> ### * Confint-class
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: Confint-class
-> ### Title: Confint-class
-> ### Aliases: Confint-class type,Confint-method call.estimate
-> ### call.estimate,Confint-method confint,Confint,missing-method
-> ### name.estimate name.estimate,Confint-method trafo.estimate
-> ### trafo.estimate,Confint-method samplesize.estimate
-> ### samplesize.estimate,Confint-method completecases.estimate
-> ### completecases.estimate,Confint-method nuisance.estimate
-> ### nuisance.estimate,Confint-method fixed.estimate
-> ### fixed.estimate,Confint-method show,Confint-method
-> ### print,Confint-method
-> ### Keywords: classes
->
-> ### ** Examples
->
-> ## some transformation
-> mtrafo <- function(x){
-+ nms0 <- c("scale","shape")
-+ 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)}
->
-> x <- rgamma(50, scale = 0.5, shape = 3)
->
-> ## parametric family of probability measures
-> G <- GammaFamily(scale = 1, shape = 2, trafo = mtrafo)
-> ## MLE
-> res <- MLEstimator(x = x, ParamFamily = G)
-> ci <- confint(res)
-> print(ci, digits = 4, show.details="maximal")
-A[n] asymptotic (CLT-based) confidence interval:
- 2.5 % 97.5 %
-shape 2.530 5.591
-rate 1.751 4.097
-Type of estimator: Maximum likelihood estimate
-samplesize: 50
-Call by which estimate was produced:
-MLEstimator(x = x, ParamFamily = G)
-Transformation of main parameter by which estimate was produced:
-function (x)
-{
- nms0 <- c("scale", "shape")
- 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)
-}
-<bytecode: 0x9777448>
-Trafo / derivative matrix at which estimate was produced:
- scale shape
-shape 0.000 1
-rate -8.549 0
-> print(ci, digits = 4, show.details="medium")
-A[n] asymptotic (CLT-based) confidence interval:
- 2.5 % 97.5 %
-shape 2.530 5.591
-rate 1.751 4.097
-Type of estimator: Maximum likelihood estimate
-samplesize: 50
-Call by which estimate was produced:
-MLEstimator(x = x, ParamFamily = G)
-> print(ci, digits = 4, show.details="minimal")
-A[n] asymptotic (CLT-based) confidence interval:
- 2.5 % 97.5 %
-shape 2.530 5.591
-rate 1.751 4.097
->
->
->
-> cleanEx()
-> nameEx("Estimate-class")
-> ### * Estimate-class
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: Estimate-class
-> ### Title: Estimate-class.
-> ### Aliases: Estimate-class name,Estimate-method name<-,Estimate-method
-> ### estimate estimate,Estimate-method estimate.call
-> ### estimate.call,Estimate-method Infos Infos,Estimate-method samplesize
-> ### samplesize,Estimate-method completecases
-> ### completecases,Estimate-method asvar asvar,Estimate-method
-> ### fixed,Estimate-method asvar<- asvar<-,Estimate-method
-> ### nuisance,Estimate-method main,Estimate-method Infos<-
-> ### Infos<-,Estimate-method addInfo<- addInfo<-,Estimate-method
-> ### show,Estimate-method print,Estimate-method untransformed.estimate
-> ### untransformed.estimate,Estimate-method untransformed.asvar
-> ### untransformed.asvar,Estimate-method
-> ### Keywords: classes
->
-> ### ** Examples
->
-> x <- rnorm(100)
-> Estimator(x, estimator = mean, name = "mean")
-Evaluations of mean:
---------------------
-An object of class “Estimate”
-generated by call
- Estimator(x = x, estimator = mean, name = "mean")
-samplesize: 100
-estimate:
- mean1
-0.1088874
->
-> x1 <- x; x1[sample(1:100,10)] <- NA
-> myEst1 <- Estimator(x1, estimator = mean, name = "mean")
-> samplesize(myEst1)
-[1] 90
-> samplesize(myEst1, onlycomplete = FALSE)
-[1] 100
->
->
->
-> cleanEx()
-> nameEx("Estimator")
-> ### * Estimator
->
-> flush(stderr()); flush(stdout())
->
-> ### Name: Estimator
-> ### Title: Function to compute estimates
-> ### Aliases: Estimator
-> ### Keywords: univar
->
-> ### ** Examples
->
-> x <- rnorm(100)
-> Estimator(x, estimator = mean, name = "mean")
-Evaluations of mean:
---------------------
-An object of class “Estimate”
-generated by call
- Estimator(x = x, estimator = mean, name = "mean")
-samplesize: 100
-estimate:
- mean1
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/distr -r 1209
More information about the Distr-commits
mailing list