#' Check a MBD parameters set.
#'
#' Will \link{stop} if invalid, will do nothing otherwise
#' @inheritParams default_params_doc
#' @return nothing.
#' @author Richel J.C. Bilderbeek
#' @export
check_mbd_params <- function(
mbd_params
) {
if (!is.list(mbd_params)) {
stop(
"'", deparse(substitute(mbd_params)), "' must be a list"
)
}
argument_names <- c(
"lambda",
"mu",
"nu",
"q"
)
for (arg_name in argument_names) {
if (!arg_name %in% names(mbd_params)) {
stop(
"'", arg_name, "' must be an element of an 'mbd_params'.\n",
"Tip: use 'create_mbd_params'"
)
}
}
if (mbd_params$lambda < 0.0) {
stop("'lambda' must be positive")
}
if (mbd_params$mu < 0.0) {
stop("'mu' must be positive")
}
if (mbd_params$nu < 0.0) {
stop("'nu' must be positive")
}
if (mbd_params$q < 0.0) {
stop("'q' must be positive")
}
if (mbd_params$q > 1.0) {
stop("'q' must be a value from zero to and including one")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.