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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ordChange
> ### Title: Maximal First Differences for Proportional Odds Logistic
> ###   Regression Models
> ### Aliases: ordChange
> 
> ### ** Examples
> 
> library(MASS)
> data(france)
> polr.mod <- polr(vote ~ age + male + retnat + lrself, data=france)
> typical.france <- data.frame(
+ 	age = 35, 
+ 	retnat = factor(1, levels=1:3, labels=levels(france$retnat))
+ 	)
> ordChange(polr.mod, data=france, typical.dat=typical.france, sim=FALSE)	
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
DAMisc
 --- call from context --- 
print.ordChange(ret)
 --- call from argument --- 
if (class(diffs) == "list") {
    sig <- ifelse(sign(diffs$lower) == sign(diffs$upper), "*", 
        " ")
    leads <- ifelse(sign(diffs$mean) == -1, "", " ")
    out <- array(paste(leads, sprintf(paste("%0.", digits, "f", 
        sep = ""), diffs$mean), sig, sep = ""), dim = dim(diffs$mean))
    dimnames(out) <- dimnames(diffs$mean)
} else {
    out <- array(sprintf(paste("%0.", digits, "f", sep = ""), 
        diffs), dim = dim(diffs))
    dimnames(out) <- dimnames(diffs)
}
 --- R stacktrace ---
where 1: print.ordChange(ret)
where 2: print(ret)
where 3: ordChange(polr.mod, data = france, typical.dat = typical.france, 
    sim = FALSE)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, ..., digits = 3) 
{
    diffs <- x$diffs
    if (class(diffs) == "list") {
        sig <- ifelse(sign(diffs$lower) == sign(diffs$upper), 
            "*", " ")
        leads <- ifelse(sign(diffs$mean) == -1, "", " ")
        out <- array(paste(leads, sprintf(paste("%0.", digits, 
            "f", sep = ""), diffs$mean), sig, sep = ""), dim = dim(diffs$mean))
        dimnames(out) <- dimnames(diffs$mean)
    }
    else {
        out <- array(sprintf(paste("%0.", digits, "f", sep = ""), 
            diffs), dim = dim(diffs))
        dimnames(out) <- dimnames(diffs)
    }
    noquote(out)
}
<bytecode: 0x1fa8f4f0>
<environment: namespace:DAMisc>
 --- function search by body ---
Function print.ordChange in namespace DAMisc has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(diffs) == "list") { : the condition has length > 1
Calls: ordChange -> print -> print.ordChange
Execution halted