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)
Run the code above in your browser using DataLab