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

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

Author: ruckdeschel
Date: 2014-08-05 18:55:39 +0200 (Tue, 05 Aug 2014)
New Revision: 777

Modified:
   branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R
Log:
[ROptEst] bugfix: in wrapper function CniperPointPlot, arguments 'data' 
          and 'alpha.trsp' had not been passed on correctly


Modified: branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R
===================================================================
--- branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R	2014-08-05 16:49:39 UTC (rev 776)
+++ branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R	2014-08-05 16:55:39 UTC (rev 777)
@@ -71,12 +71,14 @@
   ### 2. build up the argument list for the (powerful/fullfledged)
   ### graphics/diagnostics function;
   ##
+  data <- dots$data
+  alpha.trsp <- eval(dots$alpha.trsp); if(is.null(alpha.trsp)) alpha.trsp <- NA
 
   ## Scaling of the axes
   scaleList <- rescaleFunction(fam, FALSE, rescale)
 
   argsList <- c(list(L2Fam = substitute(fam)
-                   ,data = substitute(NULL)
+                   ,data = data
                    ,neighbor = substitute(ContNeighborhood(radius = 0.5))
                    ,risk = substitute(asMSE())
                    ,lower = substitute(lower)
@@ -91,7 +93,7 @@
                    ,with.lab = substitute(FALSE)
                    ,lab.pts = substitute(NULL)
                    ,lab.font = substitute(NULL)
-                   ,alpha.trsp = substitute(alpha.trsp)
+                   ,alpha.trsp = alpha.trsp
                    ,which.lbs = substitute(NULL)
                    ,which.Order  = substitute(NULL)
                    ,return.Order = substitute(FALSE)