data(congress109)
fit <- pls(freq(congress109Counts), congress109Ideology$repshare, K=4)
plot(fit, pch=21, bg=c(4,3,2)[congress109Ideology$party])
data(we8there)
fit <- pls(freq(we8thereCounts),as.factor(we8thereRatings$Overall))
plot(fit, col=c(2,2,2,3,3))
Run the code above in your browser using DataLab