# NOT RUN {
par(mfrow = c(1, 2), cex = 0.8)
with(data = TireWear,
interaction.plot(Treat, Block, Wear, type = "b", legend = FALSE))
with(data = TireWear,
interaction.plot(Block, Treat, Wear, type = "b", legend = FALSE))
par(mfrow = c(1, 1), cex = 1)
# }
Run the code above in your browser using DataLab