# NOT RUN {
data(simDat)
fm <- Recur(Time, id, event, status) ~ x1 + x2
fit <- reReg(fm, data = simDat, method = "cox", B = 0)
plot(fit)
plot(fit, baseline = "rate")
plot(fit, baseline = "rate", xlab = "Time (days)", smooth = TRUE)
# }
Run the code above in your browser using DataLab