I would like to get confidence intervals for the percentages of difference outcomes expected from an intercept only multinomial regression. The package emmeans provides confidence intervals but they provide values that go out of the possible percentage bounds (below 0% and above 100%). Is there a package or manual approach that can get at these confidence intervals?:
example_data <-
tibble::tibble(outcome = c(rep("a", 100), rep("b", 5), rep("c", 75)))
multinomial_fit <-
nnet::multinom(outcome ~ 1,
data = example_data)
emmeans::emmeans(multinomial_fit,
"outcome",
type = "response")
The same issue applies in models with ordinal outcomes (cumulative regression models).