# R-program for Supplementary Exercises 5.49 and 5.53 of IPS7e

# 5.49(b)
1-pbinom(8,20,0.3)
pbinom(11,20,0.7)
# commands to produce a listing of probabilities as in solution
x <- 0:20
px <- dbinom(x,20,0.7)
py <- dbinom(x,20,0.3)
cbind(x,px,py)

# 5.53
1-pbinom(9,20,0.3)
pbinom(10,20,0.7)