<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
{font-family:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
code
{mso-style-priority:99;
font-family:"Courier New";}
pre
{mso-style-priority:99;
mso-style-link:"Pré-formatação HTML Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
span.Pr-formataoHTMLChar
{mso-style-name:"Pré-formatação HTML Char";
mso-style-priority:99;
mso-style-link:"Pré-formatação HTML";
font-family:Consolas;}
span.EstiloDeEmail20
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=PT-BR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-family:"Arial","sans-serif";color:#1F497D'>Poderia
fornecer o arquivo mycld.R para rodar?</span><span style='font-family:"Arial","sans-serif"'><o:p></o:p></span></p>
<p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p>
<div>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><span 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><o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-family:"Trebuchet MS","sans-serif"'>A
parte que destaco da análise é essa<o:p></o:p></span></p>
<pre><code>Xc <- apc(Xm, lev=lev)<o:p></o:p></code></pre><pre><code>g0 <- summary(glht(m2, linfct=Xc), test=adjusted(type="fdr"))<o:p></o:p></code></pre><pre><code><o:p> </o:p></code></pre><pre><code>source("/home/walmes/Dropbox/Public/mycld.R")<o:p></o:p></code></pre><pre><code><o:p> </o:p></code></pre><pre><code>## g0<o:p></o:p></code></pre><pre><code><o:p> </o:p></code></pre><pre><code><span
style='color:blue'>g0$focus <- "Tratamentos"<o:p></o:p></span></code></pre><pre><code><span
style='color:blue'>g0$Type <- "Tukey"<o:p></o:p></span></code></pre><pre><code>grid$cld <- my.cld(g0)$mcletters$Letters</code><o:p></o:p></pre>
<p class=MsoNormal><span style='font-family:"Trebuchet MS","sans-serif"'><o:p> </o:p></span></p>
</div>
<div>
<p class=MsoNormal><span 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.<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span 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().<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-family:"Trebuchet MS","sans-serif"'><br>
À disposição.<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-family:"Trebuchet MS","sans-serif"'>Walmes.<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span style='font-family:"Trebuchet MS","sans-serif"'><o:p> </o:p></span></p>
</div>
</div>
</div>
<br /><br />
<hr style='border:none; color:#909090; background-color:#B0B0B0; height: 1px; width: 99%;' />
<table style='border-collapse:collapse;border:none;'>
<tr>
<td style='border:none;padding:0px 15px 0px 8px'>
<a href="https://www.avast.com/antivirus">
<img border=0 src="http://static.avast.com/emails/avast-mail-stamp.png" alt="Avast logo" />
</a>
</td>
<td>
<p style='color:#3d4d5a; font-family:"Calibri","Verdana","Arial","Helvetica"; font-size:12pt;'>
Este email foi escaneado pelo Avast antivírus.
<br><a href="https://www.avast.com/antivirus">www.avast.com</a>
</p>
</td>
</tr>
</table>
<br />
</body>
</html>