<div dir="ltr">Um for resolve isso:<div><br></div><div><div>dados <- read.table('C:/Users/rcoster/Downloads/RCBD_dad_B.RData.txt', header=T)</div><div><br></div><div>mat <- matrix(0, 20, 20)</div><div>for (i in 1:20) {</div>
<div> for (j in i:20) {</div><div>  mat[i,j] <- mat[j,i] <- t.test(subset(dados, Treat == i)$y, y = subset(dados, Treat == j)$y, var.equal = FALSE)$p.value</div><div> }</div><div>}</div></div><div><br></div><div>Mas não é o caso de se usar ANOVA e depois Tukey?</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-11 15:37 GMT-03:00 Luiz Roberto Martins Pinto <span dir="ltr"><<a href="mailto:luizroberto.uesc@gmail.com" target="_blank">luizroberto.uesc@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Éder,<div><br></div><div>Agradeço a sugestão, mas esta função usa '<span style="font-size:medium;font-family:'Times New Roman'">The </span><code style><a href="http://pool.sd" target="_blank">pool.sd</a></code><span style="font-size:medium;font-family:'Times New Roman'"> switch calculates a common SD for all groups</span>'. E eu preciso de uma função que viabilize a utilização de variancias diferentes para os tratamentos.</div>

<div><br></div><div>Luiz Roberto</div></div><div class="gmail_extra"><div class=""><br clear="all"><div><div>Luiz Roberto Martins Pinto<br>Prof. Pleno/DCET/UESC</div><div>Laboratório de Estatística Computacional</div><div>
Universidade Estadual de Santa Cruz</div>
<div>Ilhéus-Bahia<br><br><a href="mailto:luizroberto.uesc@gmail.com" target="_blank">luizroberto.uesc@gmail.com</a><br>skype: lrmpinto</div>
<div><a href="http://lattes.cnpq.br/2732314327604831" target="_blank">http://lattes.cnpq.br/2732314327604831</a> <br><br><br></div></div>
<br><br></div><div class="gmail_quote">Em 11 de março de 2014 15:31, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<div dir="ltr">Luiz Roberto, boa tarde!<div><br></div><div>Já consultou a função <font face="courier new, monospace">pairwise.t.test()</font> também do pacote <font face="courier new, monospace">stats</font>?</div><div><br>


</div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>


Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>