dat <- data.frame(t=c(0, 1, 2), trt=c(FALSE, FALSE, TRUE))
recruitment_uniform(dat, 7, 0)
dat <- data.frame(
t = 1:10,
rec_time = rep(1:5, each=2),
trt = rep(c(TRUE, FALSE), times=5),
evt = rep(TRUE, times=10)
)
dat
admin_censoring_time(dat, 4)
admin_censoring_time(dat, 4, keep_non_recruited = TRUE)
dat_censored <- admin_censoring_time(dat, 5)
attr(dat_censored, "followup")
dat <- data.frame(
t = 1:10,
rec_time = rep(2*(1:5), each=2),
trt = rep(c(TRUE, FALSE), times=5),
evt = rep(TRUE, times=10)
)
dat
admin_censoring_events(dat, 4)
admin_censoring_events(dat, 4, keep_non_recruited = TRUE)
dat_censored <- admin_censoring_events(dat, 4)
attr(dat_censored, "followup")
Run the code above in your browser using DataLab