R Simulation Fit Linear Regression