Nothing
minInDist <- function (distobj, sppVector = NULL, propZero = FALSE, rmNA = FALSE){
dat <- as.matrix(distobj)
if (length(sppVector) > 0)
dimnames(dat)[[1]] <- sppVector
conSpecDists <- list()
for (i in 1:length(dimnames(dat)[[1]])) {
conSpec <- dimnames(dat)[[1]] == dimnames(dat)[[1]][i]
dd <- sort(dat[conSpec, i])
if(length(dd) > 1) conSpecDists[[i]] <- dd[2] else conSpecDists[[i]] <- NA
}
if (propZero)
output <- length(which(unlist(conSpecDists) == 0))/length(unlist(conSpecDists))
else output <- unname(unlist(conSpecDists))
output
}
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.