* do-file for Supplementary Exercises 5.49 and 5.53 of IPS7e
version 17 /* works also with versions 13-16 */

* 5.49(b)
display binomialtail(20,9,0.3)
display binomial(20,11,0.7)
* commands to produce a listing of probabilities as in solution
set obs 20
egen x=fill(0(1)20)
generate px=binomialp(20,x,0.7)
generate py=binomialp(20,x,0.3)
list x px py, clean

* 5.53
display binomialtail(20,10,0.3)
display binomial(20,10,0.7)