if (FALSE) {
# ATTENTION: the following code may take a long time to run! #
### The following code reproduces Figure 1 in Consonni et al. (2011) ###
p <- 0.5
t <- 5
cip.2(t, p, 30)
t <- 30
cip.2(t, p, 50)
}
Run the code above in your browser using DataLab