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)