## Not run:
# tmp <- data.frame(y=rnorm(48),
# A=factor(rep(1:2, 24)),
# B=factor(rep(rep(1:3, each=2), 8)),
# C=factor(rep(rep(1:4, each=6), 2)))
# interaction2wt(y ~ A+B+C, data=tmp,
# key.in=list(x=-3), ## key.in is ignored by R
# xlim=c(.4, 4.5))
# interaction2wt(y ~ B+C, data=tmp, key.in=list(x=-2), xlim=c(.4, 4.5))
# position(tmp$B) <- c(1, 2.4, 3.8)
# interaction2wt(y ~ B+C, data=tmp, key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ B+C, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ C+B, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ B+C, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# simple.pch=list(C=c(16,17,18,19)),
# key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ C+B, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# simple.pch=list(C=c(16,17,18,19)),
# key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ C+B, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# simple.pch=list(A=c(1:2), B=c(3:5), C=c(16,17,18,19)),
# key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ C+B, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# simple.pch=list(A=c(1:2)),
# key.in=list(x=-2), xlim=c(.4, 4.5))
# interaction2wt(y ~ B+C, data=tmp, simple=TRUE,
# simple.scale=list(B=.18, C=.27), box.ratio=.2,
# simple.pch=list(B=c(16,17,18)),
# key.in=list(x=-2), xlim=c(.4, 4.5),
# se=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab