HWK2.Math239_Markdown.Rmd

#Binomial Simulation of Egyptian Revolution

p0=.69
n=30
nsim=10000
nullDist<-rbinom(nsim, n, p0)
head(nullDist)

## [1] 20 19 20 20 21 24

hist(nullDist)