#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)