# Enrollment prediction at the design stage
fit1 <- list(model = "piecewise uniform",
theta = -0.58,
vtheta=0, accrualTime =0)
predictEnrollment(df = NULL, target_n=200, enroll_fit = fit1,lags=46,
pilevel=0.9, nyears=4, nreps=100,by_treatment=TRUE,
ngroups=2, alloc=c(1,1), treatment_label=c('a','b'))
Run the code above in your browser using DataLab