rshannon: Compute Entropy Relative Index
In filippogambarota/rlimb:

Description Usage Arguments Examples

View source: R/rshannon.R

Compute Entropy Relative Index

1	rshannon(x)

x

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x)
{
    if (is.factor(x) == F)
        stop("La variabile inserita deve essere di tipo factor!")
    eps <- 1/10^100
    -sum((table(x)/length(x) * log((table(x)/length(x) + eps))))/log(length(levels(x)))
  }