[LONGITUDINAL] input = {V, k} PK: depot(target=Ac) EQUATION: ddt_Ac = -k*Ac Cc=Ac/V
setwd(dirname(parent.frame(2)$ofile)) library(ggplot2) #------------------------------------- adm <- list(time=3, amount=40) Cc <- list(name='Cc',time=seq(from=0, to=20, by=0.1)) p <- list(name=c('V','k'), value=c(10,0.4)) res <- simulx(model='pk1_model.txt', parameter=p, output=Cc, treatment=adm) plot1=ggplot(data=res$Cc, aes(x=time, y=Cc, group=id)) + geom_line(size=1) print(plot1)
One compartment model for intravenous administration
The amount \(A_c\) in the central compartment is solution of the ODE \(\ \ \dot{A_c}(t) = - k \, A_c(t)\)
The concentration \(C_c\) in the central compartment is defined by \(\ \ C_c(t) = A_c(t)/V\)
- Define the dosage regimen in the tab iv:
time of first dose,
number of doses,
interdose interval,
infusion time,
amount.
- select the PK parameters in the tab parameters:
- \(k\), the elimination rate constant,
- \(V\), the volume of the central compartment.
- define the outputs in the tab outputs :
- select the output to display: the amount \(A_c\) or the concentration \(C_c\),
- select the time range where the prediction is computed,
- select the number of time points of the grid where the prediction is computed.
- set some settings in the tab settings: line width, linear or semi-log scale.