#' @export
Prepare.strata.file <- function (data) {
#data in frame like Scallopstrata
if(any(names(data) %in% 'strat')) data$Strata = data$strat
# data = data[order(data$Strata),]
list(Strata = data$Strata, NH = data$NH)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.