# NOT RUN {
## Continuing the ciregic(...) example
library(intccr)
waldtest(obj1 = fit)
set.seed(12345)
newdata <- dataprep(data = longdata, ID = id, time = t,
event = c, Z = c(z1, z2))
fit.nested <- ciregic(formula = Surv2(v = v, u = u, event = c) ~ z2, data = newdata,
alpha = c(1, 1), nboot = 0, do.par = FALSE)
waldtest(obj1 = fit, obj2 = fit.nested)
# }
Run the code above in your browser using DataLab