R/GammaDiversity.R

Defines functions GammaDiversity

Documented in GammaDiversity

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)  
}

Try the entropart package in your browser

Any scripts or data that you put into this service are public.

entropart documentation built on Feb. 6, 2018, 1:04 a.m.