I have the following code for the zero order followed by 1st order delayed
absorption of a drug with complex absorption. This code is for a two way
crossover study. The simulation runs okay except that the occ=2 data results
show that OCC2 is not getting sufficient drug into compartment 1.
The code is below. Has anyone experienced this during a simulation for a
drug with complex absorption and if so how was it resolved?
$INPUT ID TIME DV CMT AMT OCC SEQ TRT EVID MDV RATE
$SUB ADVAN 5 TRANS1
$MODEL
COMP=(1);DOSE1
COMP=(2);DOSE2
COMP=(CENTRAL,DEFOBS);CENTRAL,DEFDOSE)
$PK
;IOV INTRAOCCASSION
;IIV INTERSUBJECT
;TRT=TREATMENT (TEST OR REFERENCE)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;2)PARAMETER KAT1 KAR1 FAST ZERO ORDER MG/H
; KAT2 KAR2 SLOW FIRST ORDER MG/H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
OCC1=0
OCC2=0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;3)SEQUENCE 1 TREATMENTS 1-2
;SEQ1 3,7,8,11,13,14,18,19,20,22,21,23
;SEQ2 1,2,4,5,6,9,10,12,15,16,17,24
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; OCC1 OCC2
; SEQ1 1 2
; SEQ2 2 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
IF (TRT.EQ.1.AND.SEQ.EQ.1)OCC1=1
IF (TRT.EQ.2.AND.SEQ.EQ.1)OCC2=1
IF (TRT.EQ.2.AND.SEQ.EQ.2)OCC1=1
IF (TRT.EQ.1.AND.SEQ.EQ.2)OCC2=1
IIV1=ETA(1)
IIV2=ETA(2)
IOV=ETA(3)*OCC1 +ETA(4)*OCC2
KAT1=THETA(1)*EXP(IIV1+IOV)
KAR1=THETA(2)*EXP(IIV1+IOV)
KAT2=THETA(3)*EXP(IIV2+IOV)
KAR2=THETA(4)*EXP(IIV2+IOV)
K13=(KAT1*OCC1 + KAR1*OCC2)
K23=(KAT2*OCC1+KAR2*OCC2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;4)PARAMETER F ASSUMING THAT F DOES NOT CHANGE FOR PERIODS
;LIKE KA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NO IOV ON LOGITT
LOGITT=THETA(5)
LOGITR=THETA(6)
IIV5=ETA(5)
TVF1T=1/(1+EXP(-LOGITT))
TVF1R=1/(1+EXP(-LOGITR))
F1=TVF1T *EXP(IIV5)*OCC1+ TVF1R *EXP(IIV5)*OCC2
F2=1-F1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;7)PARAMETER DURATION FOR COMP1 F1K0*AMT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TVDT=THETA(7)
TVDR=THETA(8)
IIV6=ETA(6)
D1=TVDT*EXP(IIV6+IOV)*OCC1+TVDR*EXP(IIV6+IOV)*OCC2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;8)PARAMETER LAG ON COMP2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TVLAGT=THETA(9)
TVLAGR=THETA(10)
IIV7=ETA(7)
TLAG2=TVLAGT*EXP(IIV7+IOV)*OCC1+TVLAGR*EXP(IIV7+IOV)*OCC2
ALAG2=(D1+TLAG2) ;TOTAL LAG TIME ON COMP 2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;9)PARAMETER VOLUME
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TVVOL=THETA(11)
IIV8=ETA(8)
V3=TVVOL*EXP(IIV8+IOV)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;10)PARAMETER CLEARANCE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TVCL=THETA(12)
IIV9=ETA(9)
CL=TVCL*EXP(IIV9+IOV)
KE=CL/V3
S3=V3/100000
K30=CL/V3 ;ELIMINATION FROM CENTRAL
;;;;;;;;;;;;;;;;;;;;PARAMETERS FROM PUBLICATION;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;KA;;;;;;;;;;;;;;;;;;;;;;;;;;
$THETA 1.11 FIX ;1)K01R FAST
$THETA 1.11 FIX ;2)K01T FAST
$THETA 0.40 FIX ;3)KAT2 SLOW
$THETA 0.40 FIX ;4)KAR2 SLOW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;F1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$THETA -0.8 FIX ;5)LOGIT F1T
$THETA -0.2 FIX ;5)LOGIT F1R
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DURATION;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$THETA 0.9 FIX ;6)D1
$THETA 0.05 FIX ;7)D1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;LAG COMP 2;;;;;;;;;;;;;;;;;;;;;;;;;;
$THETA 2.89 FIX ;8)LAG2 HR
$THETA 1.00 FIX ;8)LAG2 HR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;VOL;;L;;;;;;;;;;;;;;;;;;;;;;;;;;
$THETA 1827 FIX ;9)V3 L
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CL;;;L/HR;;;;;;;;;;;;;;;;;;;;;;;;
$THETA 564 FIX ;10)CL L/HR
;;;;;;;;;;;;;;;;;;;;;IIV AND IOV;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$OMEGA BLOCK(2)
0.01 FIX ;1)IIV1 K01 SEQ1 3% CV
0.01 0.01 ;2)IIV2 K01 SEQ2
$OMEGA 0.01 FIX ;3)IOV OCC1
$OMEGA 0.01 FIX ;4)IOV OCC2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;PARAMETERS;;;;;;;;;;;;;;;;;;;;;;;
$OMEGA 0.01 FIX ;5)F1
$OMEGA 0.01 FIX ;6) DURATION COMP1
$OMEGA 0.01 FIX ;7) LAG 21
$OMEGA 0.01 FIX ;8) VOLUME
$OMEGA 0.010 FIX ;9) CLEAR
$ERROR
CP=A(3)/S3
Y=CP +CP*ERR(1) + ERR(2)
COUNT=IREP
IF (ICALL.EQ.4) THEN
DOWHILE (Y.LT.0.25)
CALL SIMEPS (EPS)
Y=CP+CP*ERR(1) + ERR(2)
ENDDO
ENDIF
$SIGMA 0.01 FIX ;1)RESIDUAL ERROR 1
$SIGMA 0.01 FIX ;2)RESIDUAL FOR ERRR 2
$SIM (123956 NEW) ONLYSIM SUBPROBLEMS=1
$TABLE ID AMT TIME DV CMT Y TRT OCC F1 F2 COUNT SEQ CL V3 D1 TLAG2 ALAG2
LOGITT
ONEHEADER NOPRINT FILE=pilot2waysim.fit
