# \donttest{
# load the data set in the package
library("survival")
library("numDeriv")
library("survexp.fr")
data("dataCancer") # load the data set in the package
fit.ph <- xhaz(
formula = Surv(obs_time_year, event) ~ ageCentre + immuno_trt,
data = dataCancer,
ratetable = survexp.fr::survexp.fr,
interval = c(0, NA, NA, NA, max(dataCancer$obs_time_year)),
rmap = list(age = 'age', sex = 'sexx', year = 'year_date'),
baseline = "constant", pophaz = "classic")
fit.ph2 <- xhaz(
formula = Surv(obs_time_year, event) ~ ageCentre ,
data = dataCancer,
ratetable = survexp.fr::survexp.fr,
interval = c(0, NA, NA, NA, max(dataCancer$obs_time_year)),
rmap = list(age = 'age', sex = 'sexx', year = 'year_date'),
baseline = "constant", pophaz = "classic")
anova(fit.ph2, fit.ph)
# }
Run the code above in your browser using DataLab