# 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("ftp://voteview.com/dtaord/sen109kh.ord",
desc="109th U.S. Senate",
debug=TRUE)
url <- "ftp://voteview.com/dtaord/s109desc_final.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