Running examples in ‘ordinal-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: clm2
> ### Title: Cumulative link models
> ### Aliases: clm2
> ### Keywords: models
> 
> ### ** Examples
> 
> options(contrasts = c("contr.treatment", "contr.poly"))
> 
> ## A tabular data set:
> (tab26 <- with(soup, table("Product" = PROD, "Response" = SURENESS)))
       Response
Product   1   2   3   4   5   6
   Ref  132 161  65  41 121 219
   Test  96  99  50  57 156 650
> dimnames(tab26)[[2]] <- c("Sure", "Not Sure", "Guess", "Guess", "Not Sure", "Sure")
> dat26 <- expand.grid(sureness = as.factor(1:6), prod = c("Ref", "Test"))
> dat26$wghts <- c(t(tab26))
> 
> m1 <- clm2(sureness ~ prod, scale = ~prod, data = dat26,
+           weights = wghts, link = "logistic")
> 
> ## print, summary, vcov, logLik, AIC:
> m1
Call:
clm2(location = sureness ~ prod, scale = ~prod, data = dat26, 
    weights = wghts, link = "logistic")

Location coefficients:
prodTest 
1.295878 

Scale coefficients:
 prodTest 
0.1479862 

Threshold coefficients:
       1|2        2|3        3|4        4|5        5|6 
-1.4912570 -0.4521846 -0.1072083  0.1633653  0.8829135 

log-likelihood: -2687.745 
AIC: 5389.489 
> summary(m1)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ordinal
 --- call from context --- 
summary.clm2(m1)
 --- call from argument --- 
if (class(vc) == "try-error") {
    warning("Variance-covariance matrix of the parameters is not defined")
    coef[, 2:4] <- NaN
    if (correlation) 
        warning("Correlation matrix is unavailable")
    object$condHess <- NaN
} else {
    coef[, 2] <- sd <- sqrt(diag(vc))
    object$condHess <- if (any(is.na(object$Hessian))) 
        Inf
    else with(eigen(object$Hessian, only.values = TRUE), abs(max(values)/min(values)))
    coef[, 3] <- coef[, 1]/coef[, 2]
    coef[, 4] <- 2 * pnorm(abs(coef[, 3]), lower.tail = FALSE)
    if (correlation) 
        object$correlation <- (vc/sd)/rep(sd, rep(object$edf, 
            object$edf))
}
 --- R stacktrace ---
where 1: summary.clm2(m1)
where 2: summary(m1)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (object, digits = max(3, .Options$digits - 3), correlation = FALSE, 
    ...) 
{
    if (is.null(object$Hessian)) 
        stop("Model needs to be fitted with Hess = TRUE")
    coef <- matrix(0, object$edf, 4, dimnames = list(names(object$coefficients), 
        c("Estimate", "Std. Error", "z value", "Pr(>|z|)")))
    coef[, 1] <- object$coefficients
    vc <- try(vcov(object), silent = TRUE)
    if (class(vc) == "try-error") {
        warning("Variance-covariance matrix of the parameters is not defined")
        coef[, 2:4] <- NaN
        if (correlation) 
            warning("Correlation matrix is unavailable")
        object$condHess <- NaN
    }
    else {
        coef[, 2] <- sd <- sqrt(diag(vc))
        object$condHess <- if (any(is.na(object$Hessian))) 
            Inf
        else with(eigen(object$Hessian, only.values = TRUE), 
            abs(max(values)/min(values)))
        coef[, 3] <- coef[, 1]/coef[, 2]
        coef[, 4] <- 2 * pnorm(abs(coef[, 3]), lower.tail = FALSE)
        if (correlation) 
            object$correlation <- (vc/sd)/rep(sd, rep(object$edf, 
                object$edf))
    }
    object$coefficients <- coef
    object$digits <- digits
    class(object) <- "summary.clm2"
    object
}
<bytecode: 0x5598ed5a80b8>
<environment: namespace:ordinal>
 --- function search by body ---
Function summary.clm2 in namespace ordinal has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1