data(tv)
## default
## R: outer strip labels
## S-Plus: one strip label per panel (too full for this example, see below)
ladder(life.exp ~ ppl.per.phys, data=tv,
main="Ladder of Powers for Life Expectancy and People per Physician")
## Not run:
# ## one strip label
# if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=1, useOuter=FALSE,
# dsx="ppp", dsy="le"),
# s=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=1,
# dsx="ppp", dsy="le")) ## S-Plus default
#
# ## two strip labels
# if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=2, useOuter=FALSE),
# s=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=2,
# axis3.line=1.2))
#
# ## outer strip labels
# if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, useOuter=TRUE), ## R default
# s={}) ## S-Plus not available
#
# ## no strip labels (probably silly, but possible)
# if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=0, useOuter=FALSE),
# s=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=0,
# axis3.line=0))
# ## End(Not run)
Run the code above in your browser using DataLab