<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Alexandre, boa tarde!</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Não sei se entendi direito, mas fiz uma tentativa. Se a ideia servir dá pra colocar na forma de uma função.</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style=""><div class="gmail_default"><font face="monospace, monospace">### <code r></font></div><div class="gmail_default"><font face="monospace, monospace">treat <- gl(4, 15, labels = paste("t", 1:4, sep="")); treat # Fatores</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"># Variables</font></div><div class="gmail_default"><font face="monospace, monospace">set.sed(124)</font></div><div class="gmail_default"><font face="monospace, monospace">sp  <- cbind(c(rnorm(10,  5, 0.25), rnorm(50, 2.5, 0.25)), rnorm(60, 2.5, 0.25),</font></div><div class="gmail_default"><font face="monospace, monospace">             c(rnorm(10, 12, 0.25), rnorm(50, 2.5, 0.25)), rnorm(60, 2.5, 0.25))</font></div><div class="gmail_default"><font face="monospace, monospace">colnames(sp) <- c("sp1", "sp2", "sp3", "sp4")</font></div><div class="gmail_default"><font face="monospace, monospace">head(sp)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">#Criação da matriz de contrastes </font></div><div class="gmail_default"><font face="monospace, monospace">TI    <- model.matrix(~ treat-1)</font></div><div class="gmail_default"><font face="monospace, monospace">head(TI)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">f    <- length(levels(treat))</font></div><div class="gmail_default"><font face="monospace, monospace">comb <- t(combn(1:f, 2))</font></div><div class="gmail_default"><font face="monospace, monospace">n    <- nrow(comb)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">contr2 <- NULL</font></div><div class="gmail_default"><font face="monospace, monospace">for (x in 1:n) {</font></div><div class="gmail_default"><font face="monospace, monospace">     i <- comb[x, 1]</font></div><div class="gmail_default"><font face="monospace, monospace">     j <- comb[x, 2]</font></div><div class="gmail_default"><font face="monospace, monospace">     tmp <- list(TI[,i] - TI[,j]); names(tmp) <- paste0("TI",i, "_", j)</font></div><div class="gmail_default"><font face="monospace, monospace">     contr2 <- c(contr2, tmp)</font></div><div class="gmail_default"><font face="monospace, monospace">}</font></div><div class="gmail_default"><font face="monospace, monospace">contr2</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">head(do.call(cbind, contr2))</font></div><div class="gmail_default"><font face="monospace, monospace">#   TI1_2 TI1_3 TI1_4 TI2_3 TI2_4 TI3_4</font></div><div class="gmail_default"><font face="monospace, monospace"># 1     1     1     1     0     0     0</font></div><div class="gmail_default"><font face="monospace, monospace"># 2     1     1     1     0     0     0</font></div><div class="gmail_default"><font face="monospace, monospace"># 3     1     1     1     0     0     0</font></div><div class="gmail_default"><font face="monospace, monospace"># 4     1     1     1     0     0     0</font></div><div class="gmail_default"><font face="monospace, monospace"># 5     1     1     1     0     0     0</font></div><div class="gmail_default"><font face="monospace, monospace"># 6     1     1     1     0     0     0</font></div><div class="gmail_default"><font face="monospace, monospace">### </code></font></div></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><font face="arial, helvetica, sans-serif" style="font-size:small"><div style="font-family:'trebuchet ms',sans-serif;display:inline">​</div></font><font face="arial, helvetica, sans-serif" style="font-size:12.8px"><span style="font-size:small">================================================</span><br>Éder Comunello</font><div style="font-size:12.8px"><span style="font-family:arial,helvetica,sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><font face="arial, helvetica, sans-serif"><br></font></div><div style="font-size:12.8px"><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><br></div><div><span style="font-size:small">Brazilian Agricultural Research Corporation (</span><font face="arial, helvetica, sans-serif" style="font-size:small">Embrapa)</font></div><div><div><font face="arial, helvetica, sans-serif" style="font-size:small">Dourados, MS, Brazil </font><font face="arial, helvetica, sans-serif" size="2">|<O>|</font></div><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">================================================</span><br></div></div></div><div style="font-size:small"><font face="arial, helvetica, sans-serif">GEO, </font>-22.2752, -54.8182, 408m<span style="font-family:arial,helvetica,sans-serif"><br></span></div><div style="font-size:12.8px"><span style="font-size:small;font-family:arial,helvetica,sans-serif">UTC-04:00 / DST: UTC-03:00</span></div><div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div></div></div>