# \donttest{
dat <- Bolus_2CPT
# Fit using 'nls'
Fit_3cmpt_iv(
data = dat,
est.method = "nls",
input.cl = 4,
input.vc3cmpt = 70,
input.vp3cmpt = 35,
input.vp23cmpt = 5,
input.q3cmpt = 4,
input.q23cmpt = 4,
input.add = 10
)
# Return only predicted concentrations
Fit_3cmpt_iv(
data = dat,
est.method = "rxSolve",
input.cl = 4,
input.vc3cmpt = 70,
input.vp3cmpt = 35,
input.vp23cmpt = 35,
input.q3cmpt = 4,
input.q23cmpt = 4,
input.add = 10,
return.pred.only = TRUE
)
# }
Run the code above in your browser using DataLab