powered by
gini.simpson(x, na.rm = FALSE)
politicalDiversity
x <- as.table(c(69,17,7,62)) rownames(x) <- c("AB","C","D","0") gini.simpson(x)
Run the code above in your browser using DataLab