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