Nothing
rmSingletons <- function(sppVector, exclude = TRUE){
singletons <- names(which(table(sppVector) == 1))
if(exclude) which(!sppVector %in% singletons) else which(sppVector %in% singletons)
}
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.