[Robast-commits] r405 - in branches/robast-0.8/pkg/RobAStBase: R man

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

Author: ruckdeschel
Date: 2010-05-17 20:01:15 +0200 (Mon, 17 May 2010)
New Revision: 405

Modified:
   branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R
   branches/robast-0.8/pkg/RobAStBase/man/infoPlot.Rd
Log:
infoPlot gains arguments ylab.rel and ylab.abs to set the label for y axis (as requested by N. Horbenko)

Modified: branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R	2010-05-07 17:25:09 UTC (rev 404)
+++ branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R	2010-05-17 18:01:15 UTC (rev 405)
@@ -12,7 +12,9 @@
              cex.pts = 1, col.pts = par("col"),
              pch.pts = 1, jitter.fac = 1, with.lab = FALSE,
              lab.pts = NULL, lab.font = NULL,
-             which.lbs = NULL, which.Order  = NULL, return.Order = FALSE){
+             which.lbs = NULL, which.Order  = NULL, return.Order = FALSE,
+             ylab.abs = "absolute information", 
+             ylab.rel= "relative information"){
 
         objectc <- match.call(call = sys.call(sys.parent(1)))$object
         dots <- match.call(call = sys.call(sys.parent(1)), 
@@ -368,7 +370,7 @@
             if(1 %in% to.draw){
                do.call(plot, args=c(list(x.vec, absInfoClass, type = plty, 
                    lty = ltyI, col = colI, lwd = lwdI,
-                   xlab = "x", ylab = "absolute information", panel.last = pL.abs),
+                   xlab = "x", ylab = ylab.abs, panel.last = pL.abs),
                    dotsP))
                do.call(lines, args=c(list(x.vec, absInfo, type = plty, 
                        lty = lty, lwd = lwd, col = col), dotsL))
@@ -411,7 +413,7 @@
                     y.vec <- sapply(x.vec, IC1.i.5 at Map[[indi]])^2/absInfo
                     do.call(plot, args=c(list(x.vec, y.vec, type = plty, 
                                   lty = lty, xlab = "x", 
-                                  ylab = "relative information", 
+                                  ylab = ylab.rel, 
                                   col = col, lwd = lwd, panel.last = pL.rel), dotsP))
 
                     yc.vec <- sapply(x.vec, classIC.i.5 at Map[[indi]])^2/absInfoClass

Modified: branches/robast-0.8/pkg/RobAStBase/man/infoPlot.Rd
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/man/infoPlot.Rd	2010-05-07 17:25:09 UTC (rev 404)
+++ branches/robast-0.8/pkg/RobAStBase/man/infoPlot.Rd	2010-05-17 18:01:15 UTC (rev 405)
@@ -22,7 +22,9 @@
              cex.pts = 1, col.pts = par("col"),
              pch.pts = 1, jitter.fac = 1, with.lab = FALSE,
              lab.pts = NULL, lab.font = NULL,
-             which.lbs = NULL, which.Order  = NULL, return.Order = FALSE)
+             which.lbs = NULL, which.Order  = NULL, return.Order = FALSE,
+             ylab.abs = "absolute information", 
+             ylab.rel= "relative information")
 }
 \arguments{
   \item{object}{object of class \code{"InfluenceCurve"} }
@@ -99,6 +101,8 @@
     reduction by argument \code{which.lbs}, and ordering is according to the norm given by
            \code{normtype(object)});
    othervise we return \code{invisible()} as usual.}
+  \item{ylab.abs}{character; label to be used for y-axis in absolute information panel} 
+  \item{ylab.rel}{character; label to be used for y-axis in relative information panel} 
   \item{\dots}{further parameters for \code{plot}}
 }
 \details{