iterative weighted least squares in r