[Robast-commits] r758 - branches/robast-1.0/pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2014-07-24 13:42:34 +0200 (Thu, 24 Jul 2014)
New Revision: 758

Modified:
   branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
Log:
[ROptEst] cniperPointPlot gains capacity to deal with "interpolRisk" - risks

Modified: branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
===================================================================
--- branches/robast-1.0/pkg/ROptEst/R/cniperCont.R	2014-07-24 11:35:32 UTC (rev 757)
+++ branches/robast-1.0/pkg/ROptEst/R/cniperCont.R	2014-07-24 11:42:34 UTC (rev 758)
@@ -228,7 +228,9 @@
         robMod <- InfRobModel(center = L2Fam, neighbor = neighbor)
 
         mcl$IC1 <- optIC(model = L2Fam, risk = asCov())
-        mcl$IC2 <- optIC(model = robMod, risk = risk)
+        mcl$IC2 <- if(is(risk,"interpolRisk")){
+                     getStartIC(model=L2Fam, risk = risk)
+                   }else optIC(model = robMod, risk = risk)
         mcl$L2Fam <- NULL
         if(is.null(dots$ylab))
            mcl$ylab <- gettext("Asymptotic Risk difference (classic - robust)")