<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Marcos,<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Eu não sei te dizer o que mudou na mulcomp::cld() mas na época dessa matéria ela devia funcionar.  Para situações semelhantes a essa do fatorial, eu acabei fazendo uma cópia da cld() e modifiquei algumas coisas para que pudesse usá-la. Ela está disponível no fonte de um pacote onde mantenho uma miscelânea de funções: <a href="http://github.com/walmes/wzRfun">github.com/walmes/wzRfun</a>. O código abaixo usa a cld2() que é a cópia que mencionei.<br><br><span style="font-family:monospace,monospace"># source("<a href="https://raw.githubusercontent.com/walmes/wzRfun/master/R/pairwise.R">https://raw.githubusercontent.com/walmes/wzRfun/master/R/pairwise.R</a>")<br># cld2(c0)<br><br># Função disponível no pacote wzRfun: <a href="http://github.com/walmes/wzRfun">github.com/walmes/wzRfun</a>.<br>cld2 <- function(object, level = 0.05) {<br>    lvl_order <- unique(unlist(<br>        strsplit(rownames(object$linfct), "-")))<br>    signif <- (object$test$pvalues < level)<br>    ret <- list()<br>    ret$signif <- signif<br>    ret$comps <- do.call(rbind,<br>                         strsplit(rownames(object$linfct), "-"))<br>    # Modificação feita aqui.<br>    ret$mcletters <-<br>        multcomp:::insert_absorb(x = signif,<br>                                 decreasing = FALSE,<br>                                 comps = ret$comps,<br>                                 lvl_order = lvl_order)<br>    class(ret) <- "cld"<br>    return(ret)<br>}<br><br>cld2(c0)<br>result$cld <- cld2(c0)$mcletters$Letters<br><br>result[with(result, order(Estimate)), ]<br><br>ordered_cld <- function(x) {<br>    s <- strsplit(x, "")<br>    ul <- unique(unlist(s))<br>    UL <- toupper(sort(ul, decreasing = TRUE))<br>    l <- sapply(s, FUN = function(i) {<br>        tolower(paste(sort(UL[match(i, table = ul)]), collapse = ""))<br>    })<br>    return(l)<br>}<br><br># Ordena o vetor de letras pelas médias dos tratamentos.<br>v <- result[with(result, order(Estimate)), ]$cld<br>result$cld <- ordered_cld(v)<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div>​</div>