# NOT RUN {
# bmtfit = intcure(Surv(time, cens) ~ g + FAB + cluster(inst), ~ g + FAB,
# data = bmt, basedist = "weibull", sigma = c(-1, NA, NA),
# optimcfg = list(method = "BFGS", hessian = TRUE, maxit = 2000)).
data(bmtfit)
# }
Run the code above in your browser using DataLab