#This data file is the same as reading file using:
#sen90 <- readKH("ftp://voteview.com/sen90kh.ord")
#All ORD files can be found on www.voteview.com
data(sen90)
summary(sen90)
result<-oc(sen90,polarity=c(2,5))
summary(result)
plot(result)Run the code above in your browser using DataLab