# NOT RUN {
if (require(nnet) & require(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