2.11 The Binomial Distribution

# flipping 6 fair coins at a time, how many heads do we get?
binom_values <- rbinom(n = 10000, 6, 0.5)

hist(binom_values, breaks = 30)

# normalize distribution for QQ
binom_values <- (binom_values - mean(binom_values))/sd(binom_values)
qqnorm(binom_values); qqline(binom_values, col = 2)