Simple Ordinary Least Squares In R