Update Plotting Regression.R