Generate data frame of generic footnote equations to append to parameter tables.
param_notes(.ci = 95, .zscore = NULL)
model_dir <- system.file("model/nonmem", package = "pmparams")
paramKey <- file.path(model_dir, "pk-parameter-key-new.yaml")
# Read in parameter estimates (or provide `bbr` model)
param_est <- utils::read.csv(file.path(model_dir, "param_est_102.csv"))
# Make and format parameter table
param_df <- define_param_table(
.estimates = param_est,
.key = paramKey,
.ci = 95
) %>% format_param_table()
# Make random effects table and add relevant footnotes:
footnotes <- param_notes()
table <- make_pmtable(.df = param_df, .pmtype = "random") %>%
pmtables::st_notes(footnotes$ci, footnotes$cv) %>%
pmtables::st_notes_str() %>%
pmtables::st_notes(footnotes$cvOmegaEq, footnotes$cvSigmaEq)