> mod <- glmer('categorical_FOD_FODs ~ Condition_FODs + Language_used_FODs + (1 | subject_FODs)', + data = indvar_FODs, family = binomial) According to the data, add this control = lmerControl( optimizer ='', optCtrl=list(method='', maxfun=), calc.derivs = FALSE)) anova(model1)

mod <- glmer('categorical_FOD_FODs ~ Condition_FODs + Language_used_FODs + (1 | subject_FODs)', 
             data = indvar_FODs, family = binomial)

mod2 <- glmer('categorical_FOD_FODs ~ Condition_FODs + Language_used_FODs + (1 | subject_FODs)', 
              data = indvar_FODs, family = binomial, 
              control = glmerControl(optimizer='Nelder_Mead', optCtrl=list(maxfun=1e5)))

anova(mod, mod2)