[Robast-commits] r425 - in branches/robast-0.8/pkg/ROptEst: R man

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

Author: ruckdeschel
Date: 2010-09-06 19:24:26 +0200 (Mon, 06 Sep 2010)
New Revision: 425

Modified:
   branches/robast-0.8/pkg/ROptEst/R/getInfClip.R
   branches/robast-0.8/pkg/ROptEst/R/getInfGamma.R
   branches/robast-0.8/pkg/ROptEst/man/getInfGamma.Rd
Log:
ROptEst: fixed the asL1, asL4 issue --- getInfGamma beforehand was 
         defined for asMSE not for asGRisk

Modified: branches/robast-0.8/pkg/ROptEst/R/getInfClip.R
===================================================================
--- branches/robast-0.8/pkg/ROptEst/R/getInfClip.R	2010-09-06 15:59:20 UTC (rev 424)
+++ branches/robast-0.8/pkg/ROptEst/R/getInfClip.R	2010-09-06 17:24:26 UTC (rev 425)
@@ -56,7 +56,7 @@
         r <- neighbor at radius
         w <- r * clip / s^.5
         dp <- 2*dnorm(w)
-        pp <- 2*pnorm(w)-1
+        pp <- 2*pnorm(w)-1          
         return(s^.5*r*pp/dp + 
                getInfGamma(L2deriv = L2deriv, risk = risk, 
                            neighbor = neighbor, biastype = biastype, cent = cent, clip = clip))

Modified: branches/robast-0.8/pkg/ROptEst/R/getInfGamma.R
===================================================================
--- branches/robast-0.8/pkg/ROptEst/R/getInfGamma.R	2010-09-06 15:59:20 UTC (rev 424)
+++ branches/robast-0.8/pkg/ROptEst/R/getInfGamma.R	2010-09-06 17:24:26 UTC (rev 425)
@@ -2,7 +2,7 @@
 ## gamma in case of a convex asymptotic risk
 ###############################################################################
 setMethod("getInfGamma", signature(L2deriv = "UnivariateDistribution",
-                                   risk = "asMSE", 
+                                   risk = "asGRisk", 
                                    neighbor = "ContNeighborhood",
                                    biastype = "BiasType"),
     function(L2deriv, risk, neighbor, biastype, cent, clip){

Modified: branches/robast-0.8/pkg/ROptEst/man/getInfGamma.Rd
===================================================================
--- branches/robast-0.8/pkg/ROptEst/man/getInfGamma.Rd	2010-09-06 15:59:20 UTC (rev 424)
+++ branches/robast-0.8/pkg/ROptEst/man/getInfGamma.Rd	2010-09-06 17:24:26 UTC (rev 425)
@@ -1,7 +1,7 @@
 \name{getInfGamma}
 \alias{getInfGamma}
 \alias{getInfGamma-methods}
-\alias{getInfGamma,UnivariateDistribution,asMSE,ContNeighborhood,BiasType-method}
+\alias{getInfGamma,UnivariateDistribution,asGRisk,ContNeighborhood,BiasType-method}
 \alias{getInfGamma,UnivariateDistribution,asGRisk,TotalVarNeighborhood,BiasType-method}
 \alias{getInfGamma,RealRandVariable,asMSE,ContNeighborhood,BiasType-method}
 \alias{getInfGamma,RealRandVariable,asMSE,TotalVarNeighborhood,BiasType-method}
@@ -18,7 +18,7 @@
 \usage{
 getInfGamma(L2deriv, risk, neighbor, biastype, ...)
 
-\S4method{getInfGamma}{UnivariateDistribution,asMSE,ContNeighborhood,BiasType}(L2deriv, 
+\S4method{getInfGamma}{UnivariateDistribution,asGRisk,ContNeighborhood,BiasType}(L2deriv, 
      risk, neighbor, biastype, cent, clip)
 
 \S4method{getInfGamma}{UnivariateDistribution,asGRisk,TotalVarNeighborhood,BiasType}(L2deriv, 
@@ -60,7 +60,7 @@
 %\value{}
 \section{Methods}{
 \describe{
-  \item{L2deriv = "UnivariateDistribution", risk = "asMSE", 
+  \item{L2deriv = "UnivariateDistribution", risk = "asGRisk", 
         neighbor = "ContNeighborhood", 
         biastype = "BiasType"}{ used by \code{getInfClip} for symmetric bias. }