# R script to draw a binomial distribution with superimposed
# normal density curve.

x=seq(260,380,1)
probs=dbinom(x,800,.4)
plot(x,probs,type="h")

probn=dnorm(x,320,13.85641)
points(x,probn,type="l")