<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">Daria para fazer com um for(), mas aí percebi a estrutura diagonal de 1's positivo e 1's negativos e achei mais fácil somar matrizes diagonais. O CMR esclarece melhor o ponto.<br><br><span style="font-family:monospace,monospace">## Número de níveis do fator.<br>k <- 5<br><br>## Row 1.<br>r1 <- rep(1/k, k)<br><br>## Matriz diagonal.<br>D <- diag(k-1)<br><br>## Positive ones.<br>po <- cbind(D, 0)<br><br>## Negative ones.<br>no <- cbind(0, -D)<br><br>## Matriz de contrastes "diferenças em sequência".<br>C <- rbind(r1, po+no)<br>rownames(C) <- c("mu", paste0(1:(k-1), "-", 2:k))<br>C<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.</div><br></div>