Running examples in 'pscl-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: rollcall
> ### Title: create an object of class rollcall
> ### Aliases: rollcall
> ### Keywords: manip
> 
> ### ** Examples
> 
> ## generate some fake roll call data
> set.seed(314159265)
> fakeData <- matrix(sample(x=c(0,1),size=5000,replace=TRUE),
+                    50,100)
> rc <- rollcall(fakeData)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
pscl
 --- call from context --- 
checkVotes(v, codes)
 --- call from argument --- 
if (class(object) == "rollcall") mat <- object$votes
 --- R stacktrace ---
where 1: checkVotes(v, codes)
where 2: rollcall(fakeData)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (object, codes = object$codes) 
{
    if (class(object) == "rollcall") 
        mat <- object$votes
    if (class(object) == "matrix") 
        mat <- object
    if (is.null(codes)) 
        stop("checkVotes: no codes supplied")
    flag <- FALSE
    if (!all(mat[!is.na(mat)] %in% unlist(codes))) {
        cat("checkVotes: Your data contains values other than the codes\n")
        cat("checkVotes: you supplied as representing Yea, Nay, Missing or\n")
        cat("checkVotes: not in legislature.\n")
        cat("checkVotes: You specified:\n")
        cat(paste("Yea: ", paste(as.character(codes$yea), collapse = " "), 
            "\n", "Nay: ", paste(as.character(codes$nay), collapse = " "), 
            "\n", "Missing: ", paste(as.character(codes$missing), 
                collapse = " "), "\n", "Not In Legislature: ", 
            paste(as.character(codes$notInLegis), collapse = " "), 
            "\n", sep = ""))
        cat("checkVotes: Your data has the following unique values and frequency counts:\n")
        print(table(mat, exclude = NULL))
        cat("\n")
        flag <- TRUE
    }
    flag
}
<bytecode: 0x81d0d98>
<environment: namespace:pscl>
 --- function search by body ---
Function checkVotes in namespace pscl has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(object) == "rollcall") mat <- object$votes : 
  the condition has length > 1
Calls: rollcall -> checkVotes
Execution halted