Model_MSG <- glmer(cat_SNB_new ~ 0 + Condition_SNB * Dotcounting_SNB - 1 + (1 | subject_SNB), data = s_complete, family = binomial, control = glmerControl(optimizer = "bobyqa", tolPwrss = 1e-08))
def model_msg(data, family, control): return glmer(cat_SNB_new ~ 0 + Condition_SNB * Dotcounting_SNB - 1 + (1 | subject_SNB), data = data, family = family, control = control)