data-raw/parameters_inital-vals.R

In kdorheim/MEMC: Microbial Explicit Model Comparison: a R package supporting model exploration

# Generate the internal package data, the parameters and the default initial states.

DIR <- here::here("data-raw")

# The default parameter values are based off of MEND 2013.
# Wang, G., Post, W.M. and Mayes, M.A. (2013), Development of microbial‐enzyme‐mediated decomposition
# model parameters through steady‐state and dynamic analyses. Ecological Applications,
# 23: 255-272. doi:10.1890/12-0681.1

default_params <- read.csv(file.path(DIR, "default_params.csv"), stringsAsFactors = FALSE)
usethis::use_data(default_params, overwrite = TRUE, internal = FALSE)


# Initial state values also come from  MEND 2013.
# Wang, G., Post, W.M. and Mayes, M.A. (2013), Development of microbial‐enzyme‐mediated decomposition
# model parameters through steady‐state and dynamic analyses. Ecological Applications,
# 23: 255-272. doi:10.1890/12-0681.1
B = 2
D = 1
P = 10
Q = 0.1
M = 5
EP = 0.00001
EM = 0.00001
IC = 0
Tot = 18.10002

default_inital <- c(P = P,  M = M,  Q = Q,  B = B,  D = D,  EP = EP,  EM = EM,  IC = IC,  Tot = Tot)
usethis::use_data(default_inital, overwrite = TRUE, internal = FALSE)