[Distr-commits] r561 - in branches/distr-2.2/pkg/distrMod: R chm

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

Author: ruckdeschel
Date: 2009-09-02 01:44:19 +0200 (Wed, 02 Sep 2009)
New Revision: 561

Modified:
   branches/distr-2.2/pkg/distrMod/R/SimpleL2ParamFamilies.R
   branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
Log:
removed unnecessary "fixed" component of parameter in ExpScaleFamily

Modified: branches/distr-2.2/pkg/distrMod/R/SimpleL2ParamFamilies.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/SimpleL2ParamFamilies.R	2009-09-01 04:28:17 UTC (rev 560)
+++ branches/distr-2.2/pkg/distrMod/R/SimpleL2ParamFamilies.R	2009-09-01 23:44:19 UTC (rev 561)
@@ -379,6 +379,10 @@
       f.call <- substitute(ExpScaleFamily(scale = s, trafo = Tr),
                          list(s = scale, Tr = trafo))
 
+    par0 <- res at param
+    par0 at fixed <- NULL
+    res at param <- par0
+    
     res at fam.call <- f.call
     return(res)
 }

Modified: branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
===================================================================
(Binary files differ)