Weighted Least Squares Regression In R