lm2ols function

Convert results of lm() to ols()