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

  CL   = THETA(1) * EXP(ETA(1))
  V2   = THETA(2) * EXP(ETA(2))
  KA   = THETA(3) * EXP(ETA(3))
  Q3   = THETA(4) 
  V3   = THETA(5) 
  Q4   = THETA(6) 
  V4   = THETA(7) 
  
  S2   = V2
  K    = CL/V2

$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)          ; V2
   (0, 0.5)         ; KA
   (0, 30)          ; Q3 
   (0, 30)          ; V3
   (0, 30)          ; Q4 
   (0, 500)         ; V4 

$OMEGA 0.5; OM_CL 
$OMEGA 0.1; OM_V2
$OMEGA 0.1; OM_KA 

$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 KA CL V2 Q3 V3 Q4 V4 AGE WT CREA ETA1 ETA2 ETA3
  FIRSTONLY NOPRINT NOAPPEND 
  FILE=parameter.fit