R/ObservedEstFun.R

ObservedEstFun <-
function(x) { 
  #   entropy(x, method = "ML")
  x <- x[x > 0]
  n <- sum(x)
  pi <- x / n
  est <- -sum(pi * log(pi))
  return(est)
}
JohnsonHsieh/ChaoEntropy documentation built on May 7, 2019, 12:01 p.m.