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