## requires NONMEM to be installed
if (FALSE) {
## exploratory data plot
read_derived_data("DerivedData/data.csv") %>%
ggplot(aes(x = TIME, y = DV)) +
theme_bw() +
geom_point() +
geom_line(aes(group = ID)) +
facet_wrap(~STUDYTXT)
m1 %>%
output_table_first() %>%
ggplot(aes(x = TIME, y = DV)) +
theme_bw() +
geom_point() +
geom_line(aes(group = ID)) +
facet_wrap(~STUDYTXT) +
## additional layer for overlaying IPRED curves
geom_line(aes(y = IPRED, group = ID))
}
Run the code above in your browser using DataLab