turbanisch

herfindahl <- function(x, shares_in_percent = FALSE, na.rm = FALSE) {
  shares <-  x / sum(x, na.rm = na.rm)
  if (shares_in_percent) shares <- shares * 100 
  sum(shares^2)
}