Add support for "multinom" object

[bgreenwell]

Example from nnet package:

library(MASS)
example(birthwt)
bwt.mu <- multinom(low ~ ., data = bwt)
class(bwt.mu)
# [1] "multinom" "nnet"  

Should use sum of coefficients across each class. Would it be useful to choose a specific class?