[Robast-commits] r1094 - branches/robast-1.2/pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2018-08-03 11:20:11 +0200 (Fri, 03 Aug 2018)
New Revision: 1094

Modified:
   branches/robast-1.2/pkg/ROptEst/R/comparePlot.R
Log:
[ROptEst] branch 1.2 some minor safety enhancement in comparePlot 

Modified: branches/robast-1.2/pkg/ROptEst/R/comparePlot.R
===================================================================
--- branches/robast-1.2/pkg/ROptEst/R/comparePlot.R	2018-08-03 09:18:27 UTC (rev 1093)
+++ branches/robast-1.2/pkg/ROptEst/R/comparePlot.R	2018-08-03 09:20:11 UTC (rev 1094)
@@ -73,9 +73,12 @@
 
         MBRB <- matrix(rep(t(MBRB), length.out=dims0*2),ncol=2, byrow=T)
         if(withMBR && all(is.na(MBRB))){
-           robModel <- InfRobModel(center = L2Fam, neighbor =
+           ICmbr <- try(getStartIC(model = L2Fam, risk = MBRRisk()), silent=TRUE)
+           if(is(ICmbr),"try-error"){
+              robModel <- InfRobModel(center = L2Fam, neighbor =
                              ContNeighborhood(radius = 0.5))
-           ICmbr <- try(optIC(model = robModel, risk = asBias()), silent=TRUE)
+              ICmbr <- try(optIC(model = robModel, risk = asBias()), silent=TRUE)
+           }
            if(!is(ICmbr,"try-error"))
               MBRB <- .getExtremeCoordIC(ICmbr, distribution(L2Fam), to.draw,
                                          n=n.MBR)