set.seed(123)
df <- data.frame(
pseudo_time = rexp(20, rate = 0.1),
rec_time = runif(20, 0, 12),
time = rexp(20, rate = 0.1)
)
censored <- cens_data(df, cens_method = "Time", cens_time = 10)
str(censored)
Run the code above in your browser using DataLab