# \donttest{
set.seed(123)
data("gastric")
# Create intervals for piecewise exponential model
intervals <- divisionpoints(gastric$time, gastric$status, 2)
# Estimate model
mod <- shrinkDSM(time ~ radiation, gastric,
delta = gastric$status, S = intervals)
plot(mod)
# }
# Will produce an error because 'hello' is not a parameter in the model
if (FALSE) {
plot(mod, pars = c("beta", "hello"))
}
Run the code above in your browser using DataLab