#' @export
bootSShDLM <- function(Coords, Sex, reps = 1000, ...) { ## Does bootstraps for SShD
SShDBooted <- boot(Sex, SShDBoot, reps, Coords = Coords, strata = Sex, ...)
SShDBooted
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.