[Distr-commits] r98 - in pkg: distr/chm distrMod/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2008-02-27 01:12:41 +0100 (Wed, 27 Feb 2008)
New Revision: 98

Modified:
   pkg/distr/chm/Distr.hhp
   pkg/distrMod/R/L2GroupFamilies.R
   pkg/distrMod/R/SimpleL2ParamFamilies.R
Log:
small changes (-> package distrMod now passes check)

Modified: pkg/distr/chm/Distr.hhp
===================================================================
--- pkg/distr/chm/Distr.hhp	2008-02-26 23:56:15 UTC (rev 97)
+++ pkg/distr/chm/Distr.hhp	2008-02-27 00:12:41 UTC (rev 98)
@@ -0,0 +1,126 @@
+[OPTIONS]
+Auto Index=Yes
+Contents file=distr.toc
+Compatibility=1.1 or later
+Compiled file=distr.chm
+Default topic=00Index.html
+Display compile progress=No
+Full-text search=Yes
+Full text search stop list file=..\..\..\gnuwin32\help\R.stp
+Title=R Help for package distr
+
+
+[FILES]
+00Index.html
+0distr-package.html
+AbscontDistribution-class.html
+Beta-class.html
+BetaParameter-class.html
+Binom-class.html
+BinomParameter-class.html
+Cauchy-class.html
+CauchyParameter-class.html
+Chisq-class.html
+ChisqParameter-class.html
+ConvPow.html
+DExp-class.html
+Dirac-class.html
+DiracParameter-class.html
+DiscreteDistribution-class.html
+DistrList-class.html
+DistrList.html
+Distribution-class.html
+EuclideanSpace-class.html
+Exp-class.html
+ExpOrGammaOrChisq-class.html
+ExpParameter-class.html
+FParameter-class.html
+Fd-class.html
+GammaParameter-class.html
+Gammad-class.html
+Geom-class.html
+GeomParameter-class.html
+Hyper-class.html
+HyperParameter-class.html
+Lattice-class.html
+LatticeDistribution-class.html
+Length-methods.html
+Lnorm-class.html
+LnormParameter-class.html
+Logis-class.html
+LogisParameter-class.html
+Math-methods.html
+Max-methods.html
+Min-methods.html
+Naturals-class.html
+Nbinom-class.html
+NbinomParameter-class.html
+Norm-class.html
+NormParameter-class.html
+OptionalParameter-class.html
+Parameter-class.html
+Pois-class.html
+PoisParameter-class.html
+Reals-class.html
+RtoDPQ.html
+RtoDPQ.d.html
+TParameter-class.html
+Td-class.html
+UniNormParameter-class.html
+Unif-class.html
+UnifParameter-class.html
+UnivarDistrList-class.html
+UnivarDistrList.html
+UnivariateDistribution-class.html
+Weibull-class.html
+WeibullParameter-class.html
+d-methods.html
+df-methods.html
+df1-methods.html
+df2-methods.html
+dim-methods.html
+dimension-methods.html
+distrARITH.html
+distrMASK.html
+distroptions.html
+gap-methods.html
+getLabel.html
+getLow.html
+img-methods.html
+internals.html
+k-methods.html
+lambda-methods.html
+liesIn-methods.html
+liesInSupport.html
+location-methods.html
+m-methods.html
+mean-methods.html
+meanlog-methods.html
+n-methods.html
+name-methods.html
+ncp-methods.html
+operators-methods.html
+p-methods.html
+p.l-methods.html
+param-methods.html
+pivot-methods.html
+plot-methods.html
+print-methods.html
+prob-methods.html
+q-methods.html
+q.r-methods.html
+r-methods.html
+rSpace-class.html
+rate-methods.html
+scale-methods.html
+sd-methods.html
+sdlog-methods.html
+shape-methods.html
+shape1-methods.html
+shape2-methods.html
+simplifyr-methods.html
+size-methods.html
+standardMethods.html
+support-methods.html
+versionmanagement.html
+width-methods.html

Modified: pkg/distrMod/R/L2GroupFamilies.R
===================================================================
--- pkg/distrMod/R/L2GroupFamilies.R	2008-02-26 23:56:15 UTC (rev 97)
+++ pkg/distrMod/R/L2GroupFamilies.R	2008-02-27 00:12:41 UTC (rev 98)
@@ -26,7 +26,7 @@
     modifyParam <- function(theta){}
     body(modifyParam) <- substitute({ scale*centraldistribution+theta },
                                       list(scale = scale))
-    props <- c("The", name, "is invariant under",
+    props <- c(paste("The", name, "is invariant under"),
                "the group of transformations 'g(x) = x + loc'",
                "with location parameter 'loc'")
     L2deriv.fct <- function(param){
@@ -108,7 +108,7 @@
     modifyParam <- function(theta){}
     body(modifyParam) <- substitute({ theta*centraldistribution+loc },
                                       list(loc = loc))
-    props <- c("The", name, "is invariant under",
+    props <- c(paste("The", name, "is invariant under"),
                "the group of transformations 'g(y) = scale*y'",
                "with scale parameter 'scale'")
     L2deriv.fct <- function(param){
@@ -191,7 +191,7 @@
     param <- ParamFamParameter(name = "location and scale", main = c(loc, scale),
                                trafo = trafo)
     modifyParam <- function(theta){theta[2]*centraldistribution+theta[1] }
-    props <- c("The", name, "is invariant under",
+    props <- c(paste("The", name, "is invariant under"),
                "the group of transformations 'g(x) = scale*x + loc'",
                "with location parameter 'loc' and scale parameter 'scale'")
 

Modified: pkg/distrMod/R/SimpleL2ParamFamilies.R
===================================================================
--- pkg/distrMod/R/SimpleL2ParamFamilies.R	2008-02-26 23:56:15 UTC (rev 97)
+++ pkg/distrMod/R/SimpleL2ParamFamilies.R	2008-02-27 00:12:41 UTC (rev 98)
@@ -376,7 +376,7 @@
                   FisherInfo.0 = 1/sdlog^2, 
                   distrSymm = NoSymmetry(), 
                   L2derivSymm = FunSymmList(NonSymmetric()), 
-                  L2derivDistrSymm = SphericalSymmetry(SymmCenter = 0),
+                  L2derivDistrSymm <- DistrSymmList(SphericalSymmetry(SymmCenter = 0)),
                   trafo = trafo)
 }