# some congress examplesdata(congress109)r <- corr(congress109Counts, congress109Ideology$repshare)## 20 terms for Democratssort(r[,1])[1:20]## 20 terms for Republicanssort(r[,1], decreasing=TRUE)[1:20]## 20 high variance termscolnames(congress109Counts)[ order(-sdev(congress109Counts))[1:20]]