<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Alexandre,<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">No seu CMR tem-se um fator apenas. Você não precisa de "a" e "<a href="http://a.int">a.int</a>", eles são iguais. Será que não é a versão da apc que você tem? Ela tem sido aprimorada, está no meu pacote wzRfun, disponível do <a href="http://www.github.com/walmes/wzRfun">www.github.com/walmes/wzRfun</a>. A mais recente tá assim:<br><br><span style="font-family:arial narrow,sans-serif"><span style="font-family:monospace,monospace">## wzRfun::apc<br>apc <- function (lfm, lev = NULL) <br>{<br>    nlev <- nrow(lfm)<br>    rn <- rownames(lfm)<br>    a <- attr(lfm, "grid")<br>    if (is.null(lev)) {<br>        if (!is.null(a)) {<br>            lev <- apply(a, 1, paste, collapse = ":")<br>        }<br>        else if (!is.null(rn)) {<br>            lev <- rn<br>        }<br>        else {<br>            lev <- as.character(1:nlev)<br>        }<br>    }<br>    cbn <- combn(seq_along(lev), 2)<br>    M <- lfm[cbn[1, ], ] - lfm[cbn[2, ], ]<br>    if (is.vector(M)) <br>        dim(M) <- c(1, length(M))<br>    rownames(M) <- paste(lev[cbn[1, ]], lev[cbn[2, ]], sep = "-")<br>    return(M)<br>}</span><u><br></u><span style="font-family:trebuchet ms,sans-serif"><br>À disposição.<br></span></span></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:arial narrow,sans-serif"><span style="font-family:trebuchet ms,sans-serif">Walmes.</span><u><br></u></span></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div>​</div>