attach(TireWear)
par(mfrow=c(1,2), cex=.8)
interaction.plot(Treat,Block,Wear, type="b", legend=FALSE)
interaction.plot(Block,Treat,Wear, type="b", legend=FALSE)
par(mfrow=c(1,1), cex=1)
detach(TireWear)
Run the code above in your browser using DataLab