Nothing
summary_species=function(x) {
library(BioFTF)
for (i in 1:ncol(x)) colnames(x)=paste("species",c(1:ncol(x)),sep=" n.")
for (i in 1:nrow(x)) rownames(x)=paste("community",c(1:nrow(x)),sep=" n.")
x
class(x)
x=as.matrix(x)
nsiti=nrow(x)
nspecie=ncol(x)
# matrix with relative abundance
xrel=prop.table(x,1)
xrel
summary(x)
}
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.