Nothing
#' sbm (size biased model) class constructor
#'
#' @param x a list with required elements as indicated
#' @noRd
#'
new_sbm <- function(x = list()) {
required <- c("data", "estimate", "formula", "model", "pdf")
stopifnot(is.list(x))
stopifnot(identical(required, sort(names(x))))
structure(x, class = "sbm")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.