[Robast-commits] r1227 - branches/robast-1.3/pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2019-05-13 13:05:26 +0200 (Mon, 13 May 2019)
New Revision: 1227

Modified:
   branches/robast-1.3/pkg/ROptEst/R/cniperCont.R
Log:
[ROptEst/R/cniperCont.R] branch 1.3. : noted as TBD
## comment Matthias 20190513:
## do we need
## if(is.null(as.list(mc)$lower)) lower <- q.l(L2Fam)(lower)
## if(is.null(as.list(mc)$upper)) upper <- q.l(L2Fam)(upper)


Modified: branches/robast-1.3/pkg/ROptEst/R/cniperCont.R
===================================================================
--- branches/robast-1.3/pkg/ROptEst/R/cniperCont.R	2019-04-30 21:18:11 UTC (rev 1226)
+++ branches/robast-1.3/pkg/ROptEst/R/cniperCont.R	2019-05-13 11:05:26 UTC (rev 1227)
@@ -206,6 +206,7 @@
         return(fun)
 }
 
+
 cniperCont <- function(IC1, IC2, data = NULL, ...,
                            neighbor, risk, lower=getdistrOption("DistrResolution"),
                            upper=1-getdistrOption("DistrResolution"), n = 101,
@@ -404,6 +405,9 @@
         invisible(plotInfo)
 }
 
+
+
+
 cniperPoint <- function(L2Fam, neighbor, risk= asMSE(),
                         lower=getdistrOption("DistrResolution"),
                         upper=1-getdistrOption("DistrResolution")){
@@ -416,6 +420,11 @@
 #        lower <- q(L2Fam)(lower)
 #        upper <- q(L2Fam)(upper)
 
+## comment Matthias 20190513:
+## do we need
+## if(is.null(as.list(mc)$lower)) lower <- q.l(L2Fam)(lower)
+## if(is.null(as.list(mc)$upper)) upper <- q.l(L2Fam)(upper)
+
         robMod <- InfRobModel(center = L2Fam, neighbor = neighbor)
 
         psi <- optIC(model = L2Fam, risk = asCov())