* do-file for Supplementary exercise 4.10 of IPS7e

version 18 /* works also with versions 13-17 */
set seed 25092005
set obs 100
generate agree20=rbinomial(20,0.3)
generate agree20pct=agree20/20*100
sum agree20pct, detail
stem agree20pct
* repeat for 320 trials
generate agree320=rbinomial(320,0.3)
generate agree320pct=agree320/320*100
sum agree320pct, detail
stem agree320pct