[Robast-commits] r71 - in pkg/RobAStBase: . R

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

Author: stamats
Date: 2008-02-26 10:08:18 +0100 (Tue, 26 Feb 2008)
New Revision: 71

Modified:
   pkg/RobAStBase/DESCRIPTION
   pkg/RobAStBase/R/ContIC.R
   pkg/RobAStBase/R/TotalVarIC.R
   pkg/RobAStBase/R/optIC.R
Log:
updated due to modified class L2ParamFamily - but still gives errors

Modified: pkg/RobAStBase/DESCRIPTION
===================================================================
--- pkg/RobAStBase/DESCRIPTION	2008-02-22 12:53:20 UTC (rev 70)
+++ pkg/RobAStBase/DESCRIPTION	2008-02-26 09:08:18 UTC (rev 71)
@@ -1,6 +1,6 @@
 Package: RobAStBase
 Version: 0.1.0
-Date: 2008-02-18
+Date: 2008-02-26
 Title: Robust Asymptotic Statistics
 Description: Base S4-classes and functions for robust asymptotic statistics.
 Depends: R(>= 2.6.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.2)

Modified: pkg/RobAStBase/R/ContIC.R
===================================================================
--- pkg/RobAStBase/R/ContIC.R	2008-02-22 12:53:20 UTC (rev 70)
+++ pkg/RobAStBase/R/ContIC.R	2008-02-26 09:08:18 UTC (rev 71)
@@ -94,11 +94,13 @@
                                 param = L2Fam at param,
                                 modifyParam = L2Fam at modifyParam,
                                 props = L2Fam at props,
-                                L2deriv = L2Fam at L2deriv,
+#                                L2deriv = L2Fam at L2deriv,
+                                L2deriv.fct = L2Fam at L2deriv.fct,
                                 L2derivSymm = L2Fam at L2derivSymm,
                                 L2derivDistr = L2Fam at L2derivDistr,
                                 L2derivDistrSymm = L2Fam at L2derivDistrSymm,
-                                FisherInfo = L2Fam at FisherInfo),
+                                FisherInfo = L2Fam at FisherInfo,
+                                FisherInfo.fct = L2Fam at FisherInfo.fct),
                 Curve = EuclRandVarList(EuclRandVariable(Map = ICfct, Domain = Y at Domain, 
                                          Range = Y at Range)),
                 clip = b,

Modified: pkg/RobAStBase/R/TotalVarIC.R
===================================================================
--- pkg/RobAStBase/R/TotalVarIC.R	2008-02-22 12:53:20 UTC (rev 70)
+++ pkg/RobAStBase/R/TotalVarIC.R	2008-02-26 09:08:18 UTC (rev 71)
@@ -74,11 +74,13 @@
                                 param = L2Fam at param,
                                 modifyParam = L2Fam at modifyParam,
                                 props = L2Fam at props,
-                                L2deriv = L2Fam at L2deriv,
+#                                L2deriv = L2Fam at L2deriv,
+                                L2deriv.fct = L2Fam at L2deriv.fct,
                                 L2derivSymm = L2Fam at L2derivSymm,
                                 L2derivDistr = L2Fam at L2derivDistr,
                                 L2derivDistrSymm = L2Fam at L2derivDistrSymm,
-                                FisherInfo = L2Fam at FisherInfo),
+                                FisherInfo = L2Fam at FisherInfo,
+                                FisherInfo.fct = L2Fam at FisherInfo.fct),
                 Curve = EuclRandVarList(EuclRandVariable(Map = ICfct, Domain = Y at Domain, 
                             Range = Y at Range)),
                 clipUp = clipUp,

Modified: pkg/RobAStBase/R/optIC.R
===================================================================
--- pkg/RobAStBase/R/optIC.R	2008-02-22 12:53:20 UTC (rev 70)
+++ pkg/RobAStBase/R/optIC.R	2008-02-26 09:08:18 UTC (rev 71)
@@ -15,11 +15,13 @@
                             param = model at param, 
                             modifyParam = model at modifyParam,
                             props = model at props, 
-                            L2deriv = model at L2deriv, 
+#                            L2deriv = model at L2deriv, 
+                            L2deriv.fct = model at L2deriv.fct,
                             L2derivSymm = model at L2derivSymm,
                             L2derivDistr = model at L2derivDistr,
                             L2derivDistrSymm = model at L2derivDistrSymm,
-                            FisherInfo = model at FisherInfo),
+                            FisherInfo = model at FisherInfo,
+                            FisherInfo.fct = model at FisherInfo.fct),
             Curve = EuclRandVarList(Curve), 
             Risks = list(asCov = asCov, trAsCov = sum(diag(asCov))),
             Infos = matrix(c("optIC", "optimal IC in sense of Cramer-Rao bound"),