library(mrgsolve)
mod <- mread("irm1", modlib())## Compiling irm1 ...
## done.
mrgsolve:::details(mod) %>%
dplyr::filter(block =="PARAM") %>%
dplyr::select(descr,name) %>%
dplyr::mutate(value = as.numeric(param(mod)))
## descr name value
## 1 Clearance CL 1
## 2 Central volume VC 20
## 3 Inter-compartmental clearance Q 2
## 4 Peripheral volume of distribution VP 10
## 5 Absorption rate constant 1 KA1 1
## 6 Absorption rate constant 2 KA2 1
## 7 Response in rate constant KIN 10
## 8 Response out rate constant KOUT 2
## 9 Concentration for 50% of max inhibition IC50 2
## 10 Maximum inhibition IMAX 1
## 11 Emax model sigmoidicity n 1
## 12 Maximum reaction velocity VMAX 0
## 13 Michaelis constant KM 2
