Create fit a linear regression model in r.r