[Robast-commits] r356 - in branches/robast-0.7/pkg/ROptEst: R chm

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

Author: ruckdeschel
Date: 2009-08-27 22:04:40 +0200 (Thu, 27 Aug 2009)
New Revision: 356

Modified:
   branches/robast-0.7/pkg/ROptEst/R/getModifyIC.R
   branches/robast-0.7/pkg/ROptEst/chm/ROptEst.chm
Log:
fixed a minor buglet in getModifyIC.R in ROptEst:
we had to cast out a second appearance of argument verbose (within ...) ...

Modified: branches/robast-0.7/pkg/ROptEst/R/getModifyIC.R
===================================================================
--- branches/robast-0.7/pkg/ROptEst/R/getModifyIC.R	2009-08-27 17:27:39 UTC (rev 355)
+++ branches/robast-0.7/pkg/ROptEst/R/getModifyIC.R	2009-08-27 20:04:40 UTC (rev 356)
@@ -5,11 +5,14 @@
 setMethod("getModifyIC", signature(L2FamIC = "L2ParamFamily", 
                                    neighbor = "Neighborhood", risk = "asRisk"),
     function(L2FamIC, neighbor, risk, ...){
+        dots <- list(...)
+        dots$verbose <- NULL
         modIC <- function(L2Fam, IC){}
         body(modIC) <- substitute({ verbose <- getRobAStBaseOption("all.verbose")
                                     infMod <- InfRobModel(L2Fam, nghb)
-                                    optIC(infMod, risk=R, verbose=verbose, ...) },
-                                  list(nghb = neighbor, R = risk))
+                                    do.call(optIC, args = c(list(infMod, risk=R),
+                                                            dots0)) },
+                                  list(nghb = neighbor, R = risk, dots0 = dots))
         return(modIC)
     })
 

Modified: branches/robast-0.7/pkg/ROptEst/chm/ROptEst.chm
===================================================================
(Binary files differ)