[R-gregmisc-users] SF.net SVN: r-gregmisc:[1519] trunk/gplots

[<wa...@us...>]

Revision: 1519
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1519&view=rev
Author:   warnes
Date:     2011-12-09 09:22:25 +0000 (Fri, 09 Dec 2011)
Log Message:
-----------
Add 'lwd' (linewidth) to arguments handled by plotmeans.

Modified Paths:
--------------
    trunk/gplots/R/plotmeans.R
    trunk/gplots/man/plotmeans.Rd

Modified: trunk/gplots/R/plotmeans.R
===================================================================
--- trunk/gplots/R/plotmeans.R	2011-10-05 17:05:54 UTC (rev 1518)
+++ trunk/gplots/R/plotmeans.R	2011-12-09 09:22:25 UTC (rev 1519)
@@ -13,6 +13,7 @@
                         legends=names(means),
                         xaxt,
                         use.t = TRUE,
+                        lwd,
                         ...)
 {
   is.R <- get("is.R")
@@ -47,7 +48,7 @@
   m$col  <- m$barwidth  <- NULL
   m$digits  <- m$mean.labels  <- m$ci.label  <- m$n.label <- NULL
   m$connect  <- m$ccol  <-  m$legends <- m$labels<- NULL
-  m$xaxt <- m$use.t <- NULL
+  m$xaxt <- m$use.t <- m$lwd <- NULL
   m[[1]] <- as.name("model.frame")
   mf <- eval(m, parent.frame())
   response <- attr(attr(mf, "terms"), "response")
@@ -141,7 +142,7 @@
             lines(x=connect[[which]],y=means[connect[[which]]],col=ccol[which])
         }
       else
-        lines(means, ..., col=ccol)
+        lines(means, ..., lwd=lwd, col=ccol)
     }
 
 

Modified: trunk/gplots/man/plotmeans.Rd
===================================================================
--- trunk/gplots/man/plotmeans.Rd	2011-10-05 17:05:54 UTC (rev 1518)
+++ trunk/gplots/man/plotmeans.Rd	2011-12-09 09:22:25 UTC (rev 1519)
@@ -11,7 +11,8 @@
           xlab=names(mf)[2], ylab=names(mf)[1], mean.labels=FALSE,
           ci.label=FALSE, n.label=TRUE, digits=getOption("digits"),
           col="black", barwidth=1, barcol="blue",
-          connect=TRUE, ccol=col, legends=names(means), xaxt, use.t=TRUE, ...)
+          connect=TRUE, ccol=col, legends=names(means), xaxt,
+          use.t=TRUE, lwd, ...)
 }
 %
 %\usage{
@@ -91,7 +92,9 @@
     default, a t distribution will the correct number of degrees of
     freedom for each group be used.  If \code{FALSE}, the a normal
     distribution will be used.}
-
+  
+  \item{lwd}{Width of connecting lines  }
+  
   \item{\dots}{ optional plotting parameters. }
 
   }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.