library(survival)
lbpmicox1 <- subset(psfmi::lbpmicox, Impnr==1) # extract dataset
fit_cox0 <-
coxph(Surv(Time, Status) ~ Duration + Pain, data=lbpmicox1, x=TRUE)
fit_cox1 <-
coxph(Surv(Time, Status) ~ Duration + Pain + Function + Radiation,
data=lbpmicox1, x=TRUE)
p0 <- risk_coxph(fit_cox0, t_risk=80)
p1 <- risk_coxph(fit_cox1, t_risk=80)
nri <- nri_est(data=lbpmicox1,
p0=p0,
p1=p1,
time = "Time",
status = "Status",
cutoff=0.45,
t_risk=80)
Run the code above in your browser using DataLab