[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