> 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)) Warning message: In commonArgs(par, fn, control, environment()) : maxfun < 10 * length(par)^2 is not recommended.

library(lme4)
library(ggplot2)
library(MASS)

s_complete = read.csv('s_complete.csv')

s_complete$Condition_SNB = factor(s_complete$Condition_SNB)
s_complete$Dotcounting_SNB = factor(s_complete$Dotcounting_SNB)
s_complete$cat_SNB_new = factor(s_complete$cat_SNB_new)

#create dataframe with interactions
s_complete$Dotcounting_SNB_Condition_SNB = interaction(s_complete$Dotcounting_SNB, s_complete$Condition_SNB)

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))