Nothing
ordinDNA <- function(distobj, sppVector, ...){
#Conduct Principal Coordinates Analysis
pco <- cmdscale(distobj, length(sppVector) - 1, eig = TRUE)
ordinDNA <- list(pco = pco, sppVector = sppVector)
attr(ordinDNA, "class") <- "ordinDNA"
#Plotting
plot.ordinDNA(ordinDNA, ...)
#Return object
invisible(ordinDNA)
}
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.