Model_DD <- glmer(cat_SNB_new ~ Condition_SNB * Gender_SNB + (1 + Condition_SNB | subject_SNB), data = s_complete, family = binomial, control = glmerControl(optimizer = "bobyqa", optCtrl = list(maxfun = 20000)))
Model_DD <- glmer(cat_SNB_new ~ Condition_SNB * Gender_SNB + (1 | subject_SNB) + (1 | session_SNB), data = s_complete, family = binomial, control = glmerControl(optimizer = "bobyqa", optCtrl = list(maxfun = 20000)))