#====================
# Figure 14.3.R.
# R script to calculate and draw
# binomial probabilities.
#====================
p=.26
n=30
k=0:n
dbinom(k,n,p)
m=10
pbinom(m,n,p)
size=20
rbinom(size,n,p)
probs=dbinom(k,n,p)
probs=cbind(0,probs)
k=cbind(-1,k)-.5
plot(k,probs,type="s")