[Distr-commits] r87 - pkg/distrMod/R

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

Author: ruckdeschel
Date: 2008-02-26 06:51:46 +0100 (Tue, 26 Feb 2008)
New Revision: 87

Modified:
   pkg/distrMod/R/L2ParamFamily.R
   pkg/distrMod/R/existsPIC.R
Log:
fixed minor errors/bugs from version 86

Modified: pkg/distrMod/R/L2ParamFamily.R
===================================================================
--- pkg/distrMod/R/L2ParamFamily.R	2008-02-26 05:40:06 UTC (rev 86)
+++ pkg/distrMod/R/L2ParamFamily.R	2008-02-26 05:51:46 UTC (rev 87)
@@ -120,17 +120,17 @@
 ### move model from one parameter to the next...
 setMethod("modifyModel", signature(model = "L2ParamFamily", param = "ParamFamParameter"), 
           function(model, param, ...){
-          existsPIC(M <- L2ParamFamily(name = object at name, 
-                        distribution = object at distribution, 
-                        distrSymm = object at distrSymm, 
+          existsPIC(M <- L2ParamFamily(name = model at name, 
+                        distribution = model at modifyParam(main(param)), 
+                        distrSymm = model at distrSymm, 
                         param = param, 
-                        props = object at props,
-                        modifyParam = object at modifyparam,
-                        L2deriv.fct = object at L2deriv.fct,
-                        L2derivSymm = object at L2derivSymm, 
-                        L2derivDistr = object at L2derivDistr, 
-                        L2derivDistrSymm = object at L2derivDistrSymm, 
-                        FisherInfo.fct = object at FisherInfo.fct))
+                        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))
           return(M)
           })
 

Modified: pkg/distrMod/R/existsPIC.R
===================================================================
--- pkg/distrMod/R/existsPIC.R	2008-02-26 05:40:06 UTC (rev 86)
+++ pkg/distrMod/R/existsPIC.R	2008-02-26 05:51:46 UTC (rev 87)
@@ -18,7 +18,7 @@
 }
 
 setMethod("existsPIC", "L2ParamFamily", function(object, warning = TRUE, tol = .Machine$double.eps){
-if(!isKerAinKerB(object at FisherInfo, object at param@trafo, tol = tol))
+if(!isKerAinKerB(object at FisherInfo, trafo(object), tol = tol))
   {if(warning)
       warning("trafo of parameter is not (locally) identifyable for parameter theta.")
       return(FALSE)}