if (FALSE) {
## requires NONMEM to be installed
m1s <- m1 %>%
child(run_id = "m1s") %>%
update_parameters(m1) %>%
convert_to_simulation(subpr = 50) %>%
run_nm()
m1s %>% nm_render("Scripts/basic_vpc.Rmd")
m1s %>% nm_render("Scripts/basic_ppc.Rmd")
}
Run the code above in your browser using DataLab