FR

PK 3 compartiments, bolus intra-veineux

$PROB PK 3 cpts voie intraveineuse
$INPUT ID TIME DV AMT AGE WT CREA
$DATA ..\data.csv IGNORE=#
$SUBROUTINE ADVAN11 TRANS4
$PK

CL = THETA(1) * EXP(ETA(1))
V1 = THETA(2) * EXP(ETA(2))
Q2 = THETA(3) * EXP(ETA(3))
V2 = THETA(4)
Q3 = THETA(5)
V3 = THETA(6)

S1 = V1
K = CL/V1

$ERROR
DEL=0
IF (F.EQ.0) DEL=1
W=F+DEL
Y=F+W*EPS(1)
IPRED=F
IRES=DV-IPRED
IWRES=IRES/W

$THETA
(0, 10) ; CL
(0, 30) ; V1
(0, 0.5) ; Q2
(0, 30) ; V2
(0, 30) ; Q3
(0, 30) ; V3

$OMEGA 0.5; OM_CL
$OMEGA 0.1; OM_V1
$OMEGA 0.1; OM_Q2

$SIGMA 0.5; SIM_P
$EST METHOD=1 INT MAXEVAL=8000 PRINT=5 NOABORT POSTHOC NSIG=3
$COVARIANCE
$TABLE ID TIME DV PRED WRES RES IPRED IRES IWRES FILE=base.fit
$TABLE ID AMT CL V1 Q3 V3 Q4 V4 AGE WT CREA ETA1 ETA2 ETA3
FIRSTONLY NOPRINT NOAPPEND
FILE=parameter.fit

img