[Robast-commits] r422 - branches/robast-0.8/pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2010-09-03 15:51:16 +0200 (Fri, 03 Sep 2010)
New Revision: 422

Modified:
   branches/robast-0.8/pkg/ROptEst/R/getInfClip.R
Log:
ROptEst: a buglet in getInfClip.R

Modified: branches/robast-0.8/pkg/ROptEst/R/getInfClip.R
===================================================================
--- branches/robast-0.8/pkg/ROptEst/R/getInfClip.R	2010-09-03 13:31:06 UTC (rev 421)
+++ branches/robast-0.8/pkg/ROptEst/R/getInfClip.R	2010-09-03 13:51:16 UTC (rev 422)
@@ -114,7 +114,7 @@
         s <- getInfV(L2deriv, neighbor, biastype, clip, cent, stand=1)
         r <- neighbor at radius
         mse <- r^2 *clip^2 + s
-        mse4 <- r^2 *clip^2/3 + s
+        mse4 <- (r^2 *clip^2/3 + s)/mse
         if(symm){
             return(r^2*clip*mse4 + 
                    getInfGamma(L2deriv = sign(as.vector(trafo))*L2deriv, risk = risk,