# NOT RUN {
outputs <- list(
est = list(
th = list(CL = 0.482334, VC = 0.0592686),
om = list(nCL = 0.315414, nVC = 0.536025),
sg = list(ERRP = 0.0508497)),
se = list(
th = list(CL = 0.0138646, VC = 0.00555121),
om = list(nCL = 0.0188891, nVC = 0.0900352),
sg = list(ERRP = 0.00182851)),
fixed = list(
th = list(CL = FALSE, VC = FALSE),
om = list(nCL = FALSE, nVC = FALSE),
sg = list(ERRP = FALSE)),
shrinkage = list(nCL = 9.54556, nVC = 47.8771))
meta <- list(
parameters = list(
list(name="CL", label="Clearance", units="L/h", type="Structural"),
list(name="VC", label="Volume", units="L", type="Structural", trans="exp"),
list(name="nCL", label="On Clearance", type="IIV", trans="SD (CV%)"),
list(name="nVC", label="On Volume", type="IIV"),
list(name="ERRP", label="Proportional Error", units="%", type="RUV", trans="%")))
pmxparframe(outputs, meta)
# }
Run the code above in your browser using DataLab