add lm via R