Calculate Shannon Diversity In R