Generate time to event sample with censoring

Generate time to event sample with censoring

rsurv(
  n = 100,
  distn = "exp",
  prop_cens = 0.1,
  params = list(mu = c(-5, 0.005)),
  X = rep(c(10, 25, 50, 100), each = 25)
)

Examples

rsurv(n = 100,
      distn = "exp",
      prop_cens = 0.1,
      params = list(mu = c(-5, 0.005)),
      X = rep(c(10, 25, 50, 100), each = 25))
#> Error in rsurv(n = 100, distn = "exp", prop_cens = 0.1, params = list(mu = c(-5,     0.005)), X = rep(c(10, 25, 50, 100), each = 25)): could not find function "rsurv"