# \donttest{
out <- sim_sens_2cmpt(
dat = Bolus_2CPT[Bolus_2CPT$ID<50,],
sim_cl = list(mode = "manual", values = 4),
sim_vc = list(mode = "manual", values = 50),
sim_vp = list(mode = "auto"),
sim_q = list(mode = "auto"),
sim_ka = list(mode = "manual", values = NA),
route = "iv",verbose=FALSE
)
head(out[out$rRMSE2==min(out$rRMSE2),])
# }
Run the code above in your browser using DataLab