Update Subfunctions.r

Edits to r2.nakagawa.glm to deal with new S4 classes with lme4 update