# NOT RUN {
require(pscl)
data(s109)
is(s109,"rollcall") ## TRUE
s109 ## print method for class rollcall
summary(s109) ## summary method
summary(s109,verbose=TRUE)
# }
# NOT RUN {
## how s109 was created
require(pscl)
s109 <- readKH("https://voteview.com/static/data/out/votes/S109_votes.ord",
desc="109th U.S. Senate",
debug=TRUE)
url <- "https://voteview.com/static/data/out/rollcalls/S109_rollcalls.csv"
s109$vote.data <- data.frame(read.csv(file=url,header=TRUE))
s109$vote.data$date <- as.Date(s109$vote.data$date,
format="<!-- %Y-%m-%d") -->
dimnames(s109$votes)[[2]] <- paste(s109$vote.data$session,
s109$vote.data$number,sep="-")
# }
Run the code above in your browser using DataLab