## Use the iris dataset.
data(iris)
N = nrow(iris)
P = ncol(iris)
J = nlevels(iris$Species)
X = model.matrix(Species ~ ., data=iris);
y.all = model.matrix(~ Species - 1, data=iris);
y = y.all[,-J];
out = mlogit(y, X, samp=1000, burn=100);
Run the code above in your browser using DataLab