Hi Samer,
Thank you for the response…
Find the graphical model attached to model parent and metabolite simultaneously. the parent is dosed orally and plasma concentration of parent and metabolite measured over time. Parent alone modeling and metabolite alone modeling indicate that they follow 2 compartment kinetics. So, a peripheral compartment was included for both parent and metabolite in joint model.
The information about the parent is metabolized (95 %) and minor quantities excreted in urine.
Now how do i differentiate CLPar2Met and CL in the code below (indicated in bold) ? Can i exclude CL as it is negligible through other routes than metabolism?
Can i use a conversion factor such as fm (0.95), fraction metabolized to differentiate the clearances ?
Please suggest the changes in the code and provide if any example projects of Oral parent and metabolite modeled simultaneously.
test(){
deriv(A1 = (Aa * Ka)- (Cl2 * (C - C2))- (CLPar2Met * C)- (CL * C))
deriv(Aa = - (Aa * Ka))
deriv(A2 = (Cl2 * (C - C2)))
deriv(AMet = (CLPar2Met * C)- (CLMet * C3)- (CL3 * (C3 - C4)))
urinecpt(A0Met = (CLMet * C3))
urinecpt(A0Par = (CL * C))
deriv(A4 = (CL3 * (C3 - C4)))
C = A1 / V
dosepoint(Aa, idosevar = AaDose, infdosevar = AaInfDose, infratevar = AaInfRate)
C2 = A2 / V2
error(CEpspar = 0.310454)
observe(CObsPar = C * (1 + CEpspar))
C3 = AMet / VMet
error(CEpsmet = 0.292077)
observe(CObsMet = C3 * (1 + CEpsmet))
C4 = A4 / V4
stparm(V = tvV * exp(nV))
stparm(Ka = tvKa * exp(nKa))
stparm(V2 = tvV2 * exp(nV2))
stparm(Cl2 = tvCl2 * exp(nCl2))
stparm(VMet = tvVMet * exp(nVMet))
stparm(CLPar2Met = tvCLPar2Met * exp(nCLPar2Met))
stparm(CLMet = tvCLMet * exp(nCLMet))
stparm(CL = tvCL * exp(nCL))
stparm(V4 = tvV4 * exp(nV4))
stparm(CL3 = tvCL3 * exp(nCL3))
fixef(tvV = c(, 9176.52, ))
fixef(tvKa = c(, 1.34823, ))
fixef(tvV2 = c(, 8088.82, ))
fixef(tvCl2 = c(, 391.457, ))
fixef(tvVMet = c(, 132.041, ))
fixef(tvCLPar2Met = c(, 468.442, ))
fixef(tvCLMet = c(, 145.871, ))
fixef(tvCL = c(, 810.118, ))
fixef(tvV4 = c(, 3278.18, ))
fixef(tvCL3 = c(, 122.53, ))
ranef(diag(nV, nKa, nV2, nCl2, nVMet, nCLMet, nCLPar2Met, nCL, nCL3, nV4) = c(0.66270388, 1.1643188, 0.21073429, 1.6304378E-06, 0.091136102, 0.027918936, 0.082136817, 0.63107773, 1.3660761E-06, 6.6362677E-05))
Thanks in advance,
Rc
Par_Met_joint model_Graphic +Text code.docx (24 KB)