# NOT RUN {
<!-- %\dontrun{ -->
# }
# NOT RUN {
# Simple run:
data(d.oropha.rec)
res <- invGauss(formula.mu = Surv(time, status) ~ 1, data = d.oropha.rec)
summary(res)
# Use covariates for c, with exponential link function
data(d.oropha.rec)
res <- invGauss(formula.mu = Surv(time, status) ~ 1, formula.c = ~ cond + nstage + tstage,
data = d.oropha.rec) # MODEL 5 (TABLE 10.2) IN SPRINGER BOOK
summary(res)
# }
# NOT RUN {
<!-- %} -->
# }
Run the code above in your browser using DataLab