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

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

Author: ruckdeschel
Date: 2014-10-21 18:48:28 +0200 (Tue, 21 Oct 2014)
New Revision: 791

Modified:
   branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
Log:
[ROptEst] fixed an error in cniperPointPlot() -- default for argument risk had not been passed on correctly to cniperCont()

Modified: branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
===================================================================
--- branches/robast-1.0/pkg/ROptEst/R/cniperCont.R	2014-10-16 12:10:53 UTC (rev 790)
+++ branches/robast-1.0/pkg/ROptEst/R/cniperCont.R	2014-10-21 16:48:28 UTC (rev 791)
@@ -270,6 +270,7 @@
                        expand.dots = TRUE)
         mcl <- as.list(mc[-1])
         dots <- as.list(mc0$"...")
+        if(is.null(mcl$risk)) mcl$risk <- asMSE()
 
         robMod <- InfRobModel(center = L2Fam, neighbor = neighbor)