BestSlope function

Choose best fit slope for the log(y) and x regression by the criteria of adjusted R-square