> glm(categorical_FOD_FODs ~ Condition_FODs + Language_used_FODs + Condition_FODs*Language_used_FODs, + family = multinomial("identity"), data = indvar_FODs) Error in multinomial("identity") : could not find function "multinomial", edit the code to run without error

multinomial <- function(link)
{
  switch(link, identity = "multinomial.identity", logit = "multinomial.logit", probit = "multinomial.probit",
         cauchit = "multinomial.cauchit")
}