Create Powerlaw Plot and TestPowerlaw Plot and Test.R