Fit distribution in r