# \dontshow{
RcppArmadillo::armadillo_throttle_cores(2)
# }
data(idoveData)
set.seed(1234)
smp <- sample(1L:nrow(x = idoveData), size = 250L)
# NOTE: This sample size is chosen for example only -- larger data sets
# should be used.
# See the vignette for a full analysis of the idoveData dataset
# Fit the model with default settings
result <- idove(formula = intCens(entry.time, left.time, right.time, vaccine.time) ~ 1,
data = idoveData[smp,])
plot(x = result)
Run the code above in your browser using DataLab