<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Na realidade tem como você enganar a glht() para usar a cld() mesmo sem passar para o argumento linfct= algo produzido pela mcp(). Foi preciso abrir a função para encontrar como fazer. Essa é a maravilha do software livre código aberto! Você pode visitar essa análise e ver como fiz, basicamente criei elementos não nulos na lista retornada pela glht().<br><br><a href="http://www.leg.ufpr.br/~walmes/analises/GBTognon/ivg_tridentata.html">http://www.leg.ufpr.br/~walmes/analises/GBTognon/ivg_tridentata.html</a><br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">A parte que destaco da análise é essa<br><pre><code class=""><span class="">Xc</span> <span class=""><-</span> <span class="">apc</span><span class="">(</span><span class="">Xm</span>, <span class="">lev</span><span class="">=</span><span class="">lev</span><span class="">)</span>
<span class="">g0</span> <span class=""><-</span> <span class="">summary</span><span class="">(</span><span class="">glht</span><span class="">(</span><span class="">m2</span>, <span class="">linfct</span><span class="">=</span><span class="">Xc</span><span class="">)</span>, <span class="">test</span><span class="">=</span><span class="">adjusted</span><span class="">(</span><span class="">type</span><span class="">=</span><span class="">"fdr"</span><span class="">)</span><span class="">)</span>

<span class="">source</span><span class="">(</span><span class="">"/home/walmes/Dropbox/Public/mycld.R"</span><span class="">)</span>

<span class="">## g0</span>

<span style="color:rgb(0,0,255)"><span class="">g0</span><span class="">$</span><span class="">focus</span> <span class=""><-</span> <span class="">"Tratamentos"</span>
<span class="">g0</span><span class="">$</span><span class="">Type</span> <span class=""><-</span> <span class="">"Tukey"</span>
</span><span class="">grid</span><span class="">$</span><span class="">cld</span> <span class=""><-</span> <span class="">my.cld</span><span class="">(</span><span class="">g0</span><span class="">)</span><span class="">$</span><span class="">mcletters</span><span class="">$</span><span class="">Letters</span></code></pre><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Se não me falhe a memória, essa função my.cld eu refiz e renomeei para cld2. Está disponível em <a href="https://github.com/walmes/wzRfun/blob/master/R/cld2.R">https://github.com/walmes/wzRfun/blob/master/R/cld2.R</a>. Alguma adaptação será necessária.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Esse outro script <a href="http://www.leg.ufpr.br/~walmes/cursoR/geneticaEsalq/script20.html">http://www.leg.ufpr.br/~walmes/cursoR/geneticaEsalq/script20.html</a> usa a cld2().<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><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>