Create Regression_line_with_CI.R