[Distr-commits] r854 - in branches/distr-2.4/pkg/distrMod: . man tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Jan 11 06:59:21 CET 2013
Author: stamats
Date: 2013-01-11 06:59:21 +0100 (Fri, 11 Jan 2013)
New Revision: 854
Modified:
branches/distr-2.4/pkg/distrMod/DESCRIPTION
branches/distr-2.4/pkg/distrMod/man/MDEstimator.Rd
branches/distr-2.4/pkg/distrMod/man/MLEstimator.Rd
branches/distr-2.4/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
Log:
update of Rout.save and date in DESCRIPTION file, put some examples in \dontrun to reduce check time on CRAN
Modified: branches/distr-2.4/pkg/distrMod/DESCRIPTION
===================================================================
--- branches/distr-2.4/pkg/distrMod/DESCRIPTION 2013-01-11 01:17:36 UTC (rev 853)
+++ branches/distr-2.4/pkg/distrMod/DESCRIPTION 2013-01-11 05:59:21 UTC (rev 854)
@@ -1,6 +1,6 @@
Package: distrMod
Version: 2.4
-Date: 2013-01-09
+Date: 2013-01-11
Title: Object oriented implementation of probability models
Description: Object oriented implementation of probability models based on packages 'distr' and 'distrEx'
Author: Matthias Kohl, Peter Ruckdeschel
Modified: branches/distr-2.4/pkg/distrMod/man/MDEstimator.Rd
===================================================================
--- branches/distr-2.4/pkg/distrMod/man/MDEstimator.Rd 2013-01-11 01:17:36 UTC (rev 853)
+++ branches/distr-2.4/pkg/distrMod/man/MDEstimator.Rd 2013-01-11 05:59:21 UTC (rev 854)
@@ -84,6 +84,8 @@
## von Mises minimum distance estimator with default mu
MDEstimator(x = x, ParamFamily = G, distance = CvMDist)
+## don't run to reduce check time on CRAN
+\dontrun{
## von Mises minimum distance estimator with default mu
MDEstimator(x = x, ParamFamily = G, distance = CvMDist,
asvar.fct = distrMod:::.CvMMDCovariance)
@@ -106,5 +108,6 @@
## or smoothing of emprical distribution (takes some time!)
#MDEstimator(x = x, ParamFamily = G, distance = HellingerDist, asis.smooth.discretize = "smooth")
}
+}
\keyword{univar}
\keyword{robust}
Modified: branches/distr-2.4/pkg/distrMod/man/MLEstimator.Rd
===================================================================
--- branches/distr-2.4/pkg/distrMod/man/MLEstimator.Rd 2013-01-11 01:17:36 UTC (rev 853)
+++ branches/distr-2.4/pkg/distrMod/man/MLEstimator.Rd 2013-01-11 05:59:21 UTC (rev 854)
@@ -124,6 +124,8 @@
criterion(res)
+## don't run to reduce check time on CRAN
+\dontrun{
## explicitely transforming to
## MASS parametrization:
mtrafo <- function(x){
@@ -148,6 +150,7 @@
par(mfrow=c(1,2))
plot(profile(res2))
par(mfrow=c(1,1))
+}
#############################
## 5. Cauchy Location Scale model
Modified: branches/distr-2.4/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
===================================================================
--- branches/distr-2.4/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save 2013-01-11 01:17:36 UTC (rev 853)
+++ branches/distr-2.4/pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save 2013-01-11 05:59:21 UTC (rev 854)
@@ -1,6 +1,6 @@
-R version 2.15.0 Patched (2012-05-26 r59450) -- "Easter Beagle"
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R Under development (unstable) (2013-01-09 r61595) -- "Unsuffered Consequences"
+Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-unknown-linux-gnu (64-bit)
@@ -34,6 +34,13 @@
:SweaveListingUtils> Utilities for Sweave together with
:SweaveListingUtils> TeX listings package (version 0.6)
: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().
@@ -53,7 +60,7 @@
Attaching package: ‘SweaveListingUtils’
-The following object(s) are masked from ‘package:base’:
+The following object is masked from ‘package:base’:
library, require
@@ -79,7 +86,7 @@
Attaching package: ‘distr’
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
df, qqplot, sd
@@ -103,7 +110,7 @@
Attaching package: ‘distrEx’
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
IQR, mad, median, var
@@ -140,26 +147,37 @@
Attaching package: ‘distrMod’
-The following object(s) are masked from ‘package:stats4’:
+The following object is masked from ‘package:stats4’:
confint
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
confint
-The following object(s) are masked from ‘package:base’:
+The following object is masked from ‘package:base’:
norm
>
> assign(".oldSearch", search(), pos = 'CheckExEnv')
+> assign(".ExTimings", "distrMod-Ex.timings", pos = 'CheckExEnv')
+> cat("name\tuser\tsystem\telapsed\n", file=get(".ExTimings", pos = 'CheckExEnv'))
+> 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]
++ format(x[1L:3L])
++ },
++ pos = 'CheckExEnv')
+>
> cleanEx()
> nameEx("BetaFamily")
> ### * BetaFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BetaFamily
> ### Title: Generating function for Beta families
> ### Aliases: BetaFamily
@@ -205,12 +223,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("BetaFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("BiasType-class")
> ### * BiasType-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BiasType-class
> ### Title: Bias Type
> ### Aliases: BiasType-class name,BiasType-method name<-,BiasType-method
@@ -224,12 +246,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("BiasType-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("BinomFamily")
> ### * BinomFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BinomFamily
> ### Title: Generating function for Binomial families
> ### Aliases: BinomFamily
@@ -273,12 +299,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("BinomFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("CauchyLocationScaleFamily")
> ### * CauchyLocationScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: CauchyLocationScaleFamily
> ### Title: Generating function for Cauchy location and scale families
> ### Aliases: CauchyLocationScaleFamily
@@ -328,12 +358,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("CauchyLocationScaleFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("Confint-class")
> ### * Confint-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Confint-class
> ### Title: Confint-class
> ### Aliases: Confint-class type,Confint-method call.estimate
@@ -407,12 +441,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("Confint-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("Estimate-class")
> ### * Estimate-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Estimate-class
> ### Title: Estimate-class.
> ### Aliases: Estimate-class name,Estimate-method name<-,Estimate-method
@@ -451,12 +489,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("Estimate-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("Estimator")
> ### * Estimator
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Estimator
> ### Title: Function to compute estimates
> ### Aliases: Estimator
@@ -492,12 +534,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("Estimator", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EvenSymmetric-class")
> ### * EvenSymmetric-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EvenSymmetric-class
> ### Title: Class for Even Functions
> ### Aliases: EvenSymmetric-class
@@ -512,12 +558,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("EvenSymmetric-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EvenSymmetric")
> ### * EvenSymmetric
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EvenSymmetric
> ### Title: Generating function for EvenSymmetric-class
> ### Aliases: EvenSymmetric
@@ -541,12 +591,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("EvenSymmetric", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("ExpScaleFamily")
> ### * ExpScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ExpScaleFamily
> ### Title: Generating function for exponential scale families
> ### Aliases: ExpScaleFamily
@@ -582,7 +636,7 @@
{
((x - 0)/1 * LogDeriv((x - 0)/1) - 1)/1
}
-<environment: 0x6fb8da0>
+<environment: 0x7dc59e0>
> checkL2deriv(E1)
precision of centering: -1.51181e-06
@@ -595,12 +649,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("ExpScaleFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("FunSymmList-class")
> ### * FunSymmList-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FunSymmList-class
> ### Title: List of Symmetries for a List of Functions
> ### Aliases: FunSymmList-class
@@ -628,12 +686,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("FunSymmList-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("FunSymmList")
> ### * FunSymmList
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FunSymmList
> ### Title: Generating function for FunSymmList-class
> ### Aliases: FunSymmList
@@ -670,12 +732,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("FunSymmList", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("GammaFamily")
> ### * GammaFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: GammaFamily
> ### Title: Generating function for Gamma families
> ### Aliases: GammaFamily
@@ -721,12 +787,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("GammaFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("InfoNorm")
> ### * InfoNorm
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: InfoNorm
> ### Title: Generating function for InfoNorm-class
> ### Aliases: InfoNorm
@@ -747,8 +817,8 @@
Slot "fct":
function (x)
QuadFormNorm(x, A = A)
-<bytecode: 0x786cbd8>
-<environment: 0x786ca18>
+<bytecode: 0x7c98bf8>
+<environment: 0x80401b8>
>
> ## The function is currently defined as
@@ -760,12 +830,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("InfoNorm", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2GroupFamily-class")
> ### * L2GroupFamily-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2GroupParamFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2GroupParamFamily-class LogDeriv
@@ -780,12 +854,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2GroupFamily-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationFamily-class")
> ### * L2LocationFamily-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2LocationFamily-class
@@ -798,12 +876,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2LocationFamily-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationFamily")
> ### * L2LocationFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationFamily
> ### Title: Generating function for L2LocationFamily-class
> ### Aliases: L2LocationFamily
@@ -816,12 +898,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2LocationFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationScaleFamily-class")
> ### * L2LocationScaleFamily-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationScaleFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2LocationScaleFamily-class
@@ -834,12 +920,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2LocationScaleFamily-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationScaleFamily")
> ### * L2LocationScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationScaleFamily
> ### Title: Generating function for L2LocationScaleFamily-class
> ### Aliases: L2LocationScaleFamily
@@ -852,12 +942,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2LocationScaleFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2LocationUnknownScaleFamily")
> ### * L2LocationUnknownScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2LocationUnknownScaleFamily
> ### Title: Generating function for L2LocationScaleFamily-class in nuisance
> ### situation
@@ -871,12 +965,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2LocationUnknownScaleFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ParamFamily-class")
> ### * L2ParamFamily-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ParamFamily-class
> ### Title: L2 differentiable parametric family
> ### Aliases: plot plot-methods L2ParamFamily-class FisherInfo
@@ -909,12 +1007,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2ParamFamily-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ParamFamily")
> ### * L2ParamFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ParamFamily
> ### Title: Generating function for L2ParamFamily-class
> ### Aliases: L2ParamFamily
@@ -927,12 +1029,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2ParamFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ScaleFamily-class")
> ### * L2ScaleFamily-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ScaleFamily-class
> ### Title: L2 differentiable parametric group family
> ### Aliases: L2ScaleFamily-class
@@ -945,12 +1051,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2ScaleFamily-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ScaleFamily")
> ### * L2ScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ScaleFamily
> ### Title: Generating function for L2ScaleFamily-class
> ### Aliases: L2ScaleFamily
@@ -963,12 +1073,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2ScaleFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("L2ScaleUnknownLocationFamily")
> ### * L2ScaleUnknownLocationFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: L2ScaleUnknownLocationFamily
> ### Title: Generating function for L2LocationScaleFamily-class in nuisance
> ### situation
@@ -982,12 +1096,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("L2ScaleUnknownLocationFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("LnormScaleFamily")
> ### * LnormScaleFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: LnormScaleFamily
> ### Title: Generating function for lognormal scale families
> ### Aliases: LnormScaleFamily
@@ -1026,7 +1144,7 @@
{
((x - 0)/1 * LogDeriv((x - 0)/1) - 1)/1
}
-<environment: 0x89c7610>
+<environment: 0xa004700>
> checkL2deriv(L1)
precision of centering: -0.003003394
@@ -1039,12 +1157,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("LnormScaleFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MCEstimate-class")
> ### * MCEstimate-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MCEstimate-class
> ### Title: MCEstimate-class.
> ### Aliases: MCEstimate-class criterion criterion,MCEstimate-method
@@ -1101,6 +1223,9 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("MCEstimate-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
> cleanEx()
> nameEx("MCEstimator")
@@ -1108,6 +1233,7 @@
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MCEstimator
> ### Title: Function to compute minimum criterion estimates
> ### Aliases: MCEstimator
@@ -1230,12 +1356,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("MCEstimator", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MDEstimator")
> ### * MDEstimator
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MDEstimator
> ### Title: Function to compute minimum distance estimates
> ### Aliases: MDEstimator
@@ -1279,90 +1409,43 @@
CvM distance
0.02879881
>
-> ## 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.34194869 4.16635591
- (0.08687677) (0.99985006)
-asymptotic (co)variance (multiplied with samplesize):
- scale shape
-scale 0.3773787 -4.026502
-shape -4.0265023 49.985008
-Criterion:
-CvM distance
- 0.02879881
-> #*** 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.3407495 4.2127808
-Criterion:
-CvM distance
- 0.01574483
+> ## don't run to reduce check time on CRAN
+> ## Not run:
+> ##D ## von Mises minimum distance estimator with default mu
+> ##D MDEstimator(x = x, ParamFamily = G, distance = CvMDist,
+> ##D asvar.fct = distrMod:::.CvMMDCovariance)
+> ##D #*** variance routine is still in testing phase so not yet
+> ##D #*** exported to namespace
+> ##D ## von Mises minimum distance estimator with mu = N(0,1)
+> ##D MDEstimator(x = x, ParamFamily = G, distance = CvMDist, mu = Norm())
+> ##D
+> ##D ## Total variation minimum distance estimator
+> ##D ## gamma distributions are discretized
+> ##D MDEstimator(x = x, ParamFamily = G, distance = TotalVarDist)
+> ##D ## or smoothing of emprical distribution (takes some time!)
+> ##D #MDEstimator(x = x, ParamFamily = G, distance = TotalVarDist, asis.smooth.discretize = "smooth")
+> ##D
+> ##D ## Hellinger minimum distance estimator
+> ##D ## gamma distributions are discretized
+> ##D distroptions(DistrResolution = 1e-10)
+> ##D MDEstimator(x = x, ParamFamily = G, distance = HellingerDist, startPar = c(1,2))
+> ##D distroptions(DistrResolution = 1e-6) # default
+> ##D ## or smoothing of emprical distribution (takes some time!)
+> ##D #MDEstimator(x = x, ParamFamily = G, distance = HellingerDist, asis.smooth.discretize = "smooth")
+> ## End(Not run)
>
-> ## 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")
>
>
->
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("MDEstimator", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("MLEstimator")
> ### * MLEstimator
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MLEstimator
> ### Title: Function to compute maximum likelihood estimates
> ### Aliases: MLEstimator
@@ -1529,39 +1612,34 @@
61.32426
>
>
-> ## explicitely transforming to
-> ## MASS parametrization:
-> mtrafo <- function(x){
-+ nms0 <- names(c(main(param(G)),nuisance(param(G))))
-+ 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)}
+> ## don't run to reduce check time on CRAN
+> ## Not run:
+> ##D ## explicitely transforming to
+> ##D ## MASS parametrization:
+> ##D mtrafo <- function(x){
+> ##D nms0 <- names(c(main(param(G)),nuisance(param(G))))
+> ##D nms <- c("shape","rate")
+> ##D fval0 <- c(x[2], 1/x[1])
+> ##D names(fval0) <- nms
+> ##D mat0 <- matrix( c(0, -1/x[1]^2, 1, 0), nrow = 2, ncol = 2,
+> ##D dimnames = list(nms,nms0))
+> ##D list(fval = fval0, mat = mat0)}
+> ##D
+> ##D G2 <- G
+> ##D trafo(G2) <- mtrafo
+> ##D res2 <- MLEstimator(x = x, ParamFamily = G2)
+> ##D
+> ##D old <- getdistrModOption("show.details")
+> ##D distrModoptions("show.details" = "minimal")
+> ##D res1
+> ##D res2
+> ##D
+> ##D ## some profiling
+> ##D par(mfrow=c(1,2))
+> ##D plot(profile(res2))
+> ##D par(mfrow=c(1,1))
+> ## End(Not run)
>
-> G2 <- G
-> trafo(G2) <- mtrafo
-> res2 <- MLEstimator(x = x, ParamFamily = G2)
->
-> old <- getdistrModOption("show.details")
-> distrModoptions("show.details" = "minimal")
-> res1
- shape rate
- 3.0117885 1.8655681
- (0.5721425) (0.3856279)
-> res2
-Evaluations of Maximum likelihood estimate:
--------------------------------------------
- shape rate
- 3.0117887 1.8654848
- (0.5721441) (0.3856120)
->
-> ## some profiling
-> par(mfrow=c(1,2))
-> plot(profile(res2))
-> par(mfrow=c(1,1))
->
> #############################
> ## 5. Cauchy Location Scale model
> #############################
@@ -1577,6 +1655,10 @@
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"
@@ -1592,19 +1674,38 @@
> (res <- MLEstimator(x = x, ParamFamily = C))
Evaluations of Maximum likelihood estimate:
-------------------------------------------
+An object of class “Estimate”
+generated by call
+ MLEstimator(x = x, ParamFamily = C)
+samplesize: 50
+estimate:
loc scale
1.2124856 1.6358162
(0.3271632) (0.3271632)
+asymptotic (co)variance (multiplied with samplesize):
+ loc scale
+loc 5.351789 0.000000
+scale 0.000000 5.351789
+Criterion:
+negative log-likelihood
+ 164.7854
> ## Asymptotic (CLT-based) confidence interval
> confint(res)
A[n] asymptotic (CLT-based) confidence interval:
2.5 % 97.5 %
loc 0.5712574 1.853714
scale 0.9945880 2.277044
+Type of estimator: Maximum likelihood estimate
+samplesize: 50
+Call by which estimate was produced:
+MLEstimator(x = x, ParamFamily = C)
>
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("MLEstimator", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
> cleanEx()
> nameEx("NBinomFamily")
@@ -1612,6 +1713,7 @@
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: NbinomFamily
> ### Title: Generating function for Nbinomial families
> ### Aliases: NbinomFamily NbinomwithSizeFamily NbinomMeanSizeFamily
@@ -1632,6 +1734,9 @@
prob: 0.25
fixed part of param.:
size: 25
+trafo:
+ prob
+prob 1
### props:
[1] ""
@@ -1660,6 +1765,10 @@
name: NegBinomParameter
size: 25
prob: 0.25
+trafo:
+ size prob
+size 1 0
+prob 0 1
### props:
[1] ""
@@ -1690,6 +1799,10 @@
name: probability of success
size: 25
mean: 75
+trafo:
+ size mean
+size 1 0
+mean 0 1
### props:
[1] ""
@@ -1712,12 +1825,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("NBinomFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("NonSymmetric-class")
> ### * NonSymmetric-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: NonSymmetric-class
> ### Title: Class for Non-symmetric Functions
> ### Aliases: NonSymmetric-class
@@ -1731,12 +1848,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("NonSymmetric-class", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("NonSymmetric")
> ### * NonSymmetric
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: NonSymmetric
> ### Title: Generating function for NonSymmetric-class
> ### Aliases: NonSymmetric
@@ -1757,12 +1878,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("NonSymmetric", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("NormLocationFamily")
> ### * NormLocationFamily
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: NormLocationFamily
> ### Title: Generating function for normal location families
> ### Aliases: NormLocationFamily
@@ -1784,6 +1909,9 @@
### param: An object of class "ParamFamParameter"
name: loc
mean: 0
+trafo:
+ mean
+mean 1
### props:
[1] "The normal location family is invariant under"
@@ -1798,12 +1926,16 @@
>
>
>
+>
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("NormLocationFamily", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/distr -r 854
More information about the Distr-commits
mailing list