[Robast-commits] r86 - pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2008-03-31 00:31:21 +0200 (Mon, 31 Mar 2008)
New Revision: 86

Modified:
   pkg/ROptEst/R/leastFavorableRadius.R
   pkg/ROptEst/R/radiusMinimaxIC.R
Log:
another buglet...

Modified: pkg/ROptEst/R/leastFavorableRadius.R
===================================================================
--- pkg/ROptEst/R/leastFavorableRadius.R	2008-03-30 21:40:32 UTC (rev 85)
+++ pkg/ROptEst/R/leastFavorableRadius.R	2008-03-30 22:31:21 UTC (rev 86)
@@ -52,7 +52,7 @@
                                 L2deriv = L2Fam at L2derivDistr[[1]], 
                                 neighbor = neighbor, biastype = biastype, 
                                 trafo = L2Fam at param@trafo, symm = L2Fam at L2derivSymm[[1]],
-                                Finfo = L2Fam at FisherInfo, warn = warn)
+                                warn = warn)
                     upRisk <- bmin^2
                 }else{
                     neighbor at radius <- upRad
@@ -151,7 +151,7 @@
                                 trafo = trafo, z.start = z.start, 
                                 A.start = A.start, 
                                 maxiter = maxiter, tol = tol, 
-                                Finfo = L2Fam at FisherInfo, warn = warn)
+                                warn = warn)
                         bmin <- biasR$asBias
                         upRisk <- bmin^2
                         upNorm <- biasR$normtype

Modified: pkg/ROptEst/R/radiusMinimaxIC.R
===================================================================
--- pkg/ROptEst/R/radiusMinimaxIC.R	2008-03-30 21:40:32 UTC (rev 85)
+++ pkg/ROptEst/R/radiusMinimaxIC.R	2008-03-30 22:31:21 UTC (rev 86)
@@ -46,7 +46,6 @@
                                   L2deriv = L2Fam at L2derivDistr[[1]], 
                                   neighbor = neighbor, biastype = biastype, 
                                   trafo = L2Fam at param@trafo,
-                                  Finfo = L2Fam at FisherInfo, 
                                   warn = warn)$asBias
                 upRisk <- bmin^2
             }else{
@@ -156,7 +155,7 @@
                                 trafo = trafo, z.start = z.start, 
                                 A.start = A.start, 
                                 maxiter = maxiter, tol = tol,
-                                Finfo = L2Fam at FisherInfo, warn = warn)
+                                warn = warn)
                     bmin <- biasR$asBias
                     upNorm <- biasR$normtype
                     upRisk <- bmin^2