[Distr-commits] r1213 - branches/distr-2.8/pkg/distrMod/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Jul 23 20:49:05 CEST 2018
Author: ruckdeschel
Date: 2018-07-23 20:49:05 +0200 (Mon, 23 Jul 2018)
New Revision: 1213
Modified:
branches/distr-2.8/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
Log:
[distrMod] branch 2.8 new Ex.Rout.save
Modified: branches/distr-2.8/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
===================================================================
--- branches/distr-2.8/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save 2018-07-23 18:41:56 UTC (rev 1212)
+++ branches/distr-2.8/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save 2018-07-23 18:49:05 UTC (rev 1213)
@@ -1,7 +1,7 @@
-R Under development (unstable) (2015-05-02 r68310) -- "Unsuffered Consequences"
-Copyright (C) 2015 The R Foundation for Statistical Computing
-Platform: x86_64-unknown-linux-gnu (64-bit)
+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.
You are welcome to redistribute it under certain conditions.
@@ -20,52 +20,30 @@
> pkgname <- "distrMod"
> source(file.path(R.home("share"), "R", "examples-header.R"))
> options(warn = 1)
+> options(pager = "console")
+> base::assign(".ExTimings", "distrMod-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('distrMod')
Loading required package: distr
Loading required package: startupmsg
-:startupmsg> Utilities for Start-Up Messages (version 0.9.1)
+:startupmsg> Utilities for Start-Up Messages (version 0.9.6)
: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)
-: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
@@ -84,14 +62,14 @@
:distr> vignette("distr").
-Attaching package: ‘distr’
+Attaching package: 'distr'
-The following objects are masked from ‘package:stats’:
+The following objects are masked from 'package:stats':
df, qqplot, sd
Loading required package: distrEx
-:distrEx> Extensions of Package 'distr' (version 2.6)
+:distrEx> Extensions of Package 'distr' (version 2.8.0)
:distrEx>
:distrEx> Note: Packages "e1071", "moments", "fBasics" should be
:distrEx> attached /before/ package "distrEx". See
@@ -108,14 +86,14 @@
:distrEx> vignette("distr").
-Attaching package: ‘distrEx’
+Attaching package: 'distrEx'
-The following objects are masked from ‘package:stats’:
+The following objects are masked from 'package:stats':
IQR, mad, median, var
Loading required package: RandVar
-:RandVar> Implementation of random variables (version 0.9.2)
+:RandVar> Implementation of Random Variables (version 1.1.0)
:RandVar>
:RandVar> For more information see ?"RandVar", NEWS("RandVar"), as
:RandVar> well as
@@ -126,7 +104,7 @@
Loading required package: MASS
Loading required package: stats4
:distrMod> Object Oriented Implementation of Probability Models
-:distrMod> (version 2.6)
+:distrMod> (version 2.8.0)
:distrMod>
:distrMod> Some functions from pkg's 'base' and 'stats' are
:distrMod> intentionally masked ---see distrModMASK().
@@ -145,28 +123,30 @@
:distrMod> vignette("distr").
-Attaching package: ‘distrMod’
+Attaching package: 'distrMod'
-The following object is masked from ‘package:stats4’:
+The following object is masked from 'package:stats4':
confint
-The following object is masked from ‘package:stats’:
+The following object is masked from 'package:stats':
confint
-The following object is masked from ‘package:base’:
+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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BetaFamily
> ### Title: Generating function for Beta families
> ### Aliases: BetaFamily
@@ -201,7 +181,7 @@
shape1 1.0000000 -0.6449341
shape2 -0.6449341 1.0000000
> checkL2deriv(B1)
-precision of centering: 3.96327e-05 3.963591e-05
+precision of centering: 3.963281e-05 3.963334e-05
precision of Fisher information:
shape1 shape2
shape1 -1.851068e-05 1.648326e-06
@@ -213,17 +193,20 @@
condition of Fisher information:
[1] 5.277691
$maximum.deviation
-[1] 3.963591e-05
+[1] 3.963334e-05
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("BetaFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("BiasType-class")
> ### * BiasType-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BiasType-class
> ### Title: Bias Type
> ### Aliases: BiasType-class name,BiasType-method name<-,BiasType-method
@@ -237,12 +220,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("BiasType-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("BinomFamily")
> ### * BinomFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BinomFamily
> ### Title: Generating function for Binomial families
> ### Aliases: BinomFamily
@@ -276,13 +262,13 @@
prob
prob 133.3333
> checkL2deriv(B1)
-precision of centering: -1.099042e-15
+precision of centering: -2.855253e-15
precision of Fisher information:
- prob
-prob 2.842171e-14
+ prob
+prob -2.842171e-14
precision of Fisher information - relativ error [%]:
- prob
-prob 2.131628e-14
+ prob
+prob -2.131628e-14
condition of Fisher information:
[1] 1
$maximum.deviation
@@ -291,12 +277,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("BinomFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("CauchyLocationScaleFamily")
> ### * CauchyLocationScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: CauchyLocationScaleFamily
> ### Title: Generating function for Cauchy location and scale families
> ### Aliases: CauchyLocationScaleFamily
@@ -352,12 +341,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("CauchyLocationScaleFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("Confint-class")
> ### * Confint-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Confint-class
> ### Title: Confint-class
> ### Aliases: Confint-class type,Confint-method call.estimate
@@ -410,6 +402,7 @@
dimnames = list(nms, nms0))
list(fval = fval0, mat = mat0)
}
+<bytecode: 0x08241ff8>
Trafo / derivative matrix at which estimate was produced:
scale shape
shape 0.000 1
@@ -431,12 +424,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("Confint-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("Estimate-class")
> ### * Estimate-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Estimate-class
> ### Title: Estimate-class.
> ### Aliases: Estimate-class name,Estimate-method name<-,Estimate-method
@@ -458,7 +454,7 @@
> Estimator(x, estimator = mean, name = "mean")
Evaluations of mean:
--------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
Estimator(x = x, estimator = mean, name = "mean")
samplesize: 100
@@ -475,12 +471,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("Estimate-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("Estimator")
> ### * Estimator
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Estimator
> ### Title: Function to compute estimates
> ### Aliases: Estimator
@@ -492,7 +491,7 @@
> Estimator(x, estimator = mean, name = "mean")
Evaluations of mean:
--------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
Estimator(x = x, estimator = mean, name = "mean")
samplesize: 100
@@ -504,7 +503,7 @@
> Estimator(X, estimator = rowMeans, name = "mean")
Evaluations of mean:
--------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
Estimator(x = X, estimator = rowMeans, name = "mean")
samplesize: 100
@@ -516,12 +515,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("Estimator", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EvenSymmetric-class")
> ### * EvenSymmetric-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EvenSymmetric-class
> ### Title: Class for Even Functions
> ### Aliases: EvenSymmetric-class
@@ -536,12 +538,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("EvenSymmetric-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EvenSymmetric")
> ### * EvenSymmetric
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EvenSymmetric
> ### Title: Generating function for EvenSymmetric-class
> ### Aliases: EvenSymmetric
@@ -565,12 +570,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("EvenSymmetric", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ExpScaleFamily")
> ### * ExpScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ExpScaleFamily
> ### Title: Generating function for exponential scale families
> ### Aliases: ExpScaleFamily
@@ -604,9 +612,10 @@
[[1]]
function (x)
{
- ((x - 0)/1 * LogDeriv((x - 0)/1) - 1)/1
+ ((x - 0)/c(scale = 1) * LogDeriv((x - 0)/c(scale = 1)) -
+ 1)/c(scale = 1)
}
-<environment: 0x9873698>
+<environment: 0x0c3937c0>
> checkL2deriv(E1)
precision of centering: -1.51181e-06
@@ -624,12 +633,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("ExpScaleFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("FunSymmList-class")
> ### * FunSymmList-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FunSymmList-class
> ### Title: List of Symmetries for a List of Functions
> ### Aliases: FunSymmList-class
@@ -657,12 +669,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("FunSymmList-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("FunSymmList")
> ### * FunSymmList
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FunSymmList
> ### Title: Generating function for FunSymmList-class
> ### Aliases: FunSymmList
@@ -699,12 +714,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("FunSymmList", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("GammaFamily")
> ### * GammaFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: GammaFamily
> ### Title: Generating function for Gamma families
> ### Aliases: GammaFamily
@@ -756,12 +774,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("GammaFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("InfoNorm")
> ### * InfoNorm
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: InfoNorm
> ### Title: Generating function for InfoNorm-class
> ### Aliases: InfoNorm
@@ -782,8 +803,8 @@
Slot "fct":
function (x)
QuadFormNorm(x, A = A)
-<bytecode: 0x9731190>
-<environment: 0x9731f38>
+<bytecode: 0x0d06f378>
+<environment: 0x0d070918>
>
> ## The function is currently defined as
@@ -795,12 +816,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("InfoNorm", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2GroupFamily-class")
> ### * L2GroupFamily-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2GroupParamFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2GroupParamFamily-class LogDeriv
@@ -815,12 +839,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2GroupFamily-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationFamily-class")
> ### * L2LocationFamily-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2LocationFamily-class
@@ -833,12 +860,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2LocationFamily-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationFamily")
> ### * L2LocationFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationFamily
> ### Title: Generating function for L2LocationFamily-class
> ### Aliases: L2LocationFamily
@@ -851,12 +881,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2LocationFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationScaleFamily-class")
> ### * L2LocationScaleFamily-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationScaleFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2LocationScaleFamily-class
@@ -869,12 +902,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2LocationScaleFamily-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationScaleFamily")
> ### * L2LocationScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationScaleFamily
> ### Title: Generating function for L2LocationScaleFamily-class
> ### Aliases: L2LocationScaleFamily
@@ -887,12 +923,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2LocationScaleFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationUnknownScaleFamily")
> ### * L2LocationUnknownScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationUnknownScaleFamily
> ### Title: Generating function for L2LocationScaleFamily-class in nuisance
> ### situation
@@ -906,12 +945,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2LocationUnknownScaleFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ParamFamily-class")
> ### * L2ParamFamily-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ParamFamily-class
> ### Title: L2 differentiable parametric family
> ### Aliases: plot plot-methods L2ParamFamily-class FisherInfo
@@ -944,12 +986,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2ParamFamily-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ParamFamily")
> ### * L2ParamFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ParamFamily
> ### Title: Generating function for L2ParamFamily-class
> ### Aliases: L2ParamFamily
@@ -962,12 +1007,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2ParamFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ScaleFamily-class")
> ### * L2ScaleFamily-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ScaleFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2ScaleFamily-class
@@ -980,12 +1028,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2ScaleFamily-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ScaleFamily")
> ### * L2ScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ScaleFamily
> ### Title: Generating function for L2ScaleFamily-class
> ### Aliases: L2ScaleFamily
@@ -998,12 +1049,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2ScaleFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ScaleUnknownLocationFamily")
> ### * L2ScaleUnknownLocationFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ScaleUnknownLocationFamily
> ### Title: Generating function for L2LocationScaleFamily-class in nuisance
> ### situation
@@ -1017,12 +1071,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("L2ScaleUnknownLocationFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("LnormScaleFamily")
> ### * LnormScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: LnormScaleFamily
> ### Title: Generating function for lognormal scale families
> ### Aliases: LnormScaleFamily
@@ -1059,9 +1116,10 @@
[[1]]
function (x)
{
- ((x - 0)/1 * LogDeriv((x - 0)/1) - 1)/1
+ ((x - 0)/c(meanlog = 1) * LogDeriv((x - 0)/c(meanlog = 1)) -
+ 1)/c(meanlog = 1)
}
-<environment: 0xabd01c0>
+<environment: 0x0e876ce0>
> checkL2deriv(L1)
precision of centering: -0.003003394
@@ -1079,12 +1137,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("LnormScaleFamily", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MCEstimate-class")
> ### * MCEstimate-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MCEstimate-class
> ### Title: MCEstimate-class.
> ### Aliases: MCEstimate-class criterion criterion,MCEstimate-method
@@ -1106,20 +1167,20 @@
> MDEstimator(x, G)
Evaluations of Minimum Kolmogorov distance estimate:
----------------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MDEstimator(x = x, ParamFamily = G)
samplesize: 50
estimate:
scale shape
-0.2983286 4.6547001
+0.3398645 4.2654569
Criterion:
Kolmogorov distance
- 1e+20
+ 0.06350364
> (m <- MLEstimator(x, G))
Evaluations of Maximum likelihood estimate:
-------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MLEstimator(x = x, ParamFamily = G)
samplesize: 50
@@ -1141,6 +1202,8 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MCEstimate-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
> cleanEx()
> nameEx("MCEstimator")
@@ -1148,6 +1211,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MCEstimator
> ### Title: Function to compute minimum criterion estimates
> ### Aliases: MCEstimator
@@ -1183,7 +1247,7 @@
Evaluations of Minimum criterion estimate:
------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MCEstimator(x = x, ParamFamily = G, criterion = negLoglikelihood)
samplesize: 50
@@ -1212,7 +1276,7 @@
Evaluations of Minimum Kolmogorov distance estimate:
----------------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MCEstimator(x = x, ParamFamily = G, criterion = KolmogorovDist,
crit.name = "Kolmogorov distance")
@@ -1231,17 +1295,17 @@
+ crit.name = "Total variation distance")
Evaluations of Minimum Total variation distance estimate:
---------------------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MCEstimator(x = x, ParamFamily = G, criterion = TotalVarDist,
crit.name = "Total variation distance")
samplesize: 50
estimate:
scale shape
-0.2829687 5.0197306
+0.2829625 5.0197311
Criterion:
Total variation distance
- 0.4866141
+ 0.4819868
>
> ## or smooth empirical distribution (takes some time!)
> #MCEstimator(x = x, ParamFamily = G, criterion = TotalVarDist,
@@ -1255,7 +1319,7 @@
+ crit.name = "Hellinger Distance", startPar = c(1,2))
Evaluations of Minimum Hellinger Distance estimate:
---------------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MCEstimator(x = x, ParamFamily = G, criterion = HellingerDist,
crit.name = "Hellinger Distance", startPar = c(1, 2))
@@ -1274,12 +1338,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MCEstimator", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MDEstimator")
> ### * MDEstimator
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MDEstimator
> ### Title: Function to compute minimum distance estimates
> ### Aliases: MDEstimator
@@ -1297,116 +1364,44 @@
> MDEstimator(x = x, ParamFamily = G, distance = KolmogorovDist)
Evaluations of Minimum Kolmogorov distance estimate:
----------------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MDEstimator(x = x, ParamFamily = G, distance = KolmogorovDist)
samplesize: 50
estimate:
scale shape
-0.2983286 4.6547001
+0.3398645 4.2654569
Criterion:
Kolmogorov distance
- 1e+20
+ 0.06350364
>
> ## von Mises minimum distance estimator with default mu
> MDEstimator(x = x, ParamFamily = G, distance = CvMDist)
Evaluations of Minimum CvM distance estimate:
---------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MDEstimator(x = x, ParamFamily = G, distance = CvMDist)
samplesize: 50
estimate:
scale shape
-0.2983286 4.6547001
+0.3401751 4.1262425
Criterion:
CvM distance
- 1e+20
+ 0.02931495
>
-> ## von Mises minimum distance estimator with default mu
-> MDEstimator(x = x, ParamFamily = G, distance = CvMDist,
-+ asvar.fct = distrMod:::.CvMMDCovariance)
-Evaluations of Minimum CvM distance estimate:
----------------------------------------------
-An object of class “Estimate”
-generated by call
- MDEstimator(x = x, ParamFamily = G, distance = CvMDist, asvar.fct = distrMod:::.CvMMDCovariance)
-samplesize: 50
-estimate:
- scale shape
- 0.29832855 4.65470009
- (0.07558202) (1.12072166)
-asymptotic (co)variance (multiplied with samplesize):
- scale shape
-scale 0.2856321 -3.958779
-shape -3.9587793 62.800852
-Criterion:
-CvM distance
- 1e+20
-> #*** variance routine is still in testing phase so not yet
-> #*** exported to namespace
-> ## von Mises minimum distance estimator with mu = N(0,1)
-> MDEstimator(x = x, ParamFamily = G, distance = CvMDist, mu = Norm())
-Evaluations of Minimum CvM distance estimate:
----------------------------------------------
-An object of class “Estimate”
-generated by call
- MDEstimator(x = x, ParamFamily = G, distance = CvMDist, mu = Norm())
-samplesize: 50
-estimate:
- scale shape
-0.2983286 4.6547001
-Criterion:
-CvM distance
- 1e+20
>
-> ## Total variation minimum distance estimator
-> ## gamma distributions are discretized
-> MDEstimator(x = x, ParamFamily = G, distance = TotalVarDist)
-Evaluations of Minimum total variation distance estimate:
----------------------------------------------------------
-An object of class “Estimate”
-generated by call
- MDEstimator(x = x, ParamFamily = G, distance = TotalVarDist)
-samplesize: 50
-estimate:
- scale shape
-0.2829687 5.0197306
-Criterion:
-total variation distance
- 0.4866141
-> ## or smoothing of emprical distribution (takes some time!)
-> #MDEstimator(x = x, ParamFamily = G, distance = TotalVarDist, asis.smooth.discretize = "smooth")
>
-> ## Hellinger minimum distance estimator
-> ## gamma distributions are discretized
-> distroptions(DistrResolution = 1e-10)
-> MDEstimator(x = x, ParamFamily = G, distance = HellingerDist, startPar = c(1,2))
-Evaluations of Minimum Hellinger distance estimate:
----------------------------------------------------
-An object of class “Estimate”
-generated by call
- MDEstimator(x = x, ParamFamily = G, distance = HellingerDist,
- startPar = c(1, 2))
-samplesize: 50
-estimate:
- scale shape
-1.057442 1.683644
-Criterion:
-Hellinger distance
- 0.3782642
-> distroptions(DistrResolution = 1e-6) # default
-> ## or smoothing of emprical distribution (takes some time!)
-> #MDEstimator(x = x, ParamFamily = G, distance = HellingerDist, asis.smooth.discretize = "smooth")
>
->
->
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("MDEstimator", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MLEstimator")
> ### * MLEstimator
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MLEstimator
> ### Title: Function to compute maximum likelihood estimates
> ### Aliases: MLEstimator
@@ -1424,7 +1419,7 @@
> MLEstimator(x, BinomFamily(size = 25))
Evaluations of Maximum likelihood estimate:
-------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MLEstimator(x = x, ParamFamily = BinomFamily(size = 25))
samplesize: 100
@@ -1454,7 +1449,7 @@
> MLEstimator(x, PoisFamily())
Evaluations of Maximum likelihood estimate:
-------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
MLEstimator(x = x, ParamFamily = PoisFamily())
samplesize: 2608
@@ -1479,7 +1474,7 @@
> MLEstimator(x, NormLocationScaleFamily())
Evaluations of Maximum likelihood estimate:
-------------------------------------------
-An object of class “Estimate”
+An object of class "Estimate"
generated by call
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/distr -r 1213
More information about the Distr-commits
mailing list