$SIZES PD=-101 
$PROB final dQTcF LME model
$INPUT FLGC OID ID STU STIME CDATE=DROP CTIME=DROP OTIME TIME DAYN PART CONC LDV DVDN ANANUM SPEC 
AMT DOSE DOSN OCC EVIDX EVIDM3 MDVX MDVM3 CMT RATE CHRT PLAC FREQ FORM SEX AGE WT HT 
CRT CRCL LBM BMI BSA FLBLQ HR1 HR2 HR3 QT1 QT2 QT3 QTcF1 QTcF2 QTcF3 RR1 RR2 RR3 
PR1 PR2 PR3 QRS1 QRS2 QRS3 TQTcF1 TQTcF2 TQTcF3 MHR MQT MQTcF MRR MPR MQRS EVIDPD MDVPD FLGBL 
BLQTcFD BLPRD BLQRSD DV PRD QRSD QTcFDpl PRDpl QRSDpl QTcFDD PRDD QRSDD EVID MDV

$DATA QT_example_data.csv
IGNORE=@
IGNORE = (STIME.EQ.3,STIME.EQ.147,STIME.EQ.9999,DAYN.EQ.8,FLGC.EQ.5) 

$PRED

IF(STU.EQ.8.AND.PART.EQ.1)THEN
STRT=0
STAD=STIME

ELSEIF(STU.EQ.8.AND.PART.EQ.2)THEN
STRT=1
STAD=STIME-24*(DAYN-1)

ELSEIF(STU.EQ.48.AND.PART.EQ.1)THEN
STRT=2
STAD=STIME

ELSEIF(STU.EQ.48.AND.PART.EQ.2)THEN
STRT=3
STAD=STIME-24*(DAYN-1)

ENDIF
QTcF0=BLQTcFD

;COVARIATE MODEL
BASETRT=0
IF(PLAC.EQ.0) BASETRT=THETA(5) 



BASESTU2=0
IF(STU.EQ.48) BASESTU2=THETA(6)

BASECOV=(BASETRT)

BASETIME=0
IF(STAD.EQ.0.5)       BASETIME=THETA(7)
IF(STAD.EQ.1)         BASETIME=THETA(8)
IF(STAD.EQ.1.5)       BASETIME=THETA(9)
IF(STAD.EQ.2)         BASETIME=THETA(10)
IF(STAD.EQ.4)         BASETIME=THETA(11)
IF(STAD.EQ.8)         BASETIME=THETA(12)
IF(STAD.EQ.12)        BASETIME=THETA(13)
IF(STAD.EQ.24)        BASETIME=THETA(14)
IF(STAD.EQ.48)        BASETIME=THETA(15)

TVINT=THETA(1)               ;Intercept of CONC vs.DQcF relationship
INT=TVINT+ETA(1)
TVSL=THETA(2)
SL = (TVSL+ETA(2))/1000      ;Slope of CONC vs.DQcF relationship


BASE = INT+BASETIME +THETA(4)*(QTcF0-400)+BASECOV         ;BASE


IPRED = BASE+SL*CONC


W = THETA(3)+BASESTU2           ; additive residual model

Y = IPRED + W*EPS(1)
IRES = DV-IPRED
IWRES = IRES/W


$THETA
(-2.27)                  ;INT             
(-0.935)                ;SL                
(0, 5.95)               ;ADD ERROR         
(-0.245)                ;baseline effect   
(1.35)                  ;TRT effect        
(-0.65)                 ;STU effect on RUV 

(-0.35)                ;TIME effect (O.5 h)
(0.95)                 ;TIME effect (1 h)
(0.55)                 ;TIME effect (1.5 h)
(-0.18)                ;TIME effect (2 h)
(-4.22)                ;TIME effect (4 h)
(-1.83)                ;TIME effect (8 h)
(-2.95)                ;TIME effect (12 h)
(1.06)                 ;TIME effect (24 h)
(0.66)                 ;TIME effect (48 h)

$OMEGA  BLOCK(2)
(75)                     ;IIV BASE   
(1) (1.5)                ;IIV SL 

$SIGMA 1 FIX

$EST MAXEVAL=99999 METHOD=1 INTER NOABORT
$COV PRINT=E

$TABLE ID TIME STAD CONC EVID IPRED IWRES CWRES NOPRINT ONEHEADER FILE=SDTAB108_o

$TABLE ID INT BASE SL ETA1 ETA2 NOPRINT ONEHEADER FILE=PATAB108_o