# NOT RUN {
x <- rnorm(1000,mean=0,sd=1.0)
plotprep(newdev=TRUE)
hist(x,breaks=30,main="",col=2)
oldpar <- plotprep(width=6,height=5,newdev=FALSE)
par(mfrow = c(2,1)) # can run parset() or change the par settings
hist(x,breaks=20,main="",col=2)
hist(x,breaks=30,main="",col=3)
par(oldpar)
# }
Run the code above in your browser using DataLab