<font face="trebuchet ms,sans-serif">É como o Benilton disse, vai ter que montar a matriz que identifica esse contraste do desdobramento. É possível pegar uma atalho usando a contrast::contrast(), e passar a matriz para a multcomp::glht() usar. Porém, os seus dados só apresentaram interação porque eles têm superdispersão. Se usar um modelo quasiPoisson, a interação some. De qualquer forma segue o código **reproduzível** para você. Evite dados em anexo. Torne as coisas o mais fácil possível para quem quer te ajudar. A coisa tem que reproduzir com um ctrol+c ctrol+v.<br>
<br><span style="font-family: courier new,monospace;">da <- read.table("clipboard", header=TRUE, sep="\t") # tive que ler do arquivo anexo</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">names(da) <- tolower(names(da))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">da <- transform(da, avali=factor(avali), trat=factor(trat))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"># tive que passar para fator (isso não é código reproduzível)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">dput(da) # cole o dput dos seus dados na mensagem, o código fica reproduzível com 1 ctrol+c</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"># na mensagem faça assim, carrege os dados pelo resultado do dput()</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">da <-</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> structure(list(avali = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("1", "2", "3"), class = "factor"),</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">trat = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> 2L, 2L, 2L, 2L, 2L), .Label = c("1", "2"), class = "factor"),</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">nasc = c(53L, 98L, 51L, 62L, 55L, 98L, 104L, 32L, 96L, 51L,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> 5L, 6L, 3L, 67L, 1L, 2L, 8L, 2L, 102L, 2L, 11L, 15L, 7L,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> 4L, 6L, 11L, 15L, 37L, 33L, 17L)), .Names = c("avali", "trat",</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">"nasc"), row.names = c(NA, -30L), class = "data.frame")</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">mod.p1 <- glm(nasc~avali*trat, family=poisson(link="log"), data=da,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> contrasts=list(avali="contr.sum", trat="contr.sum"))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">an.p1 <- anova(mod.p1, test="Chisq")</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">an.p1 # superdispersão!!!</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">mod.p2 <- glm(nasc~avali*trat, family=quasipoisson(link="log"), data=da,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> contrasts=list(avali="contr.sum", trat="contr.sum"))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">an.p2 <- anova(mod.p2, test="F")</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">an.p2 # sem interação, que foi causada pela suposição de equidispersão</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">#------------------------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"># você vai ter que montar as matrizes dessas interações, um meio fácil é usar a contrast()</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">require(contrast)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">c0 <- contrast(mod.p2,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> list(avali=levels(da$avali), trat="1"),</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> list(avali=levels(da$avali), trat="2"))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">c0</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">c0$X</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"># acabou que a interação trat dentro de avali foi desdobrada com a contrast</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"># usando a multicomp passando a matriz do contraste</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">library(multcomp)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">glht.mod1 <- glht(mod.p2, linfct=c0$X)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">summary(glht.mod1)</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">#------------------------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;">
<br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>