Create glm.sample1.R