Added R GLM