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

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

Author: ruckdeschel
Date: 2014-04-15 01:24:49 +0200 (Tue, 15 Apr 2014)
New Revision: 750

Modified:
   branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
   branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R
Log:
ROptEst: found the bug -- used the wrong variance

Modified: branches/robast-1.0/pkg/ROptEst/R/cniperCont.R
===================================================================
--- branches/robast-1.0/pkg/ROptEst/R/cniperCont.R	2014-04-14 22:36:07 UTC (rev 749)
+++ branches/robast-1.0/pkg/ROptEst/R/cniperCont.R	2014-04-14 23:24:49 UTC (rev 750)
@@ -82,7 +82,7 @@
             y1 <- sapply(x, function(x1)evalIC(IC1,as.matrix(x1,ncol=1)))
             r1 <- riskfct(var=R1,bias=r*fct(normtype(risk))(y1))
             if(!is.null(b20)){
-               r2 <- riskfct(var=R1, bias=b20)
+               r2 <- riskfct(var=R2, bias=b20)
             }else{
                y2 <- sapply(x,function(x0) evalIC(IC2,x0))
                r2 <- riskfct(var=R2,bias=r*fct(normtype(risk))(y2))

Modified: branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R
===================================================================
--- branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R	2014-04-14 22:36:07 UTC (rev 749)
+++ branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R	2014-04-14 23:24:49 UTC (rev 750)
@@ -73,9 +73,7 @@
   ##
 
   ## Scaling of the axes
-  print(fam)
   scaleList <- rescaleFunction(fam, FALSE, rescale)
-  print(scaleList)
 
   argsList <- c(list(L2Fam = substitute(fam)
                    ,data = substitute(NULL)