<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US">Estou tentando usar a função glht com uma lista de contrastes. Tem solução? </span></div><div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US"><br></span></div><div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US"><br></span></div><div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US">require(multcomp)<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US"> </span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US">x=structure(list(t = structure(c(1L, 1L, 2L, 2L, 3L,
3L, 4L, 4L<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US">), .Label = c("t1", "t2",
"t3", "t4"), class = "factor"), r = c(5L, <o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US">6L, 23L, 29L, 12L, 16L, 45L, 49L)), .Names =
c("t", "r"), class = "data.frame", row.names =
c(NA, <o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US">-8L))<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; "><span lang="EN-US" style="font-size:12.0pt;line-height:115%;
font-family:"Arial","sans-serif";mso-ansi-language:EN-US"><o:p> </o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; "><span lang="EN-US" style="font-size:12.0pt;line-height:115%;
font-family:"Arial","sans-serif";mso-ansi-language:EN-US">m=lm(r~t, data=x)<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";mso-ansi-language:
EN-US"> </span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";mso-ansi-language:
EN-US">teste3=glht (m, linfct = mcp(t =
"Tukey" ))<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";mso-ansi-language:
EN-US">mc=teste3$linfct<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US"> </span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><span lang="EN-US" style="font-size:12.0pt;font-family:"Arial","sans-serif";
mso-ansi-language:EN-US"> </span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; ">y=row.names(mc)<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; "> </span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; ">dd=list(y[c(1,2)],y[3])<o:p></o:p></span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; "> </span></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; ">c=lapply(dd, function(ddi)
{ mc[ddi,] })<o:p></o:p></span></div><div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; "><br></span></div><div class="MsoNormal" style="margin-bottom: 0.0001pt; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: white; "><span style="font-family: Arial, sans-serif; font-size: 12pt; background-color: white; "> </span><br></div>
<div class="MsoNormal" style="font-family: arial, helvetica, sans-serif; margin-bottom: 0.0001pt; "><b><span lang="EN-US" style="font-size: 12pt; font-family: Arial, sans-serif; "># ?????<o:p></o:p></span></b></div>
<span lang="EN-US" style="font-size: 12pt; line-height: 115%; font-family: Arial, sans-serif; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: yellow; ">lapply(c, function(ci) {</span><span lang="EN-US" style="font-size: 12pt; line-height: 115%; font-family: Arial, sans-serif; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: yellow; background-position: initial initial; background-repeat: initial initial; "> summary(glht(m,
linfct =ci))</span><span lang="EN-US" style="font-size: 12pt; line-height: 115%; font-family: Arial, sans-serif; background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: yellow; "> })</span></div></div></body></html>