calculate diversity index r