R Notebook

sample1 <- rnorm(40, 10, 3)
sample2 <- rnorm(40, 10, 3)
sample3 <- rnorm(40, 10, 3)
sample4 <- rnorm(40, 10, 3)
par(mfrow=c(2,2))
h1 <- hist(sample1)
h2 <- hist(sample2)

h3 <- hist(sample3)
h4 <- hist(sample4)