# Modify the custom structural parameter 'Cl':
OneCpt_CustomCode <-
paste0(
"\nderiv(A1 = - Cl * C)",
"\ndosepoint(A1)",
"\ndosepoint2(A1, tlag = 12)",
"\nC = A1 / V",
"\nerror(CEps = 0.01)",
"\nobserve(CObs = C + CEps * sqrt(1 + C^2 * (CMultStdev/sigma())^2), bql = 0.01)",
"\nstparm(V = tvV * exp(nV))",
"\nstparm(Cl = tvCl * exp(nCl))",
"\nstparm(CMultStdev = tvCMultStdev)",
"\nfixef(tvV = c(, 5, ))",
"\nfixef(tvCl = c(, 1, ))",
"\nfixef(tvCMultStdev = c(, 0.1, ))",
"\nranef(diag(nV) = c(1))",
"\nranef(diag(nCl) = c(1))\n"
)
OneCpt_CustomCode <-
modify_StParmCustom(
create_CustomSpace(OneCpt_CustomCode),
StParmName = "Cl",
Type = "Normal")
Run the code above in your browser using DataLab