Nothing
# Not exported
# Creates an object of class 'BSBinit'
new_BSBinit <- function(l = list(),
individuals = integer(),
intervals = integer(),
has_predictors = logical()) {
stopifnot(is.list(l))
stopifnot(is.integer(individuals))
stopifnot(is.integer(intervals))
stopifnot(is.logical(has_predictors))
structure(
l,
class = "BSBinit",
individuals = individuals,
intervals = intervals,
has_predictors = has_predictors
)
}
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.