power law distribution in R