data(congress109)
repshare <- normalize(congress109Ideology$repshare)
fit <- mnlm(congress109Counts, repshare)
par(mfrow=c(1,2))
plot(fit, pch=21, bg=c(4,3,2)[congress109Ideology$party])
plot(fit, cat=915, delta=0.05)Run the code above in your browser using DataLab