mulbar(width, height, rowlab = NULL, collab = NULL,
gap = .2, density = 0, barcol = <<see below>>,
angle = 0, ...)
width and
height must have the same number of rows and columns.
Missing values are not accepted.
width.
It defaults to the argument
col if that is given, otherwise
to par("col").
width.
A density of 0 means not to fill the bars at all and a density of -1
means to fill the bars with solid color.
densityis not
positive. It will be cyclically extended to the length of
width..
par). In addition, the high-level graphics arguments described
under
par and the arguments to
title may be supplied to this
function.
height, and taking their size from
width and
height
.
Creates a multiple number of barplots arranged in the same number of
rows and columns as the
height argument. The size of each bar is
determined by the
width argument. The number of values in
height
and
width must match.
counts <- telsam.response[1:5,]
fit <- loglin(counts, list(1, 2), fit = T)$fit # fit independence model
resid <- counts - fit
par(mar = c(7, 4.1, 4.1, 2))
mulbar(
sqrt(fit),
resid/sqrt(fit),
collab = dimnames(telsam.response)[[2]],
rowlab = dimnames(telsam.response)[[1]][1:5],
ylab = "Interviewer",
main = "Chi-Plot for Fit to Interviewer Data"
)
mtext(side = 1, line = 3,
"Height prop. 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")