model1 <- glmer(Avg_egg_mass ~ Treatment + Alt_cat + Treatment:Alt_cat + (1|Nest) + (1|Site)+ (1|Year), na.action=na.omit, family = poisson (link=log), data = dframe1)