Nothing
`ensemble.batch.presence` <- function(
p=NULL, species.name="Species001"
)
{
p <- as.matrix(p)
p <- cbind(rep(species.name, nrow(p)), p)
p <- data.frame(p)
names(p) <- c("species", "x", "y")
return(p)
}
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.