In AstraZeneca/blueprint: create models easily

library(blueprint)
library(tidyverse)

blueprint <- Blueprint$new("mrgsolve")

templates <- load_templates("mrgsolve")

one_cmpt_iv <- blueprint %>% 
  params(CL = 5,V = param(34, "TVV", .lower_bound = 0.1), KA = 1) 

one_cmpt_iv <- one_cmpt_iv %>%
  constants(STD_WT = 70) %>%
  residual_error(prop = sigma_param(0.04, .comment = "Proportional Error")) %>%
  with_data(head(Theoph)) %>%
  from_path("path/to/my_data.csv") %>%
  hierarchy(KA = 0.04, b1 = block(0.04, 0.61, 0.09, .params = c("CL", "V"), correlation = TRUE)) 

one_cmpt_iv$get_all_elements()

one_cmpt_iv %>% use_template(templates$one_cmt_iv) %>% render() %>% cat()

AstraZeneca/blueprint documentation built on May 17, 2019, 11:32 a.m.