# NOT RUN {
# }
# NOT RUN {
pbtk1cpt_model()
mName <- "pbtk1cpt"
compile_model(mName)
q <- "qunif"
q.arg <- list(list(min = 0.4, max = 1.1),
list(min = 0.1, max = 0.4),
list(min = 1.0, max = 3.0))
params <- c("vdist", "ke", "kgutabs")
set.seed(1234)
x <- rfast99(params = params, n = 200, q = q, q.arg = q.arg, rep = 20)
infile.name <- "example.in"
outfile.name <- "example.csv"
vars <- "Ccompartment"
t <- seq(from = 0.25, to = 12.25, by = 0.5)
y <- solve_mcsim(x, mName = mName, infile.name = infile.name,
setpoint.name = "setpoint.dat",
outfile.name = outfile.name, params = params, vars = vars, time = t,
condition = "Agutlument = 10")
pksim(y)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab