[Robast-commits] r675 - branches/robast-0.9/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2013-07-06 18:35:17 +0200 (Sat, 06 Jul 2013)
New Revision: 675

Modified:
   branches/robast-0.9/pkg/RobAStBase/R/AllPlot.R
   branches/robast-0.9/pkg/RobAStBase/R/infoPlot.R
Log:
RobAStBase: discovered a bug in plot-IC and infoPlot with transparency

Modified: branches/robast-0.9/pkg/RobAStBase/R/AllPlot.R
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/R/AllPlot.R	2013-07-05 22:32:31 UTC (rev 674)
+++ branches/robast-0.9/pkg/RobAStBase/R/AllPlot.R	2013-07-06 16:35:17 UTC (rev 675)
@@ -347,7 +347,7 @@
         if(is(e1, "DiscreteDistribution"))
            ICy <- jitter(ICy, factor = jitter.fac0)
 
-        if(!is.na(al0)) col0 <- sapply(col0, addAlphTrsp2col,alpha=al0)
+        if(!is.na(al0)) col.pts <- sapply(col0, addAlphTrsp2col,alpha=al0)
 
         do.call(points, args=c(list(y1, ICy, cex = log(absy0+1)*3*cex0,
                         col = col0, pch = pch0), dwo0))

Modified: branches/robast-0.9/pkg/RobAStBase/R/infoPlot.R
===================================================================
--- branches/robast-0.9/pkg/RobAStBase/R/infoPlot.R	2013-07-05 22:32:31 UTC (rev 674)
+++ branches/robast-0.9/pkg/RobAStBase/R/infoPlot.R	2013-07-06 16:35:17 UTC (rev 675)
@@ -339,7 +339,7 @@
                    f1c <- log(ICy0c+1)*3*cex0[2]
 
                    if(!is.na(al0))
-                      col0 <- sapply(col0, addAlphTrsp2col,alpha=al0)
+                      col.pts <- sapply(col0, addAlphTrsp2col,alpha=al0)
 
                    do.pts(y0, ICy0, f1,col0[1],pch0[,1])
                    do.pts(y0c, ICy0c, f1c,col0[2],pch0[,2])
@@ -367,7 +367,7 @@
                    f1c <- log(ICy0c+1)*3*cex0[2]
 
                    if(!is.na(al0))
-                      col0 <- sapply(col0, addAlphTrsp2col, alpha=al0[i1])
+                      col.pts <- sapply(col0, addAlphTrsp2col, alpha=al0[i1])
 
                    do.pts(y0, y0.vec, f1,col0[1],pch0[,1])
                    do.pts(y0c, y0c.vec, f1c,col0[2],pch0[,2])