How To Calculate Diversity Index In R