#' Incidence for model.
#'
#' @title Incidence for model
#'
#' @param ... vector of named arguments
#'
#' @export
incidence <- function(...) {
default <- c(
63519,
56004,
56977,
57945,
56648,
69780,
69780)
replace <- c(...)
if (length(replace) == length(default)) {
default <- replace
}
default
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.