#' 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.