# NOT RUN {
data(wind_RP)
mod <- cpm(formula_l = l ~ 1, data = wind_RP$CP, left = "LastPresent",
right = "FirstAbsent"
)
rcp(n = 10, model = mod, type = "survreg")
rcp(n = 10, model = mod, type = "ppersist")
# }
Run the code above in your browser using DataLab