# NOT RUN {
library(nnet)
data(cross_1year)
mod0 <- nnet::multinom(employment_sit ~ gender + finalgrade, data = cross_1year)
field0 <- field3logit(mod0, 'genderFemale')
TernaryPlot()
TernaryField(field0)
# }
Run the code above in your browser using DataLab