Add glm_test.R