if.R(r={
print(
bwplot(len ~ supp | unpositioned(dose), data=ToothGrowth, layout=c(3,1))
)
print(
bwplot(len ~ dose | supp, data=ToothGrowth, layout=c(2,1),
box.ratio=.5,
panel=panel.bwplot.intermediate.hh,
scales=list(x=list(at=position(ToothGrowth$dose))))
)
print(
bwplot(len ~ dose | supp, data=ToothGrowth, layout=c(2,1),
box.ratio=.5,
scales=list(x=list(at=position(ToothGrowth$dose))))
)
},
s={}
)
Run the code above in your browser using DataLab