Glm Control In R