data-raw/use_data.R

In asancpt/caffsim: Simulation of Plasma Caffeine Concentrations by Using Population Pharmacokinetic Model

# use_data

CaffSigma <- matrix(c(0.1599, 6.095e-2, 9.650e-2, 
                      6.095e-2, 4.746e-2, 1.359e-2, 
                      9.650e-2, 1.359e-2, 1.004), nrow = 3)
CaffMu <- c(0,0,0)

library(tidyverse)
UnitTable <- tribble(~Parameters, ~Parameter,
                     "Tmax","T~max~ (hr)",
                     "Cmax","C~max~ (mg/L)",
                     "AUC","AUC (mg*hr/L)",
                     "Half_life","Half-life (hr)",
                     "CL","CL (L/hr)",
                     "V","V (L)",
                     "Ka","K~a~ (1/hr)",
                     "Ke","K~e~ (1/hr)",
                     "AI","R~ac~ (1/hr)",
                     "Aavss","A~av,ss~ (mg)",
                     "Cavss","C~av,ss~ (mg/L)",
                     "Cmaxss","C~max,ss~ (mg/L)",
                     "Cminss","C~min,ss~ (mg/L)",
                     "TmaxS","T~max,single~ (hr)",
                     "CmaxS","C~max,single~ (mg/L)",
                     "AUCS","AUC~single~ (mg*hr/L)") %>% 
  as.data.frame(stringsAsFactors = FALSE)

UnitTable

# Seed <- sample.int(10000, size = 1)

# round_df <- function(x, digits) {
#   # round all numeric variables
#   # x: data frame 
#   # digits: number of digits to round
#   numeric_columns <- sapply(x, mode) == 'numeric'
#   x[numeric_columns] <-  round(x[numeric_columns], digits)
#   x
# }

# save ----

devtools::use_data(CaffSigma, 
                   CaffMu,
                   #Seed,
                   #round_df,
                   UnitTable,
                   internal = TRUE, overwrite = TRUE)