`r paste0(ctl_path(params$m), ': GOF')`

In NMproject: Script Based 'NONMEM' Model Development

## LOAD PACKAGES HERE
library(NMproject)
library(dplyr)
library(ggplot2)

## DO NOT MODIFY THE REST OF THIS BLOCK (unless you know what you're doing)
library(knitr)
library(rprojroot)
opts_knit$set(root.dir = find_root(
  has_file(".Rprofile") | 
    is_rstudio_project | 
    is_r_package | 
    is_git_root
))
opts_chunk$set(echo = FALSE)
opts_chunk$set(message = FALSE)
opts_chunk$set(fig.width=10, fig.height=10) 
if(!is.null(knitr::opts_knit$get('rmarkdown.pandoc.to'))){
  .m <- params$m  
}

parameters

Any knitr parameters will be displayed here:

print(params)

model object

wait_finish(.m)

convergence

plot_iter(.m)

outputs

rr(.m)

Diagnostics

covariance_plot(.m)

## simple ggplot example

library(ggplot2)

.m %>%
  output_table_first() %>%
  ggplot(aes(x = PRED, y = DV)) +
  theme_bw() +
  geom_point() +
  geom_abline()

.m %>%
  output_table_first() %>%
  ggplot(aes(x = TIME, y = DV)) +
  theme_bw() +
  geom_point() +
  geom_line(aes(y = IPRED, group = ID), colour = "red")

## simple xpose example

library(xpose)

xpdb <- xpose_data(runno = run_id(.m), dir = run_in(.m))

dv_vs_pred(xpdb)
dv_vs_ipred(xpdb)
ind_plots(xpdb, page = 1)

Appendix

control file

.m %>% text() %>% dplyr::first()

control file diff

.m %>% nm_diff()

NMproject documentation built on Sept. 30, 2022, 1:06 a.m.