R/model-tQ-init.R

In maomlab/BayesPharma: Tools for Bayesian Analysis of Non-Linear Pharmacology Models

#' Initialize Parameter Values for the tQ Enzyme Kinetic Model
#'
#' @param kcat `numeric` initial value for `kcat` parameter in the tQ model
#' @param kM `numeric` initial value for the `kM` parameter in the tQ model
#' @param ... additional parameter initialization. Each named argument should be
#'   a function that returns a `numeric` or `array` depending on the dimension
#'   of the parameter, see [rstan_default_init()] to use the \pkg{rstan} default
#'   init.
#'
#' @returns input for `[tQ_model](init = ...)` parameter.
#'
#' @seealso [tQ_model], [tQ_formula], and [tQ_prior]
#'
#' @export
tQ_init <- function(
  kcat = \() stats::runif(n = 1, min = 3, max = 5),
  kM = \() stats::runif(n = 1, min = 3, max = 5),
  ...) {

  init <- list(
    b_kcat = kcat,
    b_kM = kM,
    ...)

  class(init) <- c("bpinit", class(init))
  init
}