Nothing
##
## Shannon's index
##
setGeneric("shannon",
function(x) {
standardGeneric("shannon")
})
setMethod("shannon", signature(x="phylo4d"),
function(x) {
phyc <- phylo4com(x)
shannon(phyc)
})
setMethod("shannon", signature(x="phylo4com"),
function(x) {
N.relative <- prop.table(t(abundance(x)), 1)
out <- apply(N.relative, 1, function(n) -sum(n * log(n)))
return(out)
})
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.