set.seed(529)
f_dose_new_cpp(
usubjid = "Z001", V = 0, C = 87, D = 985,
model_k0 = "zero-inflated poisson", theta_k0 = c(0.6, 1.1),
model_t0 = "log-logistic", theta_t0 = c(-1.0, 0.7),
model_t1 = "least squares", theta_t1 = c(21.5, 1.9),
model_ki = "zero-inflated poisson", theta_ki = c(0.1, 0.4),
model_ti = "least squares", theta_ti = c(21, 2.3))
Run the code above in your browser using DataLab