data(s109)
require(pscl)
is(s109,"rollcall")
s109
summary(s109)
summary(s109,verbose=TRUE)
## how s109 was created
s109 <- readKH("http://adric.sscnet.ucla.edu/rollcall/static/S109.ord",
desc="109th U.S. Senate",
debug=TRUE)
url <- "http://adric.sscnet.ucla.edu/rollcall/static/S109desc.csv"
s109$vote.data <- data.frame(read.csv(file=url,header=TRUE))
s109$vote.data$date <- as.Date(s109$vote.data$date,
format="dimnames(s109$votes)[[2]] <- paste(s109$vote.data$session,
s109$vote.data$number,sep="-")
Run the code above in your browser using DataLab