How To Calculate Shannon Diversity Index In R