[Robast-commits] r1086 - pkg/RobAStBase/R

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

Author: stamats
Date: 2018-08-02 00:42:10 +0200 (Thu, 02 Aug 2018)
New Revision: 1086

Modified:
   pkg/RobAStBase/R/AllPlot.R
   pkg/RobAStBase/R/comparePlot.R
Log:
two more minor changes: condition length > 1

Modified: pkg/RobAStBase/R/AllPlot.R
===================================================================
--- pkg/RobAStBase/R/AllPlot.R	2018-08-01 22:29:36 UTC (rev 1085)
+++ pkg/RobAStBase/R/AllPlot.R	2018-08-01 22:42:10 UTC (rev 1086)
@@ -284,7 +284,7 @@
                               x.ticks = x.ticks[[i]], y.ticks = y.ticks[[i]])
             if(withMBR){
                 MBR.i <- MBRB[i,]
-                if(scaleY) MBR.i <- scaleY.fct[[i]](MBR.i)
+                if(scaleY[i]) MBR.i <- scaleY.fct[[i]](MBR.i)
                 abline(h=MBR.i, col=col.MBR, lty=lty.MBR, lwd = lwd.MBR)
                 plotInfo$MBR[[i]] <- list(h=MBR.i, col=col.MBR, lty=lty.MBR, lwd = lwd.MBR)
             }

Modified: pkg/RobAStBase/R/comparePlot.R
===================================================================
--- pkg/RobAStBase/R/comparePlot.R	2018-08-01 22:29:36 UTC (rev 1085)
+++ pkg/RobAStBase/R/comparePlot.R	2018-08-01 22:42:10 UTC (rev 1086)
@@ -639,7 +639,7 @@
                               x.ticks = x.ticks0, y.ticks = y.ticks0)
             if(withMBR){
                 MBR.i <- MBRB[i,]
-                if(scaleY) MBR.i <- scaleY.fct[[i]](MBR.i)
+                if(scaleY[i]) MBR.i <- scaleY.fct[[i]](MBR.i)
                 abline(h=MBR.i, col=col.MBR, lty=lty.MBR, lwd = lwd.MBR)
                 plotInfo$MBR[[i]] <- list(h=MBR.i, col=col.MBR, lty=lty.MBR, lwd = lwd.MBR)
             }