#' Internal function to create a mapping from a \code{tree_and_model}
#' to a description
#' @return a \link[tibble]{tibble} with columns \code{tree_and_model}
#' and \code{description}
#' @author Richèl J.C. Bilderbeek, Giovanni Laudanno
#' @examples
#' t <- get_tree_and_model_descriptions()
#' check_tree_and_models(t$tree_and_model)
#' @export
get_tree_and_model_descriptions <- function() {# nolint long function name is fine for an internal function
t <- tibble::tribble(
~tree_and_model, ~description,
"true_generative", "Generative, true",
"twin_generative", "Generative, twin",
"true_candidate", "Best, true",
"twin_candidate", "Best, twin"
)
t$tree_and_model <- as.factor(t$tree_and_model)
t
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.