#' @export
bootSSD <- function(Size, Sex, reps = 1000, log = F, ...) { ## Bootstrap for SSD
SSDBooted <- boot(Sex, SSDBoot, reps, Size = Size, log = log, strata = Sex, ...)
SSDBooted
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.