[Distr-commits] r220 - branches/distr-2.0/pkg/distrMod/R

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

Author: stamats
Date: 2008-07-31 20:30:38 +0200 (Thu, 31 Jul 2008)
New Revision: 220

Modified:
   branches/distr-2.0/pkg/distrMod/R/L2ParamFamily.R
Log:
small change to modifyModel

Modified: branches/distr-2.0/pkg/distrMod/R/L2ParamFamily.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/L2ParamFamily.R	2008-07-31 14:58:02 UTC (rev 219)
+++ branches/distr-2.0/pkg/distrMod/R/L2ParamFamily.R	2008-07-31 18:30:38 UTC (rev 220)
@@ -129,16 +129,13 @@
 setMethod("modifyModel", signature(model = "L2ParamFamily", param = "ParamFamParameter"), 
           function(model, param, ...){
           existsPIC(M <- L2ParamFamily(name = model at name, 
-                        distribution = model at modifyParam(main(param)), 
-                        distrSymm = model at distrSymm, 
+                        distribution = model at modifyParam(main(param)),
                         param = param, 
                         props = model at props,
                         modifyParam = model at modifyParam,
                         L2deriv.fct = model at L2deriv.fct,
-                        L2derivSymm = model at L2derivSymm, 
-                        L2derivDistr = model at L2derivDistr, 
-                        L2derivDistrSymm = model at L2derivDistrSymm, 
-                        FisherInfo.fct = model at FisherInfo.fct))
+                        FisherInfo.fct = model at FisherInfo.fct,
+                        FisherInfo = model at FisherInfo.fct(param)))
           return(M)
           })