Test Rmd model spec

```{R setup, echo=FALSE} knitr::opts_chunk$set(eval=FALSE)

# Parameters
```{param}
TVKA = 0.5, TVCL = 1, TVV = 24, WT=70

OMEGA

@labels ECL EV EKA
0.3 0.1 0.5

SIGMA

0

Main block

double CL = exp(log(TVCL) + 0.75*log(WT/70) + ECL);
double V  = exp(log(TVV)  +      log(WT/70) + EV );
double KA = exp(log(TVKA)                   + EKA);

Model

cmt = "GUT CENT", depot = TRUE

Table

capture IPRED = CENT/V;
capture DV = IPRED*exp(EPS(1));

Outputs

CL V ECL


Try the mrgsolve package in your browser

Any scripts or data that you put into this service are public.

mrgsolve documentation built on Aug. 16, 2023, 5:07 p.m.