# 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)
# }
Run the code above in your browser using DataLab