[Distr-commits] r443 - branches/distr-2.2/pkg/distr branches/distr-2.2/pkg/distr/R branches/distr-2.2/pkg/distr/chm branches/distr-2.2/pkg/distr/inst branches/distr-2.2/pkg/distr/man branches/distr-2.2/pkg/distrDoc/inst/doc branches/distr-2.2/pkg/distrEx branches/distr-2.2/pkg/distrEx/R branches/distr-2.2/pkg/distrEx/chm branches/distr-2.2/pkg/distrEx/demo branches/distr-2.2/pkg/distrEx/man branches/distr-2.2/pkg/distrEx/src branches/distr-2.2/pkg/distrMod branches/distr-2.2/pkg/distrMod/R branches/distr-2.2/pkg/distrMod/chm branches/distr-2.2/pkg/distrMod/inst branches/distr-2.2/pkg/distrMod/man pkg/distrEx pkg/distrEx/demo
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Wed Mar 25 20:06:53 CET 2009
Author: ruckdeschel
Date: 2009-03-25 20:06:52 +0100 (Wed, 25 Mar 2009)
New Revision: 443
Added:
branches/distr-2.2/pkg/distrEx/man/PrognCondDistribution.Rd
branches/distr-2.2/pkg/distrEx/man/internals.Rd
Removed:
branches/distr-2.2/pkg/distrMod/R/DistrSymmList.R
branches/distr-2.2/pkg/distrMod/R/PosDefSymmMatrix.R
branches/distr-2.2/pkg/distrMod/R/solve.R
branches/distr-2.2/pkg/distrMod/R/sqrt.R
branches/distr-2.2/pkg/distrMod/man/DistrSymmList-class.Rd
branches/distr-2.2/pkg/distrMod/man/DistrSymmList.Rd
branches/distr-2.2/pkg/distrMod/man/DistributionSymmetry-class.Rd
branches/distr-2.2/pkg/distrMod/man/EllipticalSymmetry-class.Rd
branches/distr-2.2/pkg/distrMod/man/EllipticalSymmetry.Rd
branches/distr-2.2/pkg/distrMod/man/NoSymmetry-class.Rd
branches/distr-2.2/pkg/distrMod/man/NoSymmetry.Rd
branches/distr-2.2/pkg/distrMod/man/PosDefSymmMatrix-class.Rd
branches/distr-2.2/pkg/distrMod/man/PosDefSymmMatrix.Rd
branches/distr-2.2/pkg/distrMod/man/SphericalSymmetry-class.Rd
branches/distr-2.2/pkg/distrMod/man/SphericalSymmetry.Rd
branches/distr-2.2/pkg/distrMod/man/Symmetry-class.Rd
branches/distr-2.2/pkg/distrMod/man/solve-methods.Rd
branches/distr-2.2/pkg/distrMod/man/sqrt-methods.Rd
Modified:
branches/distr-2.2/pkg/distr/NAMESPACE
branches/distr-2.2/pkg/distr/R/0distrOptions.R
branches/distr-2.2/pkg/distr/R/AllClasses.R
branches/distr-2.2/pkg/distr/R/AllGenerics.R
branches/distr-2.2/pkg/distr/R/AllInitialize.R
branches/distr-2.2/pkg/distr/R/CompoundDistribution.R
branches/distr-2.2/pkg/distr/R/ContDistribution.R
branches/distr-2.2/pkg/distr/R/Convpow.r
branches/distr-2.2/pkg/distr/R/DiscreteDistribution.R
branches/distr-2.2/pkg/distr/R/DistrList.R
branches/distr-2.2/pkg/distr/R/Distribution.R
branches/distr-2.2/pkg/distr/R/ExtraConvolutionMethods.R
branches/distr-2.2/pkg/distr/R/Huberize.R
branches/distr-2.2/pkg/distr/R/LaplaceDistribution.R
branches/distr-2.2/pkg/distr/R/LatticeDistribution.R
branches/distr-2.2/pkg/distr/R/NormalDistribution.R
branches/distr-2.2/pkg/distr/R/Truncate.R
branches/distr-2.2/pkg/distr/R/UnivarLebDecDistribution.R
branches/distr-2.2/pkg/distr/R/UnivarMixingDistribution.R
branches/distr-2.2/pkg/distr/R/bAcDcLcDistribution.R
branches/distr-2.2/pkg/distr/R/bAffLinUnivarLebDecDistribution.R
branches/distr-2.2/pkg/distr/R/print-show-methods.R
branches/distr-2.2/pkg/distr/chm/00Index.html
branches/distr-2.2/pkg/distr/chm/0distr-package.html
branches/distr-2.2/pkg/distr/chm/Arcsine-class.html
branches/distr-2.2/pkg/distr/chm/Beta-class.html
branches/distr-2.2/pkg/distr/chm/BetaParameter-class.html
branches/distr-2.2/pkg/distr/chm/Binom-class.html
branches/distr-2.2/pkg/distr/chm/BinomParameter-class.html
branches/distr-2.2/pkg/distr/chm/Cauchy-class.html
branches/distr-2.2/pkg/distr/chm/CauchyParameter-class.html
branches/distr-2.2/pkg/distr/chm/Chisq-class.html
branches/distr-2.2/pkg/distr/chm/ChisqParameter-class.html
branches/distr-2.2/pkg/distr/chm/CompoundDistribution-class.html
branches/distr-2.2/pkg/distr/chm/CompoundDistribution.html
branches/distr-2.2/pkg/distr/chm/ContDistribution-class.html
branches/distr-2.2/pkg/distr/chm/ContDistribution.html
branches/distr-2.2/pkg/distr/chm/ConvPow.html
branches/distr-2.2/pkg/distr/chm/DExp-class.html
branches/distr-2.2/pkg/distr/chm/Dirac-class.html
branches/distr-2.2/pkg/distr/chm/DiracParameter-class.html
branches/distr-2.2/pkg/distr/chm/DiscreteDistribution-class.html
branches/distr-2.2/pkg/distr/chm/DiscreteDistribution.html
branches/distr-2.2/pkg/distr/chm/Distr.chm
branches/distr-2.2/pkg/distr/chm/Distr.hhp
branches/distr-2.2/pkg/distr/chm/Distr.toc
branches/distr-2.2/pkg/distr/chm/DistrList-class.html
branches/distr-2.2/pkg/distr/chm/DistrList.html
branches/distr-2.2/pkg/distr/chm/Distribution-class.html
branches/distr-2.2/pkg/distr/chm/EuclideanSpace-class.html
branches/distr-2.2/pkg/distr/chm/Exp-class.html
branches/distr-2.2/pkg/distr/chm/ExpOrGammaOrChisq-class.html
branches/distr-2.2/pkg/distr/chm/ExpParameter-class.html
branches/distr-2.2/pkg/distr/chm/FParameter-class.html
branches/distr-2.2/pkg/distr/chm/Fd-class.html
branches/distr-2.2/pkg/distr/chm/GammaParameter-class.html
branches/distr-2.2/pkg/distr/chm/Gammad-class.html
branches/distr-2.2/pkg/distr/chm/Geom-class.html
branches/distr-2.2/pkg/distr/chm/GeomParameter-class.html
branches/distr-2.2/pkg/distr/chm/Huberize-methods.html
branches/distr-2.2/pkg/distr/chm/Hyper-class.html
branches/distr-2.2/pkg/distr/chm/HyperParameter-class.html
branches/distr-2.2/pkg/distr/chm/Integer-class.html
branches/distr-2.2/pkg/distr/chm/Lattice-class.html
branches/distr-2.2/pkg/distr/chm/LatticeDistribution-class.html
branches/distr-2.2/pkg/distr/chm/LatticeDistribution.html
branches/distr-2.2/pkg/distr/chm/Length-methods.html
branches/distr-2.2/pkg/distr/chm/Lnorm-class.html
branches/distr-2.2/pkg/distr/chm/LnormParameter-class.html
branches/distr-2.2/pkg/distr/chm/Logis-class.html
branches/distr-2.2/pkg/distr/chm/LogisParameter-class.html
branches/distr-2.2/pkg/distr/chm/MakeAbscontDistribution.html
branches/distr-2.2/pkg/distr/chm/Math-methods.html
branches/distr-2.2/pkg/distr/chm/Max-methods.html
branches/distr-2.2/pkg/distr/chm/Min-methods.html
branches/distr-2.2/pkg/distr/chm/MinMaximum-methods.html
branches/distr-2.2/pkg/distr/chm/Naturals-class.html
branches/distr-2.2/pkg/distr/chm/Nbinom-class.html
branches/distr-2.2/pkg/distr/chm/NbinomParameter-class.html
branches/distr-2.2/pkg/distr/chm/Norm-class.html
branches/distr-2.2/pkg/distr/chm/NormParameter-class.html
branches/distr-2.2/pkg/distr/chm/OptionalParameter-class.html
branches/distr-2.2/pkg/distr/chm/Parameter-class.html
branches/distr-2.2/pkg/distr/chm/Pois-class.html
branches/distr-2.2/pkg/distr/chm/PoisParameter-class.html
branches/distr-2.2/pkg/distr/chm/Reals-class.html
branches/distr-2.2/pkg/distr/chm/RtoDPQ.LC.html
branches/distr-2.2/pkg/distr/chm/RtoDPQ.d.html
branches/distr-2.2/pkg/distr/chm/RtoDPQ.html
branches/distr-2.2/pkg/distr/chm/TParameter-class.html
branches/distr-2.2/pkg/distr/chm/Td-class.html
branches/distr-2.2/pkg/distr/chm/Truncate-methods.html
branches/distr-2.2/pkg/distr/chm/UniNormParameter-class.html
branches/distr-2.2/pkg/distr/chm/Unif-class.html
branches/distr-2.2/pkg/distr/chm/UnifParameter-class.html
branches/distr-2.2/pkg/distr/chm/UnivarDistrList-class.html
branches/distr-2.2/pkg/distr/chm/UnivarDistrList.html
branches/distr-2.2/pkg/distr/chm/UnivarLebDecDistribution-class.html
branches/distr-2.2/pkg/distr/chm/UnivarLebDecDistribution.html
branches/distr-2.2/pkg/distr/chm/UnivarMixingDistribution-class.html
branches/distr-2.2/pkg/distr/chm/UnivarMixingDistribution.html
branches/distr-2.2/pkg/distr/chm/UnivariateDistribution-class.html
branches/distr-2.2/pkg/distr/chm/Weibull-class.html
branches/distr-2.2/pkg/distr/chm/WeibullParameter-class.html
branches/distr-2.2/pkg/distr/chm/d-methods.html
branches/distr-2.2/pkg/distr/chm/decomposePM-methods.html
branches/distr-2.2/pkg/distr/chm/df-methods.html
branches/distr-2.2/pkg/distr/chm/df1-methods.html
branches/distr-2.2/pkg/distr/chm/df2-methods.html
branches/distr-2.2/pkg/distr/chm/dim-methods.html
branches/distr-2.2/pkg/distr/chm/dimension-methods.html
branches/distr-2.2/pkg/distr/chm/distrARITH.html
branches/distr-2.2/pkg/distr/chm/distrMASK.html
branches/distr-2.2/pkg/distr/chm/distroptions.html
branches/distr-2.2/pkg/distr/chm/flat.LCD.html
branches/distr-2.2/pkg/distr/chm/flat.mix.html
branches/distr-2.2/pkg/distr/chm/gap-methods.html
branches/distr-2.2/pkg/distr/chm/getLabel.html
branches/distr-2.2/pkg/distr/chm/getLow.html
branches/distr-2.2/pkg/distr/chm/img-methods.html
branches/distr-2.2/pkg/distr/chm/internals.html
branches/distr-2.2/pkg/distr/chm/k-methods.html
branches/distr-2.2/pkg/distr/chm/lambda-methods.html
branches/distr-2.2/pkg/distr/chm/liesIn-methods.html
branches/distr-2.2/pkg/distr/chm/liesInSupport.html
branches/distr-2.2/pkg/distr/chm/location-methods.html
branches/distr-2.2/pkg/distr/chm/m-methods.html
branches/distr-2.2/pkg/distr/chm/mean-methods.html
branches/distr-2.2/pkg/distr/chm/meanlog-methods.html
branches/distr-2.2/pkg/distr/chm/n-methods.html
branches/distr-2.2/pkg/distr/chm/name-methods.html
branches/distr-2.2/pkg/distr/chm/ncp-methods.html
branches/distr-2.2/pkg/distr/chm/operators-methods.html
branches/distr-2.2/pkg/distr/chm/options.html
branches/distr-2.2/pkg/distr/chm/p-methods.html
branches/distr-2.2/pkg/distr/chm/p.l-methods.html
branches/distr-2.2/pkg/distr/chm/param-methods.html
branches/distr-2.2/pkg/distr/chm/pivot-methods.html
branches/distr-2.2/pkg/distr/chm/plot-methods.html
branches/distr-2.2/pkg/distr/chm/print-methods.html
branches/distr-2.2/pkg/distr/chm/prob-methods.html
branches/distr-2.2/pkg/distr/chm/q-methods.html
branches/distr-2.2/pkg/distr/chm/q.r-methods.html
branches/distr-2.2/pkg/distr/chm/r-methods.html
branches/distr-2.2/pkg/distr/chm/rSpace-class.html
branches/distr-2.2/pkg/distr/chm/rate-methods.html
branches/distr-2.2/pkg/distr/chm/scale-methods.html
branches/distr-2.2/pkg/distr/chm/sd-methods.html
branches/distr-2.2/pkg/distr/chm/sdlog-methods.html
branches/distr-2.2/pkg/distr/chm/shape-methods.html
branches/distr-2.2/pkg/distr/chm/shape1-methods.html
branches/distr-2.2/pkg/distr/chm/shape2-methods.html
branches/distr-2.2/pkg/distr/chm/showobj-methods.html
branches/distr-2.2/pkg/distr/chm/simplifyD-methods.html
branches/distr-2.2/pkg/distr/chm/simplifyr-methods.html
branches/distr-2.2/pkg/distr/chm/size-methods.html
branches/distr-2.2/pkg/distr/chm/standardMethods.html
branches/distr-2.2/pkg/distr/chm/support-methods.html
branches/distr-2.2/pkg/distr/chm/versionmanagement.html
branches/distr-2.2/pkg/distr/chm/width-methods.html
branches/distr-2.2/pkg/distr/inst/MASKING
branches/distr-2.2/pkg/distr/man/0distr-package.Rd
branches/distr-2.2/pkg/distr/man/Arcsine-class.Rd
branches/distr-2.2/pkg/distr/man/Beta-class.Rd
branches/distr-2.2/pkg/distr/man/Binom-class.Rd
branches/distr-2.2/pkg/distr/man/Cauchy-class.Rd
branches/distr-2.2/pkg/distr/man/Chisq-class.Rd
branches/distr-2.2/pkg/distr/man/CompoundDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/ContDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/ContDistribution.Rd
branches/distr-2.2/pkg/distr/man/DExp-class.Rd
branches/distr-2.2/pkg/distr/man/Dirac-class.Rd
branches/distr-2.2/pkg/distr/man/DiscreteDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/DiscreteDistribution.Rd
branches/distr-2.2/pkg/distr/man/Distribution-class.Rd
branches/distr-2.2/pkg/distr/man/Exp-class.Rd
branches/distr-2.2/pkg/distr/man/Fd-class.Rd
branches/distr-2.2/pkg/distr/man/Gammad-class.Rd
branches/distr-2.2/pkg/distr/man/Geom-class.Rd
branches/distr-2.2/pkg/distr/man/Hyper-class.Rd
branches/distr-2.2/pkg/distr/man/LatticeDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/LatticeDistribution.Rd
branches/distr-2.2/pkg/distr/man/Lnorm-class.Rd
branches/distr-2.2/pkg/distr/man/Logis-class.Rd
branches/distr-2.2/pkg/distr/man/Nbinom-class.Rd
branches/distr-2.2/pkg/distr/man/Norm-class.Rd
branches/distr-2.2/pkg/distr/man/Pois-class.Rd
branches/distr-2.2/pkg/distr/man/Td-class.Rd
branches/distr-2.2/pkg/distr/man/Unif-class.Rd
branches/distr-2.2/pkg/distr/man/UnivarLebDecDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/UnivarMixingDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/UnivariateDistribution-class.Rd
branches/distr-2.2/pkg/distr/man/Weibull-class.Rd
branches/distr-2.2/pkg/distr/man/distroptions.Rd
branches/distr-2.2/pkg/distrDoc/inst/doc/distr.Rnw
branches/distr-2.2/pkg/distrEx/NAMESPACE
branches/distr-2.2/pkg/distrEx/R/ConvexContamination.R
branches/distr-2.2/pkg/distrEx/R/DiscreteMVDistribution.R
branches/distr-2.2/pkg/distrEx/R/Expectation.R
branches/distr-2.2/pkg/distrEx/R/Expectation_LebDec.R
branches/distr-2.2/pkg/distrEx/R/Functionals.R
branches/distr-2.2/pkg/distrEx/R/Kurtosis.R
branches/distr-2.2/pkg/distrEx/R/PrognCondDistribution.R
branches/distr-2.2/pkg/distrEx/R/Skewness.R
branches/distr-2.2/pkg/distrEx/chm/00Index.html
branches/distr-2.2/pkg/distrEx/chm/0distrEx-package.html
branches/distr-2.2/pkg/distrEx/chm/AbscontCondDistribution-class.html
branches/distr-2.2/pkg/distrEx/chm/AsymTotalVarDist.html
branches/distr-2.2/pkg/distrEx/chm/Condition-class.html
branches/distr-2.2/pkg/distrEx/chm/ContaminationSize.html
branches/distr-2.2/pkg/distrEx/chm/ConvexContamination.html
branches/distr-2.2/pkg/distrEx/chm/CvMDist.html
branches/distr-2.2/pkg/distrEx/chm/DiscreteCondDistribution-class.html
branches/distr-2.2/pkg/distrEx/chm/DiscreteMVDistribution-class.html
branches/distr-2.2/pkg/distrEx/chm/DiscreteMVDistribution.html
branches/distr-2.2/pkg/distrEx/chm/E.html
branches/distr-2.2/pkg/distrEx/chm/EuclCondition-class.html
branches/distr-2.2/pkg/distrEx/chm/EuclCondition.html
branches/distr-2.2/pkg/distrEx/chm/GLIntegrate.html
branches/distr-2.2/pkg/distrEx/chm/Gumbel-class.html
branches/distr-2.2/pkg/distrEx/chm/Gumbel.html
branches/distr-2.2/pkg/distrEx/chm/GumbelParameter-class.html
branches/distr-2.2/pkg/distrEx/chm/HellingerDist.html
branches/distr-2.2/pkg/distrEx/chm/KolmogorovDist.html
branches/distr-2.2/pkg/distrEx/chm/LMCondDistribution.html
branches/distr-2.2/pkg/distrEx/chm/LMParameter-class.html
branches/distr-2.2/pkg/distrEx/chm/LMParameter.html
branches/distr-2.2/pkg/distrEx/chm/MultivariateDistribution-class.html
branches/distr-2.2/pkg/distrEx/chm/OAsymTotalVarDist.html
branches/distr-2.2/pkg/distrEx/chm/Pareto-class.html
branches/distr-2.2/pkg/distrEx/chm/Pareto.html
branches/distr-2.2/pkg/distrEx/chm/ParetoParameter-class.html
branches/distr-2.2/pkg/distrEx/chm/PrognCondDistribution-class.html
branches/distr-2.2/pkg/distrEx/chm/PrognCondition-class.html
branches/distr-2.2/pkg/distrEx/chm/TotalVarDist.html
branches/distr-2.2/pkg/distrEx/chm/UnivariateCondDistribution-class.html
branches/distr-2.2/pkg/distrEx/chm/Var.html
branches/distr-2.2/pkg/distrEx/chm/dim-methods.html
branches/distr-2.2/pkg/distrEx/chm/distrEx.chm
branches/distr-2.2/pkg/distrEx/chm/distrEx.hhp
branches/distr-2.2/pkg/distrEx/chm/distrEx.toc
branches/distr-2.2/pkg/distrEx/chm/distrExIntegrate.html
branches/distr-2.2/pkg/distrEx/chm/distrExMASK.html
branches/distr-2.2/pkg/distrEx/chm/distrExOptions.html
branches/distr-2.2/pkg/distrEx/chm/liesInSupport.html
branches/distr-2.2/pkg/distrEx/chm/m1df.html
branches/distr-2.2/pkg/distrEx/chm/m2df.html
branches/distr-2.2/pkg/distrEx/chm/make01.html
branches/distr-2.2/pkg/distrEx/chm/plot-methods.html
branches/distr-2.2/pkg/distrEx/demo/Prognose.R
branches/distr-2.2/pkg/distrEx/man/AbscontCondDistribution-class.Rd
branches/distr-2.2/pkg/distrEx/man/DiscreteCondDistribution-class.Rd
branches/distr-2.2/pkg/distrEx/man/DiscreteMVDistribution-class.Rd
branches/distr-2.2/pkg/distrEx/man/DiscreteMVDistribution.Rd
branches/distr-2.2/pkg/distrEx/man/Gumbel-class.Rd
branches/distr-2.2/pkg/distrEx/man/MultivariateDistribution-class.Rd
branches/distr-2.2/pkg/distrEx/man/Pareto-class.Rd
branches/distr-2.2/pkg/distrEx/man/PrognCondDistribution-class.Rd
branches/distr-2.2/pkg/distrEx/man/UnivariateCondDistribution-class.Rd
branches/distr-2.2/pkg/distrEx/src/distrEx.dll
branches/distr-2.2/pkg/distrMod/NAMESPACE
branches/distr-2.2/pkg/distrMod/R/0distrModOptions.R
branches/distr-2.2/pkg/distrMod/R/AllClass.R
branches/distr-2.2/pkg/distrMod/R/AllGeneric.R
branches/distr-2.2/pkg/distrMod/R/AllShow.R
branches/distr-2.2/pkg/distrMod/R/ProbFamily.R
branches/distr-2.2/pkg/distrMod/R/Symmetry.R
branches/distr-2.2/pkg/distrMod/chm/00Index.html
branches/distr-2.2/pkg/distrMod/chm/0distrMod-package.html
branches/distr-2.2/pkg/distrMod/chm/BetaFamily.html
branches/distr-2.2/pkg/distrMod/chm/BiasType-class.html
branches/distr-2.2/pkg/distrMod/chm/BinomFamily.html
branches/distr-2.2/pkg/distrMod/chm/CauchyLocationScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/Confint-class.html
branches/distr-2.2/pkg/distrMod/chm/Estimate-class.html
branches/distr-2.2/pkg/distrMod/chm/Estimator.html
branches/distr-2.2/pkg/distrMod/chm/EvenSymmetric-class.html
branches/distr-2.2/pkg/distrMod/chm/EvenSymmetric.html
branches/distr-2.2/pkg/distrMod/chm/ExpScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/FunSymmList-class.html
branches/distr-2.2/pkg/distrMod/chm/FunSymmList.html
branches/distr-2.2/pkg/distrMod/chm/FunctionSymmetry-class.html
branches/distr-2.2/pkg/distrMod/chm/GammaFamily.html
branches/distr-2.2/pkg/distrMod/chm/GumbelLocationFamily.html
branches/distr-2.2/pkg/distrMod/chm/InfoNorm.html
branches/distr-2.2/pkg/distrMod/chm/InternalReturnClasses-class.html
branches/distr-2.2/pkg/distrMod/chm/L2GroupFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/L2LocationFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/L2LocationFamily.html
branches/distr-2.2/pkg/distrMod/chm/L2LocationScaleFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/L2LocationScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/L2LocationUnknownScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/L2ParamFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/L2ParamFamily.html
branches/distr-2.2/pkg/distrMod/chm/L2ScaleFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/L2ScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/L2ScaleUnknownLocationFamily.html
branches/distr-2.2/pkg/distrMod/chm/LnormScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/MCEstimate-class.html
branches/distr-2.2/pkg/distrMod/chm/MCEstimator.html
branches/distr-2.2/pkg/distrMod/chm/MDEstimator.html
branches/distr-2.2/pkg/distrMod/chm/MLEstimator.html
branches/distr-2.2/pkg/distrMod/chm/NonSymmetric-class.html
branches/distr-2.2/pkg/distrMod/chm/NonSymmetric.html
branches/distr-2.2/pkg/distrMod/chm/NormLocationFamily.html
branches/distr-2.2/pkg/distrMod/chm/NormLocationScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/NormLocationUnknownScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/NormScaleFamily.html
branches/distr-2.2/pkg/distrMod/chm/NormScaleUnknownLocationFamily.html
branches/distr-2.2/pkg/distrMod/chm/NormType-class.html
branches/distr-2.2/pkg/distrMod/chm/NormType.html
branches/distr-2.2/pkg/distrMod/chm/OddSymmetric-class.html
branches/distr-2.2/pkg/distrMod/chm/OddSymmetric.html
branches/distr-2.2/pkg/distrMod/chm/ParamFamParameter-class.html
branches/distr-2.2/pkg/distrMod/chm/ParamFamParameter.html
branches/distr-2.2/pkg/distrMod/chm/ParamFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/ParamFamily.html
branches/distr-2.2/pkg/distrMod/chm/PoisFamily.html
branches/distr-2.2/pkg/distrMod/chm/ProbFamily-class.html
branches/distr-2.2/pkg/distrMod/chm/QFNorm.html
branches/distr-2.2/pkg/distrMod/chm/QFnorm-class.html
branches/distr-2.2/pkg/distrMod/chm/RiskType-class.html
branches/distr-2.2/pkg/distrMod/chm/SelfNorm.html
branches/distr-2.2/pkg/distrMod/chm/asBias-class.html
branches/distr-2.2/pkg/distrMod/chm/asBias.html
branches/distr-2.2/pkg/distrMod/chm/asCov-class.html
branches/distr-2.2/pkg/distrMod/chm/asCov.html
branches/distr-2.2/pkg/distrMod/chm/asGRisk-class.html
branches/distr-2.2/pkg/distrMod/chm/asHampel-class.html
branches/distr-2.2/pkg/distrMod/chm/asHampel.html
branches/distr-2.2/pkg/distrMod/chm/asMSE-class.html
branches/distr-2.2/pkg/distrMod/chm/asMSE.html
branches/distr-2.2/pkg/distrMod/chm/asRisk-class.html
branches/distr-2.2/pkg/distrMod/chm/asRiskwithBias-class.html
branches/distr-2.2/pkg/distrMod/chm/asSemivar-class.html
branches/distr-2.2/pkg/distrMod/chm/asSemivar.html
branches/distr-2.2/pkg/distrMod/chm/asUnOvShoot-class.html
branches/distr-2.2/pkg/distrMod/chm/asUnOvShoot.html
branches/distr-2.2/pkg/distrMod/chm/asymmetricBias-class.html
branches/distr-2.2/pkg/distrMod/chm/asymmetricBias.html
branches/distr-2.2/pkg/distrMod/chm/checkL2deriv.html
branches/distr-2.2/pkg/distrMod/chm/confint-methods.html
branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
branches/distr-2.2/pkg/distrMod/chm/distrMod.hhp
branches/distr-2.2/pkg/distrMod/chm/distrMod.toc
branches/distr-2.2/pkg/distrMod/chm/distrModMASK.html
branches/distr-2.2/pkg/distrMod/chm/distrModOptions.html
branches/distr-2.2/pkg/distrMod/chm/existsPIC.html
branches/distr-2.2/pkg/distrMod/chm/fiBias-class.html
branches/distr-2.2/pkg/distrMod/chm/fiBias.html
branches/distr-2.2/pkg/distrMod/chm/fiCov-class.html
branches/distr-2.2/pkg/distrMod/chm/fiCov.html
branches/distr-2.2/pkg/distrMod/chm/fiHampel-class.html
branches/distr-2.2/pkg/distrMod/chm/fiHampel.html
branches/distr-2.2/pkg/distrMod/chm/fiMSE-class.html
branches/distr-2.2/pkg/distrMod/chm/fiMSE.html
branches/distr-2.2/pkg/distrMod/chm/fiRisk-class.html
branches/distr-2.2/pkg/distrMod/chm/fiUnOvShoot-class.html
branches/distr-2.2/pkg/distrMod/chm/fiUnOvShoot.html
branches/distr-2.2/pkg/distrMod/chm/internalClassUnions-class.html
branches/distr-2.2/pkg/distrMod/chm/internalmleHelpers.html
branches/distr-2.2/pkg/distrMod/chm/internals.html
branches/distr-2.2/pkg/distrMod/chm/isKerAinKerB.html
branches/distr-2.2/pkg/distrMod/chm/meRes.html
branches/distr-2.2/pkg/distrMod/chm/mleCalc-methods.html
branches/distr-2.2/pkg/distrMod/chm/modifyModel-methods.html
branches/distr-2.2/pkg/distrMod/chm/negativeBias.html
branches/distr-2.2/pkg/distrMod/chm/norms.html
branches/distr-2.2/pkg/distrMod/chm/onesidedBias-class.html
branches/distr-2.2/pkg/distrMod/chm/positiveBias.html
branches/distr-2.2/pkg/distrMod/chm/print-methods.html
branches/distr-2.2/pkg/distrMod/chm/symmetricBias-class.html
branches/distr-2.2/pkg/distrMod/chm/symmetricBias.html
branches/distr-2.2/pkg/distrMod/chm/trAsCov-class.html
branches/distr-2.2/pkg/distrMod/chm/trAsCov.html
branches/distr-2.2/pkg/distrMod/chm/trFiCov-class.html
branches/distr-2.2/pkg/distrMod/chm/trFiCov.html
branches/distr-2.2/pkg/distrMod/chm/trafo-methods.html
branches/distr-2.2/pkg/distrMod/chm/trafoEst.html
branches/distr-2.2/pkg/distrMod/chm/validParameter-methods.html
branches/distr-2.2/pkg/distrMod/inst/MASKING
branches/distr-2.2/pkg/distrMod/man/0distrMod-package.Rd
branches/distr-2.2/pkg/distrMod/man/EvenSymmetric.Rd
branches/distr-2.2/pkg/distrMod/man/FunctionSymmetry-class.Rd
branches/distr-2.2/pkg/distrMod/man/OddSymmetric.Rd
branches/distr-2.2/pkg/distrMod/man/distrModOptions.Rd
branches/distr-2.2/pkg/distrMod/man/internalClassUnions-class.Rd
pkg/distrEx/NAMESPACE
pkg/distrEx/demo/Prognose.R
Log:
in branches/distr-2.2:
+moved Distribution symmetry classes and corresponding methods/functions from distrMod to distr
+introduced new slot "Symmetry" (of Class "DistributionSymmetry") in class Distribution
+adapted all algorithms in distr (arithmetics; generators) to take care about this new slot
+functionals in distrEx now make use of this symmetry slot ...
IDEA: [Yet to be done]
+move functional symmetry classes to Package RandVar
+in distrMod remove slots from class ProbFamily and L2ParamFamily
-distrSymm (information is already in slot distr)
-L2derivSymm (information will be in Random Variable L2deriv)
-L2derivDistrSymm (information will be in DistrList L2derivDistr)
REASON:
+plan to introduce Elliptical Symmetric Distributions (have already code for this
need this for simulating state space models ...)
-> result of Trafo (1 x p)-matrix x p-dim Elliptically Symm. Distribution will be
a symmetric univariate Distribution; (and again an Elliptically Symm. Distribution)
hence to close multiplication the result of above operation will be a univariate Distribution
D with slot symmetry to SphericalSymmetry()... --- and the result of
(p x 1)-matrix x D will be Elliptically Symmetric Distribution...
TO BE DISCUSSED: shall these Elliptically Symmetric Distributions get part of distrEx
or of an own package?
Modified: branches/distr-2.2/pkg/distr/NAMESPACE
===================================================================
--- branches/distr-2.2/pkg/distr/NAMESPACE 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/NAMESPACE 2009-03-25 19:06:52 UTC (rev 443)
@@ -45,6 +45,11 @@
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",
@@ -76,8 +81,13 @@
"p.ac", "d.ac", "q.ac", "r.ac")
exportMethods("decomposePM", "simplifyD", "showobj")
exportMethods("Truncate","Minimum","Maximum","Huberize")
+exportMethods("solve", "sqrt")
+exportMethods("type", "SymmCenter", "Symmetry")
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")
Modified: branches/distr-2.2/pkg/distr/R/0distrOptions.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/0distrOptions.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/0distrOptions.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -13,7 +13,8 @@
DistrCollapse = TRUE,
withSweave = FALSE,
## new Items after mail by Jacob van Etter, 27-02-09
- DistrCollapse.Unique.Warn = FALSE
+ DistrCollapse.Unique.Warn = FALSE,
+ use.generalized.inverse.by.default = TRUE
)
distroptions <- function(...) {
if (nargs() == 0) return(.distroptions)
Modified: branches/distr-2.2/pkg/distr/R/AllClasses.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/AllClasses.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/AllClasses.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -41,6 +41,9 @@
setClassUnion("OptionalMatrix",
c("matrix","NULL")
)
+### from Matthias' thesis / ROptEst
+## optional numeric
+setClassUnion("OptionalNumeric", c("numeric", "NULL"))
################################
##
@@ -304,6 +307,82 @@
################################
##
+## matrix classes
+##
+################################
+## positive definite, symmetric matrices with finite entries
+setClass("PosSemDefSymmMatrix", contains = "matrix",
+ prototype = prototype(matrix(1)),
+ validity = function(object){
+ if(nrow(object) != ncol(object))
+ stop("no square matrix")
+ if(any(!is.finite(object)))
+ stop("inifinite or missing values in matrix")
+ if(!isTRUE(all.equal(object, t(object), .Machine$double.eps^0.5,
+ check.attributes = FALSE)))
+ stop("matrix is not symmetric")
+ if(!all(eigen(object)$values > -100*.Machine$double.eps))
+ stop("matrix is (numerically) not positive semi - definite")
+ return(TRUE)
+ })
+
+## positive definite, symmetric matrices with finite entries
+setClass("PosDefSymmMatrix", contains = "PosSemDefSymmMatrix",
+ validity = function(object){
+ if(!all(eigen(object)$values > 100*.Machine$double.eps))
+ stop("matrix is (numerically) not positive definite")
+ valid <- getValidity(getClass("PosSemDefSymmMatrix"))
+ valid(as(object, "PosSemDefSymmMatrix"))
+ return(TRUE)
+ })
+
+
+################################
+##
+## symmetry classes
+##
+################################
+
+### from Matthias' thesis / ROptEst / moved from distrMod
+
+## class of symmetries
+setClass("Symmetry", representation(type = "character",
+ SymmCenter = "ANY"),
+ contains = "VIRTUAL")
+
+## symmetry of distributions
+setClass("DistributionSymmetry", contains = c("Symmetry", "VIRTUAL"))
+
+## no symmetry
+setClass("NoSymmetry", contains = "DistributionSymmetry",
+ prototype = prototype(type = "non-symmetric distribution",
+ SymmCenter = NULL))
+
+## elliptical symmetry
+setClass("EllipticalSymmetry", contains = "DistributionSymmetry",
+ prototype = prototype(type = "elliptically symmetric distribution",
+ SymmCenter = numeric(0)))
+
+## spherical symmetry
+setClass("SphericalSymmetry", contains = "EllipticalSymmetry",
+ prototype = prototype(type = "spherically symmetric distribution",
+ SymmCenter = numeric(0)))
+
+## list of symmetry types
+setClass(Class = "DistrSymmList",
+ prototype = prototype(list(new("NoSymmetry"))),
+ contains = "list",
+ validity = function(object){
+ nrvalues <- length(object)
+ for(i in 1:nrvalues)
+ if(!is(object[[i]], "DistributionSymmetry"))
+ stop("element ", i, " is no 'DistributionSymmetry'")
+ return(TRUE)
+ })
+
+
+################################
+##
## distribution classes
##
################################
@@ -319,7 +398,8 @@
.withSim = "logical", ## 'internal' slots => no
.withArith = "logical", ## accessor/replacement functions
.logExact = "logical",
- .lowerExact = "logical"
+ .lowerExact = "logical",
+ Symmetry = "DistributionSymmetry"
),
prototype = prototype(
r = function(n){ rnorm(n, mean = 0, sd = 1) },
@@ -336,7 +416,8 @@
.withArith = FALSE,
.withSim = FALSE,
.logExact = FALSE,
- .lowerExact = FALSE
+ .lowerExact = FALSE,
+ Symmetry = new("NoSymmetry")
)
)
@@ -465,7 +546,10 @@
gettext("Parameter of a Laplace/Double Exponential distribution")
),
.logExact = TRUE,
- .lowerExact = TRUE
+ .lowerExact = TRUE,
+ Symmetry = new("SphericalSymmetry",
+ type = "univariate symmetric distribution",
+ SymmCenter = 0)
),
contains = "AbscontDistribution"
)
@@ -487,7 +571,10 @@
},
param = new("CauchyParameter"),
.logExact = TRUE,
- .lowerExact = TRUE
+ .lowerExact = TRUE,
+ Symmetry = new("SphericalSymmetry",
+ type = "univariate symmetric distribution",
+ SymmCenter = 0)
),
contains = "AbscontDistribution"
)
@@ -506,7 +593,10 @@
lower.tail = lower.tail, log.p = log.p) },
param = new("UniNormParameter"),
.logExact = TRUE,
- .lowerExact = TRUE
+ .lowerExact = TRUE,
+ Symmetry = new("SphericalSymmetry",
+ type = "univariate symmetric distribution",
+ SymmCenter = 0)
),
contains = "AbscontDistribution"
)
@@ -547,7 +637,10 @@
lower.tail = lower.tail, log.p = log.p) },
param = new("UnifParameter"),
.logExact = TRUE,
- .lowerExact = TRUE
+ .lowerExact = TRUE,
+ Symmetry = new("SphericalSymmetry",
+ type = "univariate symmetric distribution",
+ SymmCenter = .5)
),
contains = "AbscontDistribution"
)
@@ -588,7 +681,10 @@
lower.tail = lower.tail, log.p = log.p) },
param = new("TParameter"),
.logExact = TRUE,
- .lowerExact = TRUE
+ .lowerExact = TRUE,
+ Symmetry = new("SphericalSymmetry",
+ type = "univariate symmetric distribution",
+ SymmCenter = 0)
),
contains = "AbscontDistribution"
)
@@ -691,7 +787,10 @@
q[.isEqual(p,1)] <- 1
return(q)},
.logExact = TRUE,
- .lowerExact = TRUE
+ .lowerExact = TRUE,
+ Symmetry = new("SphericalSymmetry",
+ type = "univariate symmetric distribution",
+ SymmCenter = 0)
),
contains = "AbscontDistribution"
)
@@ -987,11 +1086,23 @@
representation = representation(mixCoeff = "numeric",
mixDistr = "UnivarDistrList",
gaps = "OptionalMatrix",
- support = "numeric"),
+ support = "numeric",
+ Symmetry = "DistributionSymmetry",
+ .withArith = "logical",
+ .withSim = "logical",
+ .logExact = "logical",
+ .lowerExact = "logical"
+ ),
prototype = prototype(mixCoeff = 1,
mixDistr = new("UnivarDistrList"),
gaps = NULL,
- support = numeric(0)),
+ support = numeric(0),
+ Symmetry = new("NoSymmetry"),
+ .withArith = FALSE,
+ .withSim = FALSE,
+ .logExact = TRUE,
+ .lowerExact = TRUE
+ ),
contains = "UnivariateDistribution",
validity = function(object){
if(any(object at mixCoeff< -.Machine$double.eps) ||
Modified: branches/distr-2.2/pkg/distr/R/AllGenerics.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/AllGenerics.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/AllGenerics.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -417,3 +417,13 @@
if(!isGeneric(".logExact"))
setGeneric(".logExact", function(object)
standardGeneric(".logExact"))
+
+if(!isGeneric("type")){
+ setGeneric("type", function(object) standardGeneric("type"))
+}
+if(!isGeneric("SymmCenter")){
+ setGeneric("SymmCenter", function(object) standardGeneric("SymmCenter"))
+}
+if(!isGeneric("Symmetry")){
+ setGeneric("Symmetry", function(object) standardGeneric("Symmetry"))
+}
\ No newline at end of file
Modified: branches/distr-2.2/pkg/distr/R/AllInitialize.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/AllInitialize.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/AllInitialize.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -67,7 +67,8 @@
gaps = NULL, param = NULL, img = new("Reals"),
.withSim = FALSE, .withArith = FALSE,
.lowerExact = FALSE, .logExact = FALSE,
- low1 = NULL, up1 = NULL, low = -Inf, up =Inf
+ low1 = NULL, up1 = NULL, low = -Inf, up =Inf,
+ Symmetry = NoSymmetry()
) {
## don't use this if the call is new("AbscontDistribution")
LL <- length(sys.calls())
@@ -125,6 +126,7 @@
.Object at .withArith <- .withArith
.Object at .logExact <- .logExact
.Object at .lowerExact <- .lowerExact
+ .Object at Symmetry <- Symmetry
.Object })
## class AffLinAbscontDistribution
@@ -132,7 +134,8 @@
function(.Object, r = NULL, d = NULL, p = NULL, q = NULL, gaps = NULL,
a = 1, b = 0, X0 = Norm(), param = NULL, img = new("Reals"),
.withSim = FALSE, .withArith = FALSE,
- .lowerExact = FALSE, .logExact = FALSE) {
+ .lowerExact = FALSE, .logExact = FALSE,
+ Symmetry = NoSymmetry()) {
X <- new("AbscontDistribution", r = r, d = d, p = p, q = q, gaps = gaps,
param = param, img = img, .withSim = .withSim,
.withArith = .withArith)
@@ -148,6 +151,7 @@
.Object at r <- X at r
.Object at .withSim <- .withSim
.Object at .withArith <- .withArith
+ .Object at Symmetry <- Symmetry
.Object
})
@@ -156,7 +160,8 @@
function(.Object, r = NULL, d = NULL, p = NULL, q = NULL,
support = NULL, param = NULL, img = new("Reals"),
.withSim = FALSE, .withArith = FALSE,
- .lowerExact = FALSE, .logExact = FALSE) {
+ .lowerExact = FALSE, .logExact = FALSE,
+ Symmetry = NoSymmetry()) {
## don't use this if the call is new("DiscreteDistribution")
LL <- length(sys.calls())
@@ -214,6 +219,7 @@
.Object at .withArith <- .withArith
.Object at .lowerExact <- .lowerExact
.Object at .logExact <- .logExact
+ .Object at Symmetry <- Symmetry
.Object
})
@@ -222,7 +228,8 @@
function(.Object, r = NULL, d = NULL, p = NULL, q = NULL,
support = NULL, a = 1, b = 0, X0 = Binom(), param = NULL,
img = new("Reals"), .withSim = FALSE, .withArith = FALSE,
- .lowerExact = FALSE, .logExact = FALSE) {
+ .lowerExact = FALSE, .logExact = FALSE,
+ Symmetry = NoSymmetry()) {
## don't use this if the call is new("DiscreteDistribution")
LL <- length(sys.calls())
if(sys.calls()[[LL-3]] == "new(\"AffLinDiscreteDistribution\")")
@@ -244,6 +251,7 @@
.Object at .withArith <- .withArith
.Object at .lowerExact <- .lowerExact
.Object at .logExact <- .logExact
+ .Object at Symmetry <- Symmetry
.Object
})
@@ -252,7 +260,8 @@
function(.Object, r = NULL, d = NULL, p = NULL, q = NULL,
support = NULL, lattice = NULL, param = NULL,
img = new("Reals"), .withSim = FALSE, .withArith = FALSE,
- .lowerExact = FALSE, .logExact = FALSE) {
+ .lowerExact = FALSE, .logExact = FALSE,
+ Symmetry = NoSymmetry()) {
LL <- length(sys.calls())
@@ -286,6 +295,7 @@
.Object at .withArith <- .withArith
.Object at .lowerExact <- .lowerExact
.Object at .logExact <- .logExact
+ .Object at Symmetry <- Symmetry
.Object
})
@@ -294,7 +304,8 @@
function(.Object, r = NULL, d = NULL, p = NULL, q = NULL,
support = NULL, lattice = NULL, a = 1, b = 0, X0 = Binom(),
param = NULL, img = new("Reals"), .withSim = FALSE,
- .withArith = FALSE, .lowerExact = FALSE, .logExact = FALSE) {
+ .withArith = FALSE, .lowerExact = FALSE, .logExact = FALSE,
+ Symmetry = NoSymmetry()) {
LL <- length(sys.calls())
if(sys.calls()[[LL-3]] == "new(\"AffLinLatticeDistribution\")")
@@ -319,6 +330,7 @@
.Object at .withArith <- .withArith
.Object at .lowerExact <- .lowerExact
.Object at .logExact <- .logExact
+ .Object at Symmetry <- Symmetry
.Object
})
@@ -582,6 +594,7 @@
list(MinSub = Min, MaxSub = Max)
)
.Object at .withArith <- .withArith
+ .Object at Symmetry <- SphericalSymmetry(Min+Max/2)
.Object
})
@@ -614,6 +627,7 @@
list(meanSub = mean, sdSub = sd)
)
.Object at .withArith <- .withArith
+ .Object at Symmetry <- SphericalSymmetry(mean)
.Object
})
@@ -686,6 +700,7 @@
)
.Object at .withSim <- FALSE
.Object at .withArith <- FALSE
+ .Object at Symmetry <- SphericalSymmetry(location)
.Object
})
@@ -774,6 +789,7 @@
list(dfSub = df, ncpSub = ncp)
)
.Object at .withArith <- FALSE
+ .Object at Symmetry <- SphericalSymmetry(0)
.Object
})
@@ -890,6 +906,7 @@
)
.Object at .withSim <- FALSE
.Object at .withArith <- .withArith
+ .Object at Symmetry <- SphericalSymmetry(0)
.Object
})
@@ -1066,5 +1083,6 @@
return(q)}
.Object at .withSim <- FALSE
.Object at .withArith <- .withArith
+ .Object at Symmetry <- SphericalSymmetry(0)
.Object
})
Modified: branches/distr-2.2/pkg/distr/R/CompoundDistribution.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/CompoundDistribution.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/CompoundDistribution.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -6,6 +6,9 @@
CompoundDistribution<- function( NumbOfSummandsDistr, SummandsDistr, .withSim = FALSE,
withSimplify = FALSE){
+
+ Symmetry <- NoSymmetry()
+
if(!is(NumbOfSummandsDistr,"DiscreteDistribution"))
stop("Argument 'NumbOfSummandsDistr' must be of class 'DiscreteDistribution'")
supp <- support(NumbOfSummandsDistr)
@@ -28,6 +31,7 @@
x0 <- convpow(SummandsDistr,dsuppNot0[i])
S <- S + x0
lI[[i+is0]] <- S
+ Symmetry <- Symmetry(SummandsDistr)
}
}else{
supp <- min(supp):max(supp)
@@ -37,10 +41,20 @@
if(is0 && length(supp)==length(SummandsDistr))
SummandsDistr <- SummandsDistr[2:length(SummandsDistr)]
S <- 0
+ Symm1 <- Symmetry(SummandsDistr[[1]])
+ SymmL <- is(Symm1, "SphericalSymmetry")
+ SymmC <- if(SymmL) SymmCenter(Symm1) else NULL
for(i in 1:(length(supp)-is0)){
+ if(SymmL && i>1){
+ SymmI <- Symmetry(SummandsDistr[[i]])
+ SymmL <- is(SymmI, "SphericalSymmetry")
+ if(SymmL)
+ SymmL <- .isEqual(SymmCenter(SymmI),SymmC)
+ }
S <- S + SummandsDistr[[i]]
lI[[i+is0]] <- S
}
+ if(SymmL) Symmetry <- SphericalSymmetry(SymmC)
}
UV <- do.call("UnivarMixingDistribution",
args = c(list(mixCoeff = d(NumbOfSummandsDistr)(supp),
@@ -52,7 +66,8 @@
SummandsDistr = SummandsDistr,
p = UV at p, r = UV at r, d = UV at d, q = UV at q,
mixCoeff = UV at mixCoeff, mixDistr = UV at mixDistr,
- .withSim = .withSim, .withArith = TRUE)
+ .withSim = .withSim, .withArith = TRUE,
+ Symmetry = Symmetry)
if(withSimplify) return(simplifyD(obj))
else return(obj)
Modified: branches/distr-2.2/pkg/distr/R/ContDistribution.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/ContDistribution.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/ContDistribution.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -13,7 +13,8 @@
withStand = FALSE,
ngrid = getdistrOption("DefaultNrGridPoints"),
ep = getdistrOption("TruncQuantile"),
- e = getdistrOption("RtoDPQ.e")
+ e = getdistrOption("RtoDPQ.e"),
+ Symmetry = NoSymmetry()
)
{ if(missing(r) && missing(d) && missing(p) && missing(q))
stop("At least one of arg's r,d,p,q must be given")
@@ -215,7 +216,8 @@
}
obj <- new("AbscontDistribution", r = r, d = d1, p = p, q = q,
gaps = gaps, param = param, img = img, .withSim = wS,
- .withArith = wA, .lowerExact = .lowerExact, .logExact = .logExact)
+ .withArith = wA, .lowerExact = .lowerExact, .logExact = .logExact,
+ Symmetry = Symmetry)
if(is.null(gaps) && withgaps) setgaps(obj)
if(!is.null(obj at gaps))
@@ -339,6 +341,10 @@
rm(d2, dpe1,dpe2, ftpe1,ftpe2)
rm(h, px.l, px.u, rfun, dfun, qfun, pfun, upper, lower)
+ if(is(e1 at Symmetry,"SphericalSymmetry")&&
+ is(e2 at Symmetry,"SphericalSymmetry"))
+ object at Symmetry <- SphericalSymmetry(SymmCenter(e1 at Symmetry)+
+ SymmCenter(e2 at Symmetry))
object
})
@@ -383,16 +389,31 @@
function(e1, e2) {Distr <- .multm(e1,e2, "AbscontDistribution")
if(is(Distr, "AffLinDistribution"))
Distr at X0 <- e1
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)*e2)
+
Distr})
setMethod("+", c("AbscontDistribution","numeric"),
function(e1, e2) {Distr <- .plusm(e1,e2, "AbscontDistribution")
if(is(Distr, "AffLinDistribution"))
Distr at X0 <- e1
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)+e2)
Distr})
setMethod("*", c("AffLinAbscontDistribution","numeric"),
- function(e1, e2) .multm(e1,e2, "AffLinAbscontDistribution"))
+ function(e1, e2){Distr <- .multm(e1,e2, "AffLinAbscontDistribution")
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)*e2)
+ Distr })
setMethod("+", c("AffLinAbscontDistribution","numeric"),
- function(e1, e2) .plusm(e1,e2, "AffLinAbscontDistribution"))
+ function(e1, e2){Distr <- .plusm(e1,e2, "AffLinAbscontDistribution")
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)+e2)
+ Distr })
## Group Math for absolutly continuous distributions
setMethod("Math", "AbscontDistribution",
Modified: branches/distr-2.2/pkg/distr/R/Convpow.r
===================================================================
--- branches/distr-2.2/pkg/distr/R/Convpow.r 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/Convpow.r 2009-03-25 19:06:52 UTC (rev 443)
@@ -70,6 +70,10 @@
object <- new("AbscontDistribution", r = rfun, d = dfun, p = pfun,
q = qfun, .withArith = TRUE, .withSim = FALSE)
+
+ if(is(D1 at Symmetry,"SphericalSymmetry"))
+ object at Symmetry <- SphericalSymmetry(N*SymmCenter(D1 at Symmetry))
+
rm(m, dpn, dp1, dpn0, fftdpn)
rm(h, px.u, px.l, rfun, dfun, qfun, pfun, upper, lower)
return(object)
@@ -111,13 +115,17 @@
supp2 <- supp1[newd>ep]
newd2 <- newd[newd>ep]
newd2 <- newd2/sum(newd2)
+
+ Symmetry <- NoSymmetry()
+ if(is(D1 at Symmetry,"SphericalSymmetry"))
+ Symmetry <- SphericalSymmetry(N*SymmCenter(D1 at Symmetry))
if( length(supp1) >= 2 * length(supp2))
return(DiscreteDistribution(supp = supp2, prob = newd2,
- .withArith = TRUE))
+ .withArith = TRUE, Symmetry = Symmetry))
else
return(LatticeDistribution(supp = supp1, prob = newd,
- .withArith = TRUE))
+ .withArith = TRUE, Symmetry = Symmetry))
})
###############################################################################
@@ -183,6 +191,9 @@
if(Mm>1) erg <- convpow(erg,Mm,ep=ep)
if(Rm>0) erg <- sumM(Rm)+ as(erg,"UnivarLebDecDistribution")
if(is(erg,"UnivarLebDecDistribution")) erg <- simplifyD(erg)
+
+ if(is(D1 at Symmetry,"SphericalSymmetry"))
+ erg at Symmetry <- SphericalSymmetry(N*SymmCenter(D1 at Symmetry))
return(erg)
})
#
Modified: branches/distr-2.2/pkg/distr/R/DiscreteDistribution.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/DiscreteDistribution.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/DiscreteDistribution.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -10,7 +10,8 @@
getdistrOption("DistrCollapse"),
.DistrCollapse.Unique.Warn =
getdistrOption("DistrCollapse.Unique.Warn"),
- .DistrResolution = getdistrOption("DistrResolution")){
+ .DistrResolution = getdistrOption("DistrResolution"),
+ Symmetry = NoSymmetry()){
if(!is.numeric(supp))
stop("'supp' is no numeric vector")
if(any(!is.finite(supp))) # admit +/- Inf?
@@ -71,7 +72,7 @@
object <- new("DiscreteDistribution", r = rfun, d = dfun, q = qfun, p=pfun,
support = supp, .withArith = .withArith, .withSim = .withSim,
- .lowerExact = .lowerExact, .logExact = .logExact)
+ .lowerExact = .lowerExact, .logExact = .logExact, Symmetry = Symmetry)
}
@@ -288,8 +289,13 @@
q = qfun, support = supp,
.withSim = .withSim, .withArith = TRUE)
rm(rfun, dfun, qfun, pfun)
+
+ if(is(e1 at Symmetry,"SphericalSymmetry")&&
+ is(e2 at Symmetry,"SphericalSymmetry"))
+ object at Symmetry <- SphericalSymmetry(SymmCenter(e1 at Symmetry)+
+ SymmCenter(e2 at Symmetry))
+
object
-
})
setMethod("+", c("Dirac","DiscreteDistribution"),
@@ -302,19 +308,41 @@
function(e1, e2) { Distr <- .multm(e1,e2, "DiscreteDistribution")
if(is(Distr, "AffLinDistribution"))
Distr at X0 <- e1
+
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)*e2)
+
Distr
})
setMethod("+", c("DiscreteDistribution","numeric"),
function(e1, e2) { Distr <- .plusm(e1,e2, "DiscreteDistribution")
if(is(Distr, "AffLinDistribution"))
Distr at X0 <- e1
+
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)+e2)
+
Distr
})
setMethod("*", c("AffLinDiscreteDistribution","numeric"),
- function(e1, e2) .multm(e1,e2, "AffLinDiscreteDistribution"))
+ function(e1, e2) {
+ Distr <- .multm(e1,e2, "AffLinDiscreteDistribution")
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)*e2)
+ Distr
+ })
setMethod("+", c("AffLinDiscreteDistribution","numeric"),
- function(e1, e2) .plusm(e1,e2, "AffLinDiscreteDistribution"))
+ function(e1, e2) {
+ Distr <- .plusm(e1,e2, "AffLinDiscreteDistribution")
+ if(is(e1 at Symmetry,"SphericalSymmetry"))
+ Distr at Symmetry <-
+ SphericalSymmetry(SymmCenter(e1 at Symmetry)*e2)
+ Distr
+ })
## Group Math for discrete distributions
setMethod("Math", "DiscreteDistribution",
Modified: branches/distr-2.2/pkg/distr/R/DistrList.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/DistrList.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/DistrList.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -16,3 +16,4 @@
# coerce to "UnivarDistrList"
setAs(from = "UnivariateDistribution", to = "UnivarDistrList",
def = function(from){ new("UnivarDistrList", list(from)) })
+
Modified: branches/distr-2.2/pkg/distr/R/Distribution.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/Distribution.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/Distribution.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -17,12 +17,22 @@
setMethod("p", "Distribution", function(object) object at p)
setMethod(".lowerExact", "Distribution", function(object){
er <- is(try(slot(object, ".lowerExact"), silent = TRUE), "try-error")
- if(er) object <- conv2NewVersion(object)
+ if(er){ object0 <- conv2NewVersion(object)
+ eval.parent(substitute(object<-object0))
+ return(invisible(NULL))}
object at .lowerExact})
setMethod(".logExact", "Distribution", function(object){
er <- is(try(slot(object, ".logExact"), silent = TRUE), "try-error")
- if(er) object <- conv2NewVersion(object)
+ if(er){ object0 <- conv2NewVersion(object)
+ eval.parent(substitute(object<-object0))
+ return(invisible(NULL))}
object at .logExact})
+setMethod("Symmetry", "Distribution", function(object){
+ er <- is(try(slot(object, "Symmetry"), silent = TRUE), "try-error")
+ if(er){ object0 <- conv2NewVersion(object)
+ eval.parent(substitute(object<-object0))
+ return(invisible(NULL))}
+ object at Symmetry})
################################
Modified: branches/distr-2.2/pkg/distr/R/ExtraConvolutionMethods.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/ExtraConvolutionMethods.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/ExtraConvolutionMethods.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -134,6 +134,11 @@
object <- AbscontDistribution( r = rfun, d = dfun, p = pfun,
q = qfun, .withSim = FALSE, .withArith = TRUE)
+
+ if(is(e1 at Symmetry,"SphericalSymmetry")&&
+ is(e2 at Symmetry,"SphericalSymmetry"))
+ object at Symmetry <- SphericalSymmetry(SymmCenter(e1 at Symmetry)+
+ SymmCenter(e2 at Symmetry))
object
})
Modified: branches/distr-2.2/pkg/distr/R/Huberize.R
===================================================================
--- branches/distr-2.2/pkg/distr/R/Huberize.R 2009-03-25 13:25:40 UTC (rev 442)
+++ branches/distr-2.2/pkg/distr/R/Huberize.R 2009-03-25 19:06:52 UTC (rev 443)
@@ -3,5 +3,9 @@
function(object, lower, upper, withSimplify = getdistrOption("simplifyD"))
{Mi <- Minimum( object, Dirac(upper),
withSimplify = withSimplify)
- Maximum(Dirac(lower),Mi,
- withSimplify = withSimplify)})
+ M0 <- Maximum(Dirac(lower),Mi,
+ withSimplify = withSimplify)
+ if(is(object at Symmetry,"SphericalSymmetry"))
+ if(.isEqual(lower+upper,2*SymmCenter(object at Symmetry)))
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/distr -r 443
More information about the Distr-commits
mailing list