BestSlope function

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