[Distr-commits] r1172 - in branches/distr-2.8/pkg: . distr distr/demo distr/inst distr/man distr/vignettes distrDoc distrDoc/inst distrDoc/man distrDoc/vignettes distrEllipse distrEllipse/inst distrEllipse/man distrEx distrEx/R distrEx/demo distrEx/inst distrEx/man distrEx/src distrMod distrMod/man distrRmetrics distrRmetrics/man distrSim distrSim/inst distrSim/man distrTEst distrTEst/inst distrTEst/man distrTeach distrTeach/R distrTeach/inst distrTeach/man startupmsg utils
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun Jul 8 15:50:11 CEST 2018
Author: ruckdeschel
Date: 2018-07-08 15:50:09 +0200 (Sun, 08 Jul 2018)
New Revision: 1172
Added:
branches/distr-2.8/pkg/distr/
branches/distr-2.8/pkg/distr/DESCRIPTION
branches/distr-2.8/pkg/distr/NAMESPACE
branches/distr-2.8/pkg/distr/R/
branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R
branches/distr-2.8/pkg/distr/demo/Expectation.R
branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R
branches/distr-2.8/pkg/distr/demo/nFoldConvolution.R
branches/distr-2.8/pkg/distr/demo/range.R
branches/distr-2.8/pkg/distr/inst/NEWS
branches/distr-2.8/pkg/distr/man/
branches/distr-2.8/pkg/distr/vignettes/newDistributions-knitr.Rnw
branches/distr-2.8/pkg/distrDoc/
branches/distr-2.8/pkg/distrDoc/DESCRIPTION
branches/distr-2.8/pkg/distrDoc/NAMESPACE
branches/distr-2.8/pkg/distrDoc/inst/NEWS
branches/distr-2.8/pkg/distrDoc/vignettes/BiasType.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/Confint.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/Estimate.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/EvaluationList.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/NormType.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/ParamFamParameter.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/ProbFamily.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/RiskType.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/Symmetry.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/dataclass.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/distr.Rnw
branches/distr-2.8/pkg/distrDoc/vignettes/distribution.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/evaluation.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/parameter.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/rspace.pdf
branches/distr-2.8/pkg/distrEllipse/
branches/distr-2.8/pkg/distrEllipse/inst/NEWS
branches/distr-2.8/pkg/distrEx/
branches/distr-2.8/pkg/distrEx/R/AsymTotalVarDist.R
branches/distr-2.8/pkg/distrEx/R/ClippedMoments.R
branches/distr-2.8/pkg/distrEx/R/ContaminationSize.R
branches/distr-2.8/pkg/distrEx/R/ConvexContamination.R
branches/distr-2.8/pkg/distrEx/R/Expectation.R
branches/distr-2.8/pkg/distrEx/R/Functionals.R
branches/distr-2.8/pkg/distrEx/R/KolmogorovDist.R
branches/distr-2.8/pkg/distrEx/R/Kurtosis.R
branches/distr-2.8/pkg/distrEx/R/LMCondDistribution.R
branches/distr-2.8/pkg/distrEx/R/OAsymTotalVarDist.R
branches/distr-2.8/pkg/distrEx/R/PrognCondDistribution.R
branches/distr-2.8/pkg/distrEx/R/Skewness.R
branches/distr-2.8/pkg/distrEx/R/distrExIntegrate.R
branches/distr-2.8/pkg/distrEx/R/distrExOptions.R
branches/distr-2.8/pkg/distrEx/R/sysdata.rda
branches/distr-2.8/pkg/distrEx/demo/Prognose.R
branches/distr-2.8/pkg/distrEx/inst/NEWS
branches/distr-2.8/pkg/distrEx/man/0distrEx-package.Rd
branches/distr-2.8/pkg/distrEx/man/AsymTotalVarDist.Rd
branches/distr-2.8/pkg/distrEx/man/DiscreteMVDistribution-class.Rd
branches/distr-2.8/pkg/distrEx/man/LMCondDistribution.Rd
branches/distr-2.8/pkg/distrEx/man/OAsymTotalVarDist.Rd
branches/distr-2.8/pkg/distrEx/man/internals.Rd
branches/distr-2.8/pkg/distrEx/src/GLaw.c
branches/distr-2.8/pkg/distrMod/
branches/distr-2.8/pkg/distrRmetrics/
branches/distr-2.8/pkg/distrSim/
branches/distr-2.8/pkg/distrSim/inst/NEWS
branches/distr-2.8/pkg/distrTEst/
branches/distr-2.8/pkg/distrTEst/inst/NEWS
branches/distr-2.8/pkg/distrTeach/
branches/distr-2.8/pkg/distrTeach/R/illustLLN.R
branches/distr-2.8/pkg/distrTeach/inst/CITATION
branches/distr-2.8/pkg/distrTeach/inst/NEWS
branches/distr-2.8/pkg/distrTeach/man/0distrTeach-package.Rd
branches/distr-2.8/pkg/distrTeach/man/IllustCLT.Rd
branches/distr-2.8/pkg/startupmsg/
branches/distr-2.8/pkg/utils/
branches/distr-2.8/pkg/utils/DESCRIPTIONutils.R
branches/distr-2.8/pkg/utils/compactify-Vignettes.R
branches/distr-2.8/pkg/utils/finde.R
Removed:
branches/distr-2.8/pkg/distr/DESCRIPTION
branches/distr-2.8/pkg/distr/NAMESPACE
branches/distr-2.8/pkg/distr/R/
branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R
branches/distr-2.8/pkg/distr/demo/Expectation.R
branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R
branches/distr-2.8/pkg/distr/demo/nFoldConvolution.R
branches/distr-2.8/pkg/distr/demo/range.R
branches/distr-2.8/pkg/distr/inst/NEWS
branches/distr-2.8/pkg/distr/man/
branches/distr-2.8/pkg/distr/vignettes/newDistributions.Rnw
branches/distr-2.8/pkg/distrDoc/DESCRIPTION
branches/distr-2.8/pkg/distrDoc/NAMESPACE
branches/distr-2.8/pkg/distrDoc/inst/NEWS
branches/distr-2.8/pkg/distrDoc/vignettes/BiasType.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/Confint.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/Estimate.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/EvaluationList.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/NormType.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/ParamFamParameter.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/ProbFamily.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/RiskType.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/Symmetry.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/dataclass.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/distr.Rnw
branches/distr-2.8/pkg/distrDoc/vignettes/distribution.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/evaluation.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/parameter.pdf
branches/distr-2.8/pkg/distrDoc/vignettes/rspace.pdf
branches/distr-2.8/pkg/distrEllipse/inst/NEWS
branches/distr-2.8/pkg/distrEx/R/AsymTotalVarDist.R
branches/distr-2.8/pkg/distrEx/R/ClippedMoments.R
branches/distr-2.8/pkg/distrEx/R/ContaminationSize.R
branches/distr-2.8/pkg/distrEx/R/ConvexContamination.R
branches/distr-2.8/pkg/distrEx/R/Expectation.R
branches/distr-2.8/pkg/distrEx/R/Functionals.R
branches/distr-2.8/pkg/distrEx/R/KolmogorovDist.R
branches/distr-2.8/pkg/distrEx/R/Kurtosis.R
branches/distr-2.8/pkg/distrEx/R/LMCondDistribution.R
branches/distr-2.8/pkg/distrEx/R/OAsymTotalVarDist.R
branches/distr-2.8/pkg/distrEx/R/PrognCondDistribution.R
branches/distr-2.8/pkg/distrEx/R/Skewness.R
branches/distr-2.8/pkg/distrEx/R/distrExIntegrate.R
branches/distr-2.8/pkg/distrEx/R/distrExOptions.R
branches/distr-2.8/pkg/distrEx/R/sysdata.rda
branches/distr-2.8/pkg/distrEx/demo/Prognose.R
branches/distr-2.8/pkg/distrEx/inst/NEWS
branches/distr-2.8/pkg/distrEx/man/0distrEx-package.Rd
branches/distr-2.8/pkg/distrEx/man/AsymTotalVarDist.Rd
branches/distr-2.8/pkg/distrEx/man/DiscreteMVDistribution-class.Rd
branches/distr-2.8/pkg/distrEx/man/LMCondDistribution.Rd
branches/distr-2.8/pkg/distrEx/man/OAsymTotalVarDist.Rd
branches/distr-2.8/pkg/distrEx/man/internals.Rd
branches/distr-2.8/pkg/distrEx/src/GLaw.c
branches/distr-2.8/pkg/distrSim/inst/NEWS
branches/distr-2.8/pkg/distrTEst/inst/NEWS
branches/distr-2.8/pkg/distrTeach/R/illustLLN.R
branches/distr-2.8/pkg/distrTeach/inst/CITATION
branches/distr-2.8/pkg/distrTeach/inst/NEWS
branches/distr-2.8/pkg/distrTeach/man/0distrTeach-package.Rd
branches/distr-2.8/pkg/distrTeach/man/IllustCLT.Rd
branches/distr-2.8/pkg/utils/DESCRIPTIONutils.R
branches/distr-2.8/pkg/utils/compactify-Vignettes.R
branches/distr-2.8/pkg/utils/finde.R
Modified:
branches/distr-2.8/pkg/distr/man/0distr-package.Rd
branches/distr-2.8/pkg/distrDoc/man/0distrDoc-package.Rd
branches/distr-2.8/pkg/distrEllipse/DESCRIPTION
branches/distr-2.8/pkg/distrEllipse/man/0distrEllipse-package.Rd
branches/distr-2.8/pkg/distrEx/DESCRIPTION
branches/distr-2.8/pkg/distrMod/DESCRIPTION
branches/distr-2.8/pkg/distrMod/man/0distrMod-package.Rd
branches/distr-2.8/pkg/distrRmetrics/DESCRIPTION
branches/distr-2.8/pkg/distrRmetrics/man/0distrRmetrics-package.Rd
branches/distr-2.8/pkg/distrSim/DESCRIPTION
branches/distr-2.8/pkg/distrSim/man/0distrSim-package.Rd
branches/distr-2.8/pkg/distrTEst/DESCRIPTION
branches/distr-2.8/pkg/distrTEst/man/0distrTEst-package.Rd
branches/distr-2.8/pkg/distrTeach/DESCRIPTION
branches/distr-2.8/pkg/startupmsg/DESCRIPTION
branches/distr-2.8/pkg/utils/DESCRIPTIONutilsExamples.R
Log:
created & filled branch 2.8
Deleted: branches/distr-2.8/pkg/distr/DESCRIPTION
===================================================================
--- branches/distr-2.7/pkg/distr/DESCRIPTION 2018-04-13 16:25:40 UTC (rev 1142)
+++ branches/distr-2.8/pkg/distr/DESCRIPTION 2018-07-08 13:50:09 UTC (rev 1172)
@@ -1,22 +0,0 @@
-Package: distr
-Version: 2.7
-Date: 2015-11-07
-Title: Object Oriented Implementation of Distributions
-Description: S4-classes and methods for distributions.
-Authors at R: c(person("Florian", "Camphausen", role="ctb", comment="contributed as student in the
- initial phase --2005"), person("Matthias", "Kohl", role=c("aut", "cph")),
- person("Peter", "Ruckdeschel", role=c("cre", "cph"),
- email="peter.ruckdeschel at uni-oldenburg.de"), person("Thomas", "Stabla", role="ctb",
- comment="contributed as student in the initial phase --2005"), person("R Core Team",
- role = c("ctb", "cph"), comment="for source file ks.c/ routines 'pKS2' and
- 'pKolmogorov2x'"))
-Depends: R(>= 2.14.0), methods, graphics, startupmsg, sfsmisc, SweaveListingUtils
-Suggests: distrEx, svUnit (>= 0.7-11)
-Imports: stats, grDevices, utils, MASS
-ByteCompile: yes
-Encoding: latin1
-License: LGPL-3
-URL: http://distr.r-forge.r-project.org/
-LastChangedDate: {$LastChangedDate$}
-LastChangedRevision: {$LastChangedRevision$}
-SVNRevision: 1080
Copied: branches/distr-2.8/pkg/distr/DESCRIPTION (from rev 1146, branches/distr-2.7/pkg/distr/DESCRIPTION)
===================================================================
--- branches/distr-2.8/pkg/distr/DESCRIPTION (rev 0)
+++ branches/distr-2.8/pkg/distr/DESCRIPTION 2018-07-08 13:50:09 UTC (rev 1172)
@@ -0,0 +1,23 @@
+Package: distr
+Version: 2.8.0
+Date: 2018-07-08
+Title: Object Oriented Implementation of Distributions
+Description: S4-classes and methods for distributions.
+Authors at R: c(person("Florian", "Camphausen", role="ctb", comment="contributed as student in the
+ initial phase --2005"), person("Matthias", "Kohl", role=c("aut", "cph")),
+ person("Peter", "Ruckdeschel", role=c("cre", "cph"),
+ email="peter.ruckdeschel at uni-oldenburg.de"), person("Thomas", "Stabla", role="ctb",
+ comment="contributed as student in the initial phase --2005"), person("R Core Team",
+ role = c("ctb", "cph"), comment="for source file ks.c/ routines 'pKS2' and
+ 'pKolmogorov2x'"))
+Depends: R(>= 2.14.0), methods, graphics, startupmsg, sfsmisc
+Suggests: distrEx, svUnit (>= 0.7-11), knitr
+Imports: stats, grDevices, utils, MASS
+VignetteBuilder: knitr
+ByteCompile: yes
+Encoding: latin1
+License: LGPL-3
+URL: http://distr.r-forge.r-project.org/
+LastChangedDate: {$LastChangedDate$}
+LastChangedRevision: {$LastChangedRevision$}
+SVNRevision: 1171
Deleted: branches/distr-2.8/pkg/distr/NAMESPACE
===================================================================
--- branches/distr-2.7/pkg/distr/NAMESPACE 2018-04-13 16:25:40 UTC (rev 1142)
+++ branches/distr-2.8/pkg/distr/NAMESPACE 2018-07-08 13:50:09 UTC (rev 1172)
@@ -1,104 +0,0 @@
-useDynLib(distr, .registration = TRUE, .fixes = "C_")
-import("methods")
-import("stats")
-importFrom("grDevices", "dev.list", "dev.new", "xy.coords")
-importFrom("graphics", "plot", "abline", "layout", "legend", "lines", "mtext", "par", "points", "title")
-importFrom("MASS", "ginv")
-importFrom("utils", "str")
-importFrom("sfsmisc", "D1ss")
-import("startupmsg")
-import("SweaveListingUtils")
-
-export("Beta", "Binom", "Cauchy", "Chisq",
- "Dirac","Exp", "DExp", "Fd", "Gammad",
- "Geom", "Hyper", "Lnorm", "Logis",
- "Nbinom", "Norm", "Pois", "RtoDPQ",
- "RtoDPQ.d", "Td", "Unif", "Weibull", "Arcsine",
- "distroptions", "getdistrOption", "simplifyr",
- "Lattice", "DiscreteDistribution",
- "EmpiricalDistribution",
- "LatticeDistribution", "EuclideanSpace", "Reals",
- "Naturals", "standardMethods",
- "distrARITH", "distrMASK", "getLabel", "devNew")
-export("AbscontDistribution")
-export("DistrList", "UnivarDistrList")
-export("makeAbscontDistribution")
-exportClasses("rSpace", "EuclideanSpace", "Reals",
- "Naturals")
-exportClasses("Parameter")
-exportClasses("OptionalParameter", "OptionalMatrix")
-exportClasses("BetaParameter", "BinomParameter",
- "CauchyParameter", "ChisqParameter",
- "DiracParameter", "ExpParameter",
- "FParameter", "GammaParameter",
- "HyperParameter", "GeomParameter",
- "LogisParameter", "LnormParameter",
- "NbinomParameter", "NormParameter",
- "PoisParameter", "TParameter",
- "UnifParameter", "WeibullParameter",
- "UniNormParameter")
-exportClasses("Distribution")
-exportClasses("UnivariateDistribution", "AbscontDistribution",
- "DiscreteDistribution", "LatticeDistribution",
- "AffLinAbscontDistribution", "AffLinDiscreteDistribution",
- "AffLinLatticeDistribution", "AffLinDistribution", "Lattice",
- "Beta", "Binom", "Cauchy", "Chisq", "Dirac",
- "DExp", "Exp", "Fd", "Gammad", "Geom",
- "Hyper", "Logis", "Lnorm", "Nbinom", "Norm",
- "Pois", "Td", "Unif", "Weibull", "Arcsine",
- "ExpOrGammaOrChisq")
-exportClasses("UnivDistrListOrDistribution")
-exportClasses("CompoundDistribution")
-exportClasses("DistrList",
- "UnivarDistrList")
-exportClasses("OptionalNumeric", "PosSemDefSymmMatrix",
- "PosDefSymmMatrix",
- "Symmetry", "DistributionSymmetry",
- "NoSymmetry", "EllipticalSymmetry", "SphericalSymmetry",
- "DistrSymmList")
-exportMethods("Max", "Max<-", "Min", "Min<-", "d", "df",
- "df<-", "df1", "df1<-", "df2",
- "df2<-", "dimension", "dimension<-", "name",
- "name<-", "img", "k", "k<-",
- "lambda", "lambda<-", "liesIn", "location",
- "location<-", "m", "m<-", "mean",
- "mean<-", "meanlog", "meanlog<-", "n",
- "n<-", "ncp", "ncp<-", "p", "param",
- "prob", "prob<-", "q", "r", "rate", "p.l", "q.r",
- "rate<-", "scale", "scale<-", "sd", "sd<-",
- "sdlog", "sdlog<-", "shape", "shape<-",
- "shape1", "shape1<-", "shape2", "shape2<-",
- "size", "size<-", "support", "initialize",
- "print", "plot", "+", "-", "/", "*", "coerce",
- "Math", "log", "log10", "gamma", "lgamma", "digamma",
- "dim", "show", "convpow", "pivot", "sign",
- "lattice", "width", "Length", "pivot<-",
- "width<-", "Length<-", "liesInSupport",
- "isOldVersion", "conv2NewVersion", "gaps",
- "gaps<-", "setgaps", "getLow", "getUp")
-exportClasses("UnivarMixingDistribution",
- "UnivarLebDecDistribution",
- "AffLinUnivarLebDecDistribution",
- "AcDcLcDistribution")
-exportMethods("mixCoeff", "mixCoeff<-", "mixDistr", "mixDistr<-",
- "discretePart", "discretePart<-", "acPart", "acPart<-",
- "discreteWeight", "discreteWeight<-", "acWeight", "acWeight<-",
- "p.discrete", "d.discrete", "q.discrete", "r.discrete",
- "p.ac", "d.ac", "q.ac", "r.ac", "p.r", "q.l")
-exportMethods("decomposePM", "simplifyD", "showobj")
-exportMethods("Truncate","Minimum","Maximum","Huberize")
-exportMethods("solve", "sqrt")
-exportMethods("type", "SymmCenter", "Symmetry", ".logExact", ".lowerExact")
-export("UnivarMixingDistribution", "UnivarLebDecDistribution")
-export("RtoDPQ.LC", "flat.LCD", "flat.mix")
-exportMethods("abs","exp","^")
-exportMethods("NumbOfSummandsDistr","SummandsDistr")
-export("CompoundDistribution")
-export("PosDefSymmMatrix","PosSemDefSymmMatrix")
-export("NoSymmetry", "EllipticalSymmetry", "SphericalSymmetry",
- "DistrSymmList")
-export("qqbounds","igamma")
-exportMethods("qqplot")
-export(".isEqual",".isEqual01", ".inArgs", ".fillList",
- ".presubs", ".makeLenAndOrder", ".DistrCollapse")
-export("samplesize", "distribution", "samplesize<-")
Copied: branches/distr-2.8/pkg/distr/NAMESPACE (from rev 1146, branches/distr-2.7/pkg/distr/NAMESPACE)
===================================================================
--- branches/distr-2.8/pkg/distr/NAMESPACE (rev 0)
+++ branches/distr-2.8/pkg/distr/NAMESPACE 2018-07-08 13:50:09 UTC (rev 1172)
@@ -0,0 +1,103 @@
+useDynLib(distr, .registration = TRUE, .fixes = "C_")
+import("methods")
+import("stats")
+importFrom("grDevices", "dev.list", "dev.new", "xy.coords")
+importFrom("graphics", "plot", "abline", "layout", "legend", "lines", "mtext", "par", "points", "title")
+importFrom("MASS", "ginv")
+importFrom("utils", "str")
+importFrom("sfsmisc", "D1ss")
+import("startupmsg")
+
+export("Beta", "Binom", "Cauchy", "Chisq",
+ "Dirac","Exp", "DExp", "Fd", "Gammad",
+ "Geom", "Hyper", "Lnorm", "Logis",
+ "Nbinom", "Norm", "Pois", "RtoDPQ",
+ "RtoDPQ.d", "Td", "Unif", "Weibull", "Arcsine",
+ "distroptions", "getdistrOption", "simplifyr",
+ "Lattice", "DiscreteDistribution",
+ "EmpiricalDistribution",
+ "LatticeDistribution", "EuclideanSpace", "Reals",
+ "Naturals", "standardMethods",
+ "distrARITH", "distrMASK", "getLabel", "devNew")
+export("AbscontDistribution")
+export("DistrList", "UnivarDistrList")
+export("makeAbscontDistribution")
+exportClasses("rSpace", "EuclideanSpace", "Reals",
+ "Naturals")
+exportClasses("Parameter")
+exportClasses("OptionalParameter", "OptionalMatrix")
+exportClasses("BetaParameter", "BinomParameter",
+ "CauchyParameter", "ChisqParameter",
+ "DiracParameter", "ExpParameter",
+ "FParameter", "GammaParameter",
+ "HyperParameter", "GeomParameter",
+ "LogisParameter", "LnormParameter",
+ "NbinomParameter", "NormParameter",
+ "PoisParameter", "TParameter",
+ "UnifParameter", "WeibullParameter",
+ "UniNormParameter")
+exportClasses("Distribution")
+exportClasses("UnivariateDistribution", "AbscontDistribution",
+ "DiscreteDistribution", "LatticeDistribution",
+ "AffLinAbscontDistribution", "AffLinDiscreteDistribution",
+ "AffLinLatticeDistribution", "AffLinDistribution", "Lattice",
+ "Beta", "Binom", "Cauchy", "Chisq", "Dirac",
+ "DExp", "Exp", "Fd", "Gammad", "Geom",
+ "Hyper", "Logis", "Lnorm", "Nbinom", "Norm",
+ "Pois", "Td", "Unif", "Weibull", "Arcsine",
+ "ExpOrGammaOrChisq")
+exportClasses("UnivDistrListOrDistribution")
+exportClasses("CompoundDistribution")
+exportClasses("DistrList",
+ "UnivarDistrList")
+exportClasses("OptionalNumeric", "PosSemDefSymmMatrix",
+ "PosDefSymmMatrix",
+ "Symmetry", "DistributionSymmetry",
+ "NoSymmetry", "EllipticalSymmetry", "SphericalSymmetry",
+ "DistrSymmList")
+exportMethods("Max", "Max<-", "Min", "Min<-", "d", "df",
+ "df<-", "df1", "df1<-", "df2",
+ "df2<-", "dimension", "dimension<-", "name",
+ "name<-", "img", "k", "k<-",
+ "lambda", "lambda<-", "liesIn", "location",
+ "location<-", "m", "m<-", "mean",
+ "mean<-", "meanlog", "meanlog<-", "n",
+ "n<-", "ncp", "ncp<-", "p", "param",
+ "prob", "prob<-", "q", "r", "rate", "p.l", "q.r",
+ "rate<-", "scale", "scale<-", "sd", "sd<-",
+ "sdlog", "sdlog<-", "shape", "shape<-",
+ "shape1", "shape1<-", "shape2", "shape2<-",
+ "size", "size<-", "support", "initialize",
+ "print", "plot", "+", "-", "/", "*", "coerce",
+ "Math", "log", "log10", "gamma", "lgamma", "digamma",
+ "dim", "show", "convpow", "pivot", "sign",
+ "lattice", "width", "Length", "pivot<-",
+ "width<-", "Length<-", "liesInSupport",
+ "isOldVersion", "conv2NewVersion", "gaps",
+ "gaps<-", "setgaps", "getLow", "getUp")
+exportClasses("UnivarMixingDistribution",
+ "UnivarLebDecDistribution",
+ "AffLinUnivarLebDecDistribution",
+ "AcDcLcDistribution")
+exportMethods("mixCoeff", "mixCoeff<-", "mixDistr", "mixDistr<-",
+ "discretePart", "discretePart<-", "acPart", "acPart<-",
+ "discreteWeight", "discreteWeight<-", "acWeight", "acWeight<-",
+ "p.discrete", "d.discrete", "q.discrete", "r.discrete",
+ "p.ac", "d.ac", "q.ac", "r.ac", "p.r", "q.l")
+exportMethods("decomposePM", "simplifyD", "showobj")
+exportMethods("Truncate","Minimum","Maximum","Huberize")
+exportMethods("solve", "sqrt")
+exportMethods("type", "SymmCenter", "Symmetry", ".logExact", ".lowerExact")
+export("UnivarMixingDistribution", "UnivarLebDecDistribution")
+export("RtoDPQ.LC", "flat.LCD", "flat.mix")
+exportMethods("abs","exp","^")
+exportMethods("NumbOfSummandsDistr","SummandsDistr")
+export("CompoundDistribution")
+export("PosDefSymmMatrix","PosSemDefSymmMatrix")
+export("NoSymmetry", "EllipticalSymmetry", "SphericalSymmetry",
+ "DistrSymmList")
+export("qqbounds","igamma")
+exportMethods("qqplot")
+export(".isEqual",".isEqual01", ".inArgs", ".fillList",
+ ".presubs", ".makeLenAndOrder", ".DistrCollapse")
+export("samplesize", "distribution", "samplesize<-")
Deleted: branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R
===================================================================
--- branches/distr-2.7/pkg/distr/demo/ConvolutionNormalDistr.R 2018-04-13 16:25:40 UTC (rev 1142)
+++ branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -1,91 +0,0 @@
-###########################################################
-## Demo: Convolution of normal distributions
-###########################################################
-require(distr)
-options("newDevice"=TRUE)
-
-## initialize two normal distributions
-A <- Norm(mean=1, sd=2)
-B <- Norm(mean=4, sd=3)
-
-## convolution via addition of moments
-AB <- A+B
-
-## casting of A,B as absolutely continuous distributions
-## that is, ``forget'' that A,B are normal distributions
-A1 <- as(A, "AbscontDistribution")
-B1 <- as(B, "AbscontDistribution")
-
-## for higher precision we change the global variable
-## "TruncQuantile" from 1e-5 to 1e-8
-oldeps <- getdistrOption("TruncQuantile")
-eps <- 1e-8
-distroptions("TruncQuantile" = eps)
-## support of A1+B1 for FFT convolution is
-## [q(A1)(TruncQuantile),
-## q(B1)(TruncQuantile, lower.tail = FALSE)]
-
-## convolution via FFT
-AB1 <- A1+B1
-
-#############################
-## plots of the results
-#############################
-par(mfrow=c(1,3))
-low <- q(AB)(1e-15)
-upp <- q(AB)(1e-15, lower.tail = FALSE)
-x <- seq(from = low, to = upp, length = 10000)
-
-## densities
-plot(x, d(AB)(x), type = "l", lwd = 5)
-lines(x , d(AB1)(x), col = "orange", lwd = 1)
-title("Densities")
-legend("topleft", legend=c("exact", "FFT"),
- fill=c("black", "orange"))
-
-## cdfs
-plot(x, p(AB)(x), type = "l", lwd = 5)
-lines(x , p(AB1)(x), col = "orange", lwd = 1)
-title("Cumulative distribution functions")
-legend("topleft", legend=c("exact", "FFT"),
- fill=c("black", "orange"))
-
-## quantile functions
-x <- seq(from = eps, to = 1-eps, length = 1000)
-plot(x, q(AB)(x), type = "l", lwd = 5)
-lines(x , q(AB1)(x), col = "orange", lwd = 1)
-title("Quantile functions")
-legend(0, q(AB)(eps, lower.tail = FALSE),
- legend = c("exact", "FFT"),
- fill = c("black", "orange"))
-
-## Since the plots of the results show no
-## recognizable differencies, we also compute
-## the total variation distance of the densities
-## and the Kolmogorov distance of the cdfs
-
-## total variation distance of densities
-total.var <- function(z, N1, N2){
- 0.5*abs(d(N1)(z) - d(N2)(z))
-}
-dv <- integrate(f = total.var, lower = -Inf,
- upper = Inf, rel.tol = 1e-8,
- N1 = AB, N2 = AB1)
-cat("Total variation distance of densities:\t")
-print(dv) # 4.25e-07
-
-### meanwhile realized in package "distrEx"
-### as TotalVarDist(N1,N2)
-
-## Kolmogorov distance of cdfs
-## the distance is evaluated on a random grid
-z <- r(Unif(Min=low, Max=upp))(1e5)
-dk <- max(abs(p(AB)(z)-p(AB1)(z)))
-cat("Kolmogorov distance of cdfs:\t", dk, "\n")
-# 2.03e-07
-
-### meanwhile realized in package "distrEx"
-### as KolmogorovDist(N1,N2)
-
-## old distroptions
-distroptions("TruncQuantile" = oldeps)
Copied: branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R (from rev 1148, branches/distr-2.7/pkg/distr/demo/ConvolutionNormalDistr.R)
===================================================================
--- branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R (rev 0)
+++ branches/distr-2.8/pkg/distr/demo/ConvolutionNormalDistr.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -0,0 +1,91 @@
+###########################################################
+## Demo: Convolution of normal distributions
+###########################################################
+require(distr)
+options("newDevice"=TRUE)
+
+## initialize two normal distributions
+A <- Norm(mean=1, sd=2)
+B <- Norm(mean=4, sd=3)
+
+## convolution via addition of moments
+AB <- A+B
+
+## casting of A,B as absolutely continuous distributions
+## that is, ``forget'' that A,B are normal distributions
+A1 <- as(A, "AbscontDistribution")
+B1 <- as(B, "AbscontDistribution")
+
+## for higher precision we change the global variable
+## "TruncQuantile" from 1e-5 to 1e-8
+oldeps <- getdistrOption("TruncQuantile")
+eps <- 1e-8
+distroptions("TruncQuantile" = eps)
+## support of A1+B1 for FFT convolution is
+## [q.l(A1)(TruncQuantile),
+## q.l(B1)(TruncQuantile, lower.tail = FALSE)]
+
+## convolution via FFT
+AB1 <- A1+B1
+
+#############################
+## plots of the results
+#############################
+par(mfrow=c(1,3))
+low <- q.l(AB)(1e-15)
+upp <- q.l(AB)(1e-15, lower.tail = FALSE)
+x <- seq(from = low, to = upp, length = 10000)
+
+## densities
+plot(x, d(AB)(x), type = "l", lwd = 5)
+lines(x , d(AB1)(x), col = "orange", lwd = 1)
+title("Densities")
+legend("topleft", legend=c("exact", "FFT"),
+ fill=c("black", "orange"))
+
+## cdfs
+plot(x, p(AB)(x), type = "l", lwd = 5)
+lines(x , p(AB1)(x), col = "orange", lwd = 1)
+title("Cumulative distribution functions")
+legend("topleft", legend=c("exact", "FFT"),
+ fill=c("black", "orange"))
+
+## quantile functions
+x <- seq(from = eps, to = 1-eps, length = 1000)
+plot(x, q.l(AB)(x), type = "l", lwd = 5)
+lines(x , q.l(AB1)(x), col = "orange", lwd = 1)
+title("Quantile functions")
+legend(0, q.l(AB)(eps, lower.tail = FALSE),
+ legend = c("exact", "FFT"),
+ fill = c("black", "orange"))
+
+## Since the plots of the results show no
+## recognizable differencies, we also compute
+## the total variation distance of the densities
+## and the Kolmogorov distance of the cdfs
+
+## total variation distance of densities
+total.var <- function(z, N1, N2){
+ 0.5*abs(d(N1)(z) - d(N2)(z))
+}
+dv <- integrate(f = total.var, lower = -Inf,
+ upper = Inf, rel.tol = 1e-8,
+ N1 = AB, N2 = AB1)
+cat("Total variation distance of densities:\t")
+print(dv) # 4.25e-07
+
+### meanwhile realized in package "distrEx"
+### as TotalVarDist(N1,N2)
+
+## Kolmogorov distance of cdfs
+## the distance is evaluated on a random grid
+z <- r(Unif(Min=low, Max=upp))(1e5)
+dk <- max(abs(p(AB)(z)-p(AB1)(z)))
+cat("Kolmogorov distance of cdfs:\t", dk, "\n")
+# 2.03e-07
+
+### meanwhile realized in package "distrEx"
+### as KolmogorovDist(N1,N2)
+
+## old distroptions
+distroptions("TruncQuantile" = oldeps)
Deleted: branches/distr-2.8/pkg/distr/demo/Expectation.R
===================================================================
--- branches/distr-2.7/pkg/distr/demo/Expectation.R 2018-04-13 16:25:40 UTC (rev 1142)
+++ branches/distr-2.8/pkg/distr/demo/Expectation.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -1,40 +0,0 @@
-require(distr)
-options("newDevice"=TRUE)
-
-if(!isGeneric("E"))
- setGeneric("E",
- function(object, fun) standardGeneric("E"))
-
-setMethod("E",
- signature(object = "AbscontDistribution",
- fun = "function"),
- function(object, fun){
- integrand <- function(x) fun(x) * d(object)(x)
- return(integrate(f = integrand,
- lower = q(object)(0),
- upper = q(object)(1))$value)
- })
-
-setMethod("E",
- signature(object = "DiscreteDistribution",
- fun = "function"),
- function(object, fun){
- supp = support(object)
- return(sum(fun(supp) * d(object)(supp)))
- })
-
-
-
-# Example
-id <- function(x) x
-sq <- function(x) x^2
-
-# Expectation and Variance of Binom(6,0.5)
-B <- Binom(6, 0.5)
-E(B, id)
-E(B, sq) - E(B, id)^2
-
-# Expectation and Variance of Norm(1,1)
-N <- Norm(1, 1)
-E(N, id)
-E(N, sq) - E(N, id)^2
Copied: branches/distr-2.8/pkg/distr/demo/Expectation.R (from rev 1148, branches/distr-2.7/pkg/distr/demo/Expectation.R)
===================================================================
--- branches/distr-2.8/pkg/distr/demo/Expectation.R (rev 0)
+++ branches/distr-2.8/pkg/distr/demo/Expectation.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -0,0 +1,40 @@
+require(distr)
+options("newDevice"=TRUE)
+
+if(!isGeneric("E"))
+ setGeneric("E",
+ function(object, fun) standardGeneric("E"))
+
+setMethod("E",
+ signature(object = "AbscontDistribution",
+ fun = "function"),
+ function(object, fun){
+ integrand <- function(x) fun(x) * d(object)(x)
+ return(integrate(f = integrand,
+ lower = q.l(object)(0),
+ upper = q.l(object)(1))$value)
+ })
+
+setMethod("E",
+ signature(object = "DiscreteDistribution",
+ fun = "function"),
+ function(object, fun){
+ supp = support(object)
+ return(sum(fun(supp) * d(object)(supp)))
+ })
+
+
+
+# Example
+id <- function(x) x
+sq <- function(x) x^2
+
+# Expectation and Variance of Binom(6,0.5)
+B <- Binom(6, 0.5)
+E(B, id)
+E(B, sq) - E(B, id)^2
+
+# Expectation and Variance of Norm(1,1)
+N <- Norm(1, 1)
+E(N, id)
+E(N, sq) - E(N, id)^2
Deleted: branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R
===================================================================
--- branches/distr-2.7/pkg/distr/demo/StationaryRegressorDistr.R 2018-04-13 16:25:40 UTC (rev 1142)
+++ branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -1,101 +0,0 @@
-#####################################################
-## Demo: Stationary Regressor Distribution of an AR(1)
-## Process
-#####################################################
-require(distr)
-options("newDevice"=TRUE)
-
-## Approximation of the stationary regressor
-## distribution of an AR(1) process
-## X_t = phi X_{t-1} + V_t
-## where V_t i.i.d N(0,1) and phi\in(0,1)
-## We obtain
-## X_t = \sum_{j=1}^\infty phi^j V_{t-j}
-## i.e., X_t \sim N(0,1/(1-phi^2))
-phi <- 0.5
-
-## casting of V as absolutely continuous distributions
-## that is, ``forget'' that V is a normal distribution
-V <- as(Norm(), "AbscontDistribution")
-
-## for higher precision we change the global variable
-## "TruncQuantile" from 1e-5 to 1e-8
-oldeps <- getdistrOption("TruncQuantile")
-eps <- 1e-8
-distroptions("TruncQuantile" = eps)
-
-## Computation of the approximation
-## H=\sum_{j=1}^n phi^j V_{t-j}
-## of the stationary regressor distribution
-## (via convolution using FFT)
-H <- V
-n <- 15
-## may take some time
-for(i in 1:n){Vi <- phi^i*V; H <- H + Vi }
-
-## the stationary regressor distribution (exact)
-X <- Norm(sd=sqrt(1/(1-phi^2)))
-
-#############################
-## plots of the results
-#############################
-par(mfrow=c(1,3))
-low <- q(X)(1e-15)
-upp <- q(X)(1e-15, lower.tail = FALSE)
-x <- seq(from = low, to = upp, length = 10000)
-
-## densities
-plot(x, d(X)(x),type = "l", lwd = 5)
-lines(x , d(H)(x), col = "orange", lwd = 1)
-title("Densities")
-legend("topleft", legend=c("exact", "FFT"),
- fill=c("black", "orange"))
-
-## cdfs
-plot(x, p(X)(x),type = "l", lwd = 5)
-lines(x , p(H)(x), col = "orange", lwd = 1)
-title("Cumulative distribution functions")
-legend("topleft", legend=c("exact", "FFT"),
- fill=c("black", "orange"))
-
-## quantile functions
-x <- seq(from = eps, to = 1-eps, length = 1000)
-plot(x, q(X)(x),type = "l", lwd = 5)
-lines(x , q(H)(x), col = "orange", lwd = 1)
-title("Quantile functions")
-legend( "topleft",
- legend=c("exact", "FFT"),
- fill=c("black", "orange"))
-
-## Since the plots of the results show no
-## recognizable differencies, we also compute
-## the total variation distance of the densities
-## and the Kolmogorov distance of the cdfs
-
-## total variation distance of densities
-total.var <- function(z, N1, N2){
- 0.5*abs(d(N1)(z) - d(N2)(z))
-}
-dv <- integrate(f = total.var, lower = -Inf,
- upper = Inf, rel.tol = 1e-5,
- N1=X, N2=H)
-cat("Total variation distance of densities:\t")
-print(dv) # 8.0e-06
-
-### meanwhile realized in package "distrEx"
-### as TotalVarDist(N1,N2)
-
-
-## Kolmogorov distance of cdfs
-## the distance is evaluated on a random grid
-z <- r(Unif(Min=low, Max=upp))(1e5)
-dk <- max(abs(p(X)(z)-p(H)(z)))
-cat("Kolmogorov distance of cdfs:\t", dk, "\n")
-# 3.7e-05
-
-### meanwhile realized in package "distrEx"
-### as KolmogorovDist(N1,N2)
-
-
-## old distroptions
-distroptions("TruncQuantile" = oldeps)
Copied: branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R (from rev 1148, branches/distr-2.7/pkg/distr/demo/StationaryRegressorDistr.R)
===================================================================
--- branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R (rev 0)
+++ branches/distr-2.8/pkg/distr/demo/StationaryRegressorDistr.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -0,0 +1,101 @@
+#####################################################
+## Demo: Stationary Regressor Distribution of an AR(1)
+## Process
+#####################################################
+require(distr)
+options("newDevice"=TRUE)
+
+## Approximation of the stationary regressor
+## distribution of an AR(1) process
+## X_t = phi X_{t-1} + V_t
+## where V_t i.i.d N(0,1) and phi\in(0,1)
+## We obtain
+## X_t = \sum_{j=1}^\infty phi^j V_{t-j}
+## i.e., X_t \sim N(0,1/(1-phi^2))
+phi <- 0.5
+
+## casting of V as absolutely continuous distributions
+## that is, ``forget'' that V is a normal distribution
+V <- as(Norm(), "AbscontDistribution")
+
+## for higher precision we change the global variable
+## "TruncQuantile" from 1e-5 to 1e-8
+oldeps <- getdistrOption("TruncQuantile")
+eps <- 1e-8
+distroptions("TruncQuantile" = eps)
+
+## Computation of the approximation
+## H=\sum_{j=1}^n phi^j V_{t-j}
+## of the stationary regressor distribution
+## (via convolution using FFT)
+H <- V
+n <- 15
+## may take some time
+for(i in 1:n){Vi <- phi^i*V; H <- H + Vi }
+
+## the stationary regressor distribution (exact)
+X <- Norm(sd=sqrt(1/(1-phi^2)))
+
+#############################
+## plots of the results
+#############################
+par(mfrow=c(1,3))
+low <- q.l(X)(1e-15)
+upp <- q.l(X)(1e-15, lower.tail = FALSE)
+x <- seq(from = low, to = upp, length = 10000)
+
+## densities
+plot(x, d(X)(x),type = "l", lwd = 5)
+lines(x , d(H)(x), col = "orange", lwd = 1)
+title("Densities")
+legend("topleft", legend=c("exact", "FFT"),
+ fill=c("black", "orange"))
+
+## cdfs
+plot(x, p(X)(x),type = "l", lwd = 5)
+lines(x , p(H)(x), col = "orange", lwd = 1)
+title("Cumulative distribution functions")
+legend("topleft", legend=c("exact", "FFT"),
+ fill=c("black", "orange"))
+
+## quantile functions
+x <- seq(from = eps, to = 1-eps, length = 1000)
+plot(x, q.l(X)(x),type = "l", lwd = 5)
+lines(x , q.l(H)(x), col = "orange", lwd = 1)
+title("Quantile functions")
+legend( "topleft",
+ legend=c("exact", "FFT"),
+ fill=c("black", "orange"))
+
+## Since the plots of the results show no
+## recognizable differencies, we also compute
+## the total variation distance of the densities
+## and the Kolmogorov distance of the cdfs
+
+## total variation distance of densities
+total.var <- function(z, N1, N2){
+ 0.5*abs(d(N1)(z) - d(N2)(z))
+}
+dv <- integrate(f = total.var, lower = -Inf,
+ upper = Inf, rel.tol = 1e-5,
+ N1=X, N2=H)
+cat("Total variation distance of densities:\t")
+print(dv) # 8.0e-06
+
+### meanwhile realized in package "distrEx"
+### as TotalVarDist(N1,N2)
+
+
+## Kolmogorov distance of cdfs
+## the distance is evaluated on a random grid
+z <- r(Unif(Min=low, Max=upp))(1e5)
+dk <- max(abs(p(X)(z)-p(H)(z)))
+cat("Kolmogorov distance of cdfs:\t", dk, "\n")
+# 3.7e-05
+
+### meanwhile realized in package "distrEx"
+### as KolmogorovDist(N1,N2)
+
+
+## old distroptions
+distroptions("TruncQuantile" = oldeps)
Deleted: branches/distr-2.8/pkg/distr/demo/nFoldConvolution.R
===================================================================
--- branches/distr-2.7/pkg/distr/demo/nFoldConvolution.R 2018-04-13 16:25:40 UTC (rev 1142)
+++ branches/distr-2.8/pkg/distr/demo/nFoldConvolution.R 2018-07-08 13:50:09 UTC (rev 1172)
@@ -1,166 +0,0 @@
-##########################################################
-## Demo: n-fold convolution of absolutely continuous
-## probability distributions
-##########################################################
-require(distr)
-options("newDevice"=TRUE)
-
-### from version 1.9 of distr on available in the package
-### already
-
-if(!isGeneric("convpow"))
- setGeneric("convpow",
- function(D1, ...) standardGeneric("convpow"))
-
-##########################################################
-## Function for n-fold convolution
-## -- absolute continuous distribution --
-##########################################################
-
-##implentation of Algorithm 3.4. of
-#P. Ruckdeschel, M. Kohl (2014): General Purpose Convolution Algorithm for
-# Distributions in S4 Classes by Means of FFT. J. Statist. Softw. 59(4), 1-25.
-
-
-setMethod("convpow",
- signature(D1 = "AbscontDistribution"),
- function(D1, N){
- if((N<1)||(abs(floor(N)-N)>.Machine$double.eps))
- stop("N has to be a natural greater than 0")
-
- m <- getdistrOption("DefaultNrFFTGridPointsExponent")
-
- ##STEP 1
-
- lower <- ifelse((q(D1)(0) > - Inf), q(D1)(0),
- q(D1)(getdistrOption("TruncQuantile"))
- )
- upper <- ifelse((q(D1)(1) < Inf), q(D1)(1),
- q(D1)(getdistrOption("TruncQuantile"),
- lower.tail = FALSE)
- )
-
- ##STEP 2
-
- M <- 2^m
- h <- (upper-lower)/M
- if(h > 0.01)
- warning(paste("Grid for approxfun too wide,",
- "increase DefaultNrFFTGridPointsExponent"))
- x <- seq(from = lower, to = upper, by = h)
- p1 <- p(D1)(x)
-
- ##STEP 3
-
- p1 <- p1[2:(M + 1)] - p1[1:M]
-
- ##STEP 4
-
- ## computation of DFT
- pn <- c(p1, numeric((N-1)*M))
- fftpn <- fft(pn)
-
- ##STEP 5
-
- ## convolution theorem for DFTs
- pn <- Re(fft(fftpn^N, inverse = TRUE)) / (N*M)
- pn <- (abs(pn) >= .Machine$double.eps)*pn
- i.max <- N*M-(N-2)
- pn <- c(0,pn[1:i.max])
- dn <- pn / h
- pn <- cumsum(pn)
-
- ##STEP 6(density)
-
- ## density
- x <- seq(from = N*lower+N/2*h,
- to = N*upper-N/2*h, by=h)
- x <- c(x[1]-h,x[1],x+h)
- dnfun1 <- approxfun(x = x, y = dn, yleft = 0, yright = 0)
-
- ##STEP 7(density)
-
- standardizer <- sum(dn) - (dn[1]+dn[i.max+1]) / 2
- dnfun2 <- function(x) dnfun1(x) / standardizer
-
- ##STEP 6(cdf)
-
- ## cdf with continuity correction h/2
- pnfun1 <- approxfun(x = x+0.5*h, y = pn,
- yleft = 0, yright = pn[i.max+1])
-
- ##STEP 7(cdf)
-
- pnfun2 <- function(x) pnfun1(x) / pn[i.max+1]
-
-
- ## quantile with continuity correction h/2
- yleft <- ifelse(((q(D1)(0) == -Inf)|
- (q(D1)(0) == -Inf)), -Inf, N*lower)
- yright <- ifelse(((q(D1)(1) == Inf)|
- (q(D1)(1) == Inf)), Inf, N*upper)
- w0 <- options("warn")
- options(warn = -1)
- qnfun1 <- approxfun(x = pnfun2(x+0.5*h), y = x+0.5*h,
- yleft = yleft, yright = yright)
- qnfun2 <- function(x){
- ind1 <- (x == 0)*(1:length(x))
- ind2 <- (x == 1)*(1:length(x))
- y <- qnfun1(x)
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/distr -r 1172
More information about the Distr-commits
mailing list