R Script: Effective Number of Parties