data(s109)
mat <- convertCodes(s109)
class(mat)
dim(mat)
dim(dropUnanimous(mat))
## compare with operating on the rollcall object directly
## with dropUnanimous.rollcall
## produces an identical matrix
dim(dropUnanimous(s109)$votes)
Run the code above in your browser using DataLab