<div dir="ltr">Pessoal;<div><br></div><div>Novamente recorro a ajuda de vcs...</div><div><br></div><div>Preciso analisar um experimento em esquema fatorial duplo em blocos casualizados com diferentes números de repetições.</div>
<div>Mas estou tendo dificuldades em obter as médias ajustadas para cada fator, pois a interação foi não significativa.</div><div><br></div><div>Por favor, vejam a rotina abaixo:</div><div><br></div><div>anava1=aov(QEA~especie*adesivo+Bloco)</div>
<div>Anova(anava1,type="III") <br></div><div><div><br></div><div><br></div><div><div># ajuste do modelo aditivo com teste F marginal</div><div><br></div><div>m1 <- lm(QEA~especie*adesivo+Bloco)</div><div>drop1(m1, test="F")</div>
<div><br></div><div># estimativas dos efeitos (solução) sob a restrição do R</div><div><br></div><div>summary(m1)</div><div><br></div><div># obtenção das médias ajustadas dos níveis de tratamento</div><div><br></div><div>
require(contrast)</div><div><br></div><div>lapply(levels(especie),</div><div>       function(i){</div><div>         contrast(m1, type="average", list(especie=i, adesivo=levels(adesivo)))</div><div>       }</div>
<div>)</div></div><div><br></div><div><br></div><div><div>Erro em generateData(fit = list(coefficients = c(9.49304920888927, -3.79433616881114,  : not enough factors</div></div><div><br></div><div><br></div><div><br></div>
<div style>Meus sinceros agradecimentos.</div><div style><br></div>-- <br>Thiago de Paula Protásio<div>Acadêmico de Engenharia Florestal</div><div>Universidade Federal de Lavras</div><div>Departamento de Ciências Florestais</div>
<div>Ciência e Tecnologia da Madeira</div><div>(035) 9183 - 2246</div><div><br></div>
</div></div>