[Robast-commits] r1015 - branches/robast-1.1/pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2018-07-22 13:19:26 +0200 (Sun, 22 Jul 2018)
New Revision: 1015

Modified:
   branches/robast-1.1/pkg/ROptEst/R/roptest.new.R
Log:
[ROptEst] branch 1.1 for subsequent diagnostic plots, the exact call of roptest is necessary (to get hand on "x") -> modify return value and store the return value of robest in attribute

Modified: branches/robast-1.1/pkg/ROptEst/R/roptest.new.R
===================================================================
--- branches/robast-1.1/pkg/ROptEst/R/roptest.new.R	2018-07-22 11:07:13 UTC (rev 1014)
+++ branches/robast-1.1/pkg/ROptEst/R/roptest.new.R	2018-07-22 11:19:26 UTC (rev 1015)
@@ -89,7 +89,8 @@
                     withLogScale = TRUE,..withCheck=FALSE,
                     withTimings = FALSE, withMDE = NULL,
                     withEvalAsVar = NULL){
-    dots <- match.call(expand.dots=FALSE)[["..."]]
+    mc <- match.call(expand.dots=FALSE)
+    dots <- mc[["..."]]
     scalename <- dots[["scalename"]]
     nbCtrl <- list()
     nbCtrl[["neighbor"]] <- if(!missing(neighbor)) neighbor else ContNeighborhood()
@@ -115,12 +116,15 @@
     kStepCtrl[["withLogScale"]] <- if(!missing(withLogScale)) withLogScale else TRUE
     kStepCtrl[["withEvalAsVar"]] <- if(!missing(withEvalAsVar)) withEvalAsVar else NULL
 
-    return(robest(x=x, L2Fam=L2Fam,  fsCor = fsCor,
+    retV <- robest(x=x, L2Fam=L2Fam,  fsCor = fsCor,
            risk = risk, steps = steps, verbose = verbose,
            OptOrIter = OptOrIter, nbCtrl = nbCtrl,
            startCtrl = startCtrl, kStepCtrl = kStepCtrl,
            na.rm = na.rm, ..., debug = ..withCheck,
-           withTimings = withTimings))
+           withTimings = withTimings)
+    attr(mc,"robest.call") <- retV at estimate.call
+    retV at estimate.call <- mc
+    return(retV)
 }
 #roptest(x=1:10,L2Fam=GammaFamily(),also=3,..withCheck=TRUE)