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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: simple.glht
> ### Title: Pairwise comparison with multiple testing compensation.
> ### Aliases: simple.glht print.simple.glht cld
> ### Keywords: models design
> 
> ### ** Examples
> 
> require(graphics)
> 
> summary(fm1 <- lm(breaks ~ wool + tension, data = warpbreaks))

Call:
lm(formula = breaks ~ wool + tension, data = warpbreaks)

Residuals:
    Min      1Q  Median      3Q     Max 
-19.500  -8.083  -2.139   6.472  30.722 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)   28.148      1.581  17.805  < 2e-16 ***
wool(A)        2.889      1.581   1.827 0.073614 .  
tension(L)     8.241      2.236   3.686 0.000561 ***
tension(M)    -1.759      2.236  -0.787 0.435062    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

s: 11.62 on 50 degrees of freedom
Multiple R-squared: 0.2691,
Adjusted R-squared: 0.2253 
F-statistic: 6.138 on 3 and 50 DF,  p-value: 0.00123 

> simple.glht(fm1, "tension")

	 Simultaneous Confidence Intervals and Tests for General Linear Hypotheses

Multiple Comparisons of Means: Tukey Contrasts


Fit: lm(formula = breaks ~ wool + tension, data = warpbreaks)

Quantile = 2.4154 
Minimum significant difference = 9.3534
95% confidence level
 
Linear Hypotheses:
      Lower  Center   Upper Std.Err t value   P(>t)   
L-M  0.6466 10.0000 19.3534  3.8724   2.582 0.03363 * 
L-H  5.3688 14.7222 24.0756  3.8724   3.802 0.00112 **
M-H -4.6312  4.7222 14.0756  3.8724   1.219 0.44742   
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Adjusted p values reported -- single-step method)

> plot(simple.glht(fm1, "tension"))
> cld(simple.glht(fm1, "tension"))
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
mixlm
 --- call from context --- 
print.cldMix(x)
 --- call from argument --- 
if (class(letters) == "logical") {
    letters <- as.matrix(letters)
}
 --- R stacktrace ---
where 1: print.cldMix(x)
where 2: (function (x, ...) 
UseMethod("print"))(x)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, fill = TRUE, ...) 
{
    if (attr(x, "failed")) {
        cat("No CLD available\n")
        return(invisible(NULL))
    }
    if (attr(x, "df1")) {
        cat("No CLD available for single df error.\n")
        return(invisible(NULL))
    }
    object <- x
    means <- attr(object$object, "means")
    n <- length(means)
    mname <- names(means)
    letters <- object$mcletters$LetterMatrix
    if (is.null(dim(letters))) {
        lvl_order <- names(letters)
    }
    else {
        lvl_order <- rownames(letters)
    }
    morder <- numeric(n)
    if (class(letters) == "logical") {
        letters <- as.matrix(letters)
    }
    G <- dim(letters)[2]
    LetterMatrix <- matrix("", nrow = dim(letters)[1], ncol = G)
    colnames(LetterMatrix) <- paste("G", 1:G, sep = "")
    for (i in 1:n) {
        morder[i] <- which(lvl_order == mname[i])
        for (j in 1:G) {
            if (letters[i, j]) 
                LetterMatrix[i, j] <- LETTERS[j]
        }
    }
    out <- data.frame(Mean = means, LetterMatrix[morder, , drop = FALSE])
    if (fill) {
        for (i in 2:dim(out)[2]) {
            first <- match(LETTERS[i - 1], out[, i])
            last <- match(LETTERS[i - 1], rev(out[, i]))
            out[first:(dim(out)[1] - last + 1), i] <- LETTERS[i - 
                1]
        }
    }
    cat("Tukey's HSD", paste("Alpha:", attr(object, "alpha")), 
        "", sep = "\n")
    print(out)
}
<bytecode: 0x55858cf8c4e0>
<environment: namespace:mixlm>
 --- function search by body ---
Function print.cldMix in namespace mixlm has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1