Thanks. And to convert it to a proportion? what is the relationsip? You previously mentioned that
F=0.5 is the same as XF=0. But say XF =2, what would that be in terms of a prorpotion?
Also I verified that the input into the central compartment via zero order is a better model than the lymph input as you had noted it would be, however it wont run as a QRPEM method even with 5 iterations, 3000 samples and MAP Assist selectted.
I wonder if you wouldn't mind confirming this code is correct. This is definitely better fit than absorption with a single ka or 2 ka values (AIC and fit plots are superior with the model using FO, but as you've stated before a bad model can have good fit. I'd just like to confirm my model is not the reason the QRPEM is not working.
Thanks
Elliot
:
test(){
deriv(A1 = - (Cl * C) + (Aa * Ka)- (Cl2 * (C - C2))-(kon*C*Rf)+(koff*DR))
deriv(DR=(C*kon*Rf)-(koff+kint)*DR)
deriv(Aa = - (Aa * Ka))
deriv(A2 = (Cl2 * (C - C2)))
Rf=Rmax-DR
urinecpt(A0 = (Cl * C))
C = A1 / V
dosepoint(A1, tlag = (Tlag2), bioavail = 1-((exp(XF))/(1+exp(XF))), duration = (dur), idosevar = A1Dose, infdosevar = A1InfDose, infratevar = A1InfRate)
dosepoint(Aa, tlag = (Tlag), bioavail = exp(XF)/(1+exp(XF)), idosevar = AaDose, infdosevar = AaInfDose, infratevar = AaInfRate)
C2 = A2 / V2
error(CEps = 0.15157)
observe(CObs = C * (1 + CEps))
stparm(V = tvV * exp(nV))
stparm(Cl = tvCl * exp(nCl))
stparm(Ka = tvKa * exp(nKa))
stparm(V2 = tvV2 * exp(nV2))
stparm(Cl2 = tvCl2 * exp(nCl2))
stparm(XF = tvXF + nXF)
stparm(Tlag = tvTlag * exp(nTlag))
stparm(dur = tvdur * exp(ndur))
stparm(Tlag2 = tvTlag2 * exp(nTlag2))
stparm(kon = tvkon * exp(nkon))
stparm(koff = tvkoff * exp(nkoff))
stparm(kint = tvkint * exp(nkint))
stparm(Rmax = tvRmax * exp(nRmax))
fixef(tvV = c(, 5716.97, ))
fixef(tvCl = c(, 4005.89, ))
fixef(tvKa = c(, 0.0145181, ))
fixef(tvV2 = c(, 60784.1, ))
fixef(tvCl2 = c(, 24298.5, ))
fixef(tvXF = c(, 2.67071, ))
fixef(tvTlag = c(, 2.67563, ))
fixef(tvdur = c(, 17.436, ))
fixef(tvTlag2 = c(, 0.237751, ))
fixef(tvkon = c(0, 2.00808, ))
fixef(tvkoff = c(, 0.100393, ))
fixef(tvkint = c(, 0.699986, ))
fixef(tvRmax = c(, 5.01539, ))
ranef(diag(nV, nCl, nKa, nV2, nCl2, nXF, nTlag, ndur, nTlag2, nkon, nkoff, nkint, nRmax) = c(1.7356216, 0.23072074, 0.1149578, 0.70325565, 0.47666378, 0.0039289403, 3.8734189, 8.3010688E-05, 5.0150691, 1.0005434, 1.0005223, 1.0003276, 0.99989155))
}