model <- multinom(categorical_FOD_FODs ~ Condition_FODs + Language_used_FODs + Condition_FODs*Language_used_FODs, indvar_FODs) summary(model) write code for the post-hoc analysis, treating each level of the variables equally. Apply bonferrini
model_comparison <- emmeans(model, "Language_used_FODs") summary(model_comparison, test = "bonferroni")