str(dat <- simDat15()) # Implicit default arguments
# Revert to "Binomial model-of-the-mean"
# (Increase sample size to reduce sampling variability)
str(dat <- simDat15(N = 100, theta.cr = 40/100, theta.ch = 40/100))
Run the code above in your browser using DataLab