# NOT RUN {
data(mgus)
mgus$A <- ifelse(mgus$age < 64, 0, 1)
fit <- cpf(Hist(time, ev)~A, mgus)
plot(fit, curvlab = c("Age < 64", "Age >= 64"),
main = "Conditional Probability of Cancer", xlab = "Years")
# }
Run the code above in your browser using DataLab