EmphasizeVerticalPanels {HH}

Helper function for likertWeighted(). used for vertical spacing and horizontal borders of grouped panels.

Description

Helper function for likertWeighted() used for vertical spacing and horizontal borders of grouped panels. Horizontal rules between panels are suppressed by default by likertWeighted unless y.between is non-zero. See examples.

Usage

EmphasizeVerticalPanels(x, y.between)

Arguments

x

"trellis" object, normally one constructed by likertWeighted.

y.between

The between=list(y=numericvector) argument applied to a trellis object.

Value

Revised trellis object.

Author(s)

Richard M. Heiberger <[e-mail]>

See Also

likertWeighted

Examples

tmp1 <- array(1:60, c(5, 4, 3), list(letters[1:5],letters[6:9],letters[10:12]))
tmp2 <- toCQxR(tmp1)
colnames(tmp2)

likertWeighted(~ . | group + row, tmp2)

likertWeighted(~ . | group + row, tmp2, h.resize.panels=1:5,
               between=list(y=c(0,0,3,0)),
               h.resizePanels=1:5,
               ylab=c("Bottom","Top"),
               xlab.top=c("First","Second","Third"),
               auto.key.title="Response Level",
               main="Three Questions by Five Levels of Classification")

likertObject <- likertWeighted(~ . | group + row, tmp2)
likertObject

EmphasizeVerticalPanels(likertObject, y.between=c(0,0,1,0))