data(s109)
s109.working <- dropRollCall(s109,
dropList=list(lop=0))
s109.working <- dropRollCall(s109,
dropList=list(lop=0,
code="notInLegis"))
s109.working <- dropRollCall(s109,
dropList=list(lop=3,
code="notInLegis"))
## note use of alist, since dropLegis is an expression
dropList <- alist(lop=3,
dropLegis=party!="D",
code="notInLegis")
s109.working <- dropRollCall(s109,dropList=dropList)
## read 102nd House from Poole web site
h102 <- readKH("ftp://voteview.ucsd.edu/dtaord/hou102kh.ord")
## drop President from roll call matrix
h102 <- dropRollCall(h102,
dropList=alist(dropLegis=state=="USA"))Run the code above in your browser using DataLab