R/entropy.R

Defines functions entropy

Documented in entropy

entropy <-
function(x, alpha=1){ # using basic Theil index as standard, 
  x <- as.numeric(x)
  n <- length(x)
  fx<- 1/n
  if (is.null(alpha)) 
    alpha <- 1
  if (alpha == 0) { # yields mean logarithmic 
    entropy <- -sum(log(x/mean(x))*fx) 
  }
  else if (alpha == 1) 
    entropy <- sum(x/mean(x)*log(x/mean(x))*fx)
  else {
    entropy <- 1/(alpha * (alpha - 1))*sum(((x/mean(x))^alpha-1)*fx)
  }
  return(entropy)
}

Try the acid package in your browser

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

acid documentation built on May 29, 2017, 1:03 p.m.