data(s109)
s109.working <- dropRollCall(s109,
dropList=list(lop=0))
summary(s109.working)
s109.working <- dropRollCall(s109,
dropList=list(lop=0,
code="notInLegis"))
summary(s109.working)
s109.working <- dropRollCall(s109,
dropList=list(lop=3,
code="notInLegis"))
summary(s109.working)
## note use of alist, since dropLegis is an expression
dropList <- alist(lop=3,
dropLegis=party!="D",
code="notInLegis")
s109.working <- dropRollCall(s109,dropList=dropList,debug=TRUE)
summary(s109.working)
s109.working <- dropRollCall(s109.working,dropList=list(legisMin=25))
summary(s109.working)
if (FALSE) {
## 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"))
summary(h102)
}
Run the code above in your browser using DataLab