.BG
.VE $Header: /usr3/s/current/s/.help/RCS/mulbar,v 1.3 83/12/30 19:31:08 rab Exp $
.FN mulbar
.TL
mulbar: Multiple Bar Plot
.CS
mulbar(width, height, rowlab, collab, gap)
.PP
.AG width
matrix of bar widths, all values must be positive.
.AG height
matrix of bar heights, values may be negative.  `width' and
`height' must have the same number of rows and columns.
.AG rowlab
optional character vector for row labels.
.AG collab
optional character vector for column labels.
.AG gap
fraction of plot used for gap between rows and columns,
default .1
.PP
Graphical parameters may also be supplied as arguments to this
function (see `par').
.EX
counts <- telsam.response[1:5,]
fit <- loglin(counts,c(1,0,2))  # fit independence model
resid <- counts - fit
par(mar=c(7,4.1,4.1,2))
mulbar(
      sqrt(fit),
      resid/sqrt(fit),
      collab=telsam.collab,
      rowlab=encode(telsam.rowlab[1:5]),
      ylab="Interviewer",
      main="Chi-Plot for Fit to Interviewer Data"
      )
mtext(side=1,line=3,
  "Height proportional to Signed Contribution to Chi Statistic")
mtext(side=1,line=4,"Width proportional to Root-Fitted Value")
mtext(side=1,line=5,"Area proportional to Fitted Value")
.PI
.KW array*
.KW plot*
.KW multivariate
.KW matrix
.KW histogram
.KW hplot*
.WR
