typo in glm.R