################################################### ### chunk number 1: ################################################### set.seed(1001) plot(table(factor(rbinom(100,prob=0.2,size=10), levels=0:10)), xlab="# of successes", ylab="# of experiments", bty="l",las=1, main="results from 100 binomial trials\nwith N=10, prob=0.2:\nrbinom(100,size=10,prob=0.2)")