update lm.R