Nothing
check.bootstrap.options <- function(bootstrap, resample, n, sample.table){
if(bootstrap & resample == "samples"){
no.samples <- table(sample.table$Region.Label)
insufficient.samples <- no.samples[no.samples < 20]
for(i in seq(along = insufficient.samples)){
warning(paste("Only ",insufficient.samples[i]," transect(s) in strata ",names(insufficient.samples)[i],". The estimates of variance are likely to be biased.\t", sep = ""), call. = FALSE, immediate. = TRUE)
}
}
if(!bootstrap){
warning("Currently the only method of variance estimation in mads is via the bootstrap.", call. = FALSE, immediate. = TRUE)
}
}
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.