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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.