Create countglm.r