# NOT RUN {
smpl <- rnorm(100)
par(mfrow = c(2, 1), mar = c(0, 0, 0, 0), oma=c(5, 4, 4, 2) + .1)
for (ii in 1:2){
hist(smpl[sample(length(smpl), 100, rep = TRUE)], xaxt = "n", yaxt = "n")
tile.axes(ii, 2, 1)
}
# }
Run the code above in your browser using DataLab