# NOT RUN {
library(nnet)
library(MASS)
example(birthwt)
bwt.mu <- multinom(low ~ ., bwt)
tidy(bwt.mu)
glance(bwt.mu)
#* This model is a truly terrible model
#* but it should show you what the output looks
#* like in a multinomial logistic regression
fit.gear <- multinom(gear ~ mpg + factor(am), data = mtcars)
tidy(fit.gear)
glance(fit.gear)
# }
Run the code above in your browser using DataLab