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_snb(s_complete):
  s_complete <- read.csv("s_complete_snb_with_model.csv")
  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)) 
  return(Model_MSG)
  
model_snb(s_complete)