$PROB  THEOPHYLLINE   POPULATION DATA
$INPUT      ID DOSE=AMT TIME CP=DV WT
$DATA       THEOPP

$SUBROUTINES  ADVAN2

$THETA KA=(.1,3,5) (.008,.08,.5) (.004,.04,.9)
$OMEGA BLOCK(3)  KA=6 .005 UNNECESSARILYLONGK=.0002 .3 .006 UNNECESSARILYLONGCL=4

$PK
;THETA(1)=MEAN ABSORPTION RATE CONSTANT (1/HR)
;THETA(2)=MEAN ELIMINATION RATE CONSTANT (1/HR)
;THETA(3)=SLOPE OF CLEARANCE VS WEIGHT RELATIONSHIP (LITERS/HR/KG)
;SCALING PARAMETER=VOLUME/WT SINCE DOSE IS WEIGHT-ADJUSTED
   CALLFL=1
   KA=THETA(KA)+ETA(KA)
   K=THETA(2)+ETA(UNNECESSARILYLONGK)
   CL=THETA(3)*WT+ETA(UNNECESSARILYLONGCL)
   SC=CL/K/WT


$ERROR
   Y=F+EPS(1)

$SIGMA  .4

$EST     MAXEVAL=450  PRINT=5
$COV
$TABLE          ID DOSE WT TIME ETAS(1:LAST) FILE=CONTROL5_implicitabbr.tab
$SCAT           (RES WRES) VS TIME BY ID
