data(heart.valve)
heart.surv <- UniqueVariables(heart.valve,
var.col = c("fuyrs", "status"),
id.col = "num")
heart.valve.jd <- jointdata(survival = heart.surv,
id.col = "num",
time.col = "time")
Run the code above in your browser using DataLab