## number of categories
vt <- 3
## covariate values
xt <- matrix(rnorm(10 * 2), ncol = 2, nrow = 10)
## list of parameter vectors
bt <- list(b1 = c(1, 0.25, -0.25),
b2 = c(-0.5, 0.15, 0.15))
## list of parameter vectors (over-parameterized model)
bu <- list(b1 = c(1, 0.25, -0.25),
b2 = c(-0.5, 0.15, 0.15),
b3 = c(-1, 0.1, -0.20))
## subject specific probabilities for each category
generate_multinom_probs(V = vt, X = xt, B = bt)
## subject specific probabilities for each category
## (over-parameterized model)
generate_multinom_probs(V = vt, X = xt, B = bu)
Run the code above in your browser using DataLab