Nothing
GammaDiversity <-
function(MC, q = 1, Correction = "Best", Tree = NULL, Normalize = TRUE, Z = NULL, CheckArguments = TRUE)
{
if (CheckArguments)
CheckentropartArguments()
ppTree <- Preprocess.Tree(Tree)
if (Normalize) {
Height <- 1
} else {
Height <- ppTree$Height
}
GammaEntropy <- GammaEntropy(MC, q, Correction, ppTree, Z, Normalize=TRUE, CheckArguments=FALSE)
return(expq(GammaEntropy, q) * Height)
}
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.