In wwiecek/httkgui: High-Throughput Toxicokinetics: Analtica Laser prototype

knitr::opts_chunk$set(echo = F)

PBTK model for r params$name

values <- c("metabolic route" = params$metabolic_route,
           "model used" = "PBTK model",
           "exposure" = params$dose,
           "predicted values" = "Concentration over time, AUC, Cmax, half-life",
           "external validation data" = "None [work in progress]") 

data.frame("characteristic" = names(values), "value" = values) %>% knitr::kable()

Compound properties

params$compound_chars %>% knitr::kable()

PBTK model parameters used

params$pbtk_parameters %>% filter(parameter %in% c("Fgutabs", "Funbound.plasma", "kgutabs", "Rblood2plasma")) %>% knitr::kable()

Inter-individual variability

r nrow(params$population_variability) subpopulations were simulated to create overall population. Their characteristics are:

params$population_variability

Results

AUC, half-life and Cmax values

knitr::kable(params$results)

Results plot

params$plot

wwiecek/httkgui documentation built on May 15, 2019, 6:31 p.m.