R/lum_create_clock_model_arg.R

In richelbilderbeek/lumier: Show How To Use Beautier

#' Create the \code{clock_model} argument
#' @inheritParams default_params_doc
#' @author Richèl J.C. Bilderbeek
#' @export
lum_create_clock_model_arg <- function(clock_model) {
  arg <- "clock_model ="
  if (clock_model == "Strict Clock") {
    return(paste(arg, "create_strict_clock_model()"))
  }
  if (clock_model == "Relaxed Clock Log Normal") {
    return(paste(arg, "create_rln_clock_model()"))
  }
  stop("Unknown clock model")
}