## number of categories
vt <- 3
## covariate values
xt <- matrix(rnorm(10 * 2), ncol = 2, nrow = 10)
## list of parameter vectors (over-parameterized model)
bu <- list(b1 = c(0, 0.25, 0.25),
b2 = c(0, -0.25, -0.25),
b3 = c(0, 0.25, -0.25))
## subject specific probabilities for each category
## (over-parameterized model)
prp <- generate_multinom_probs(V = vt, X = xt, B = bu)
classify_multiclass(predicted.probs = prp,
category.names = c("A", "B", "C"))
## generate predicted probabilities within function
classify_multiclass(predicted.probs = NULL,
category.names = c("A", "B", "C"),
X = xt, B = bu)
Run the code above in your browser using DataLab