data(we8there)
## use bins to estimate with counts collapsed across equal ratings 1...5
fit <- mnlm(we8thereCounts, we8thereRatings$Overall, bins=5, verb=FALSE)
par(mfrow=c(1,2))
plot(fit, y=as.factor(we8thereRatings$Overall), col=c(2,2,2,3,3))
plot(fit, cat=2842, delta=0.05)Run the code above in your browser using DataLab