# NOT RUN {
data(s109)
tmp <- computeMargins(s109)
dim(tmp$voteMargins) ## 645 by 4
tmp <- computeMargins(s109,
dropList=list(codes="notInLegis",lop=0))
dim(tmp$voteMargins) ## 544 by 4
# }
Run the code above in your browser using DataLab