R/ObservedEstFun.R

Defines functions ObservedEstFun

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 9, 2017, 2:06 a.m.