R/rmSingletons.R

rmSingletons <- function(sppVector, exclude = TRUE){
	singletons <- names(which(table(sppVector) == 1))
	if(exclude) which(!sppVector %in% singletons) else which(sppVector %in% singletons)
}

Try the spider package in your browser

Any scripts or data that you put into this service are public.

spider documentation built on May 2, 2019, 5:16 p.m.