Questa funzione permette il calcolo dell'indice di eterogeneita' di Gini.
E(x)
x
var.
var
x <- c("A", "A", "B", "A", "C", "A") E(x)