Pessoal da lista:<div>Minha duvida:<div><div>require(lme4)</div><div>require(multcomp)</div><div>## Exemplo no lme4 moodificado</div><div>fm2 &lt;- lmer(Reaction ~ Days/Subject + (0+Days|Subject), sleepstudy)</div><div>summary(fm2)</div>
<div># Tenho interesse neste contraste por exemplo:</div><div>summary(glht(fm2,c(&#39;Days:Subject3-Days:Subject1 = 0&#39;)) )</div><div>## Funcionou...</div><div>## Agora com meus dados querro coisa semelhante</div><div>
<br></div><div>### Agora com meu conjunto de dados:  </div><div>DADOSS &lt;- expand.grid(sitio=1,ponto=as.character(c(&#39;SS&#39;)),serie=2,camara=as.character(LETTERS[1:5]),tempo=c(0,15,30,45),armazen=c(&#39;VIDRO&#39;,&#39;HEAD&#39;,&#39;PP&#39;))</div>
<div>DADOSS &lt;- rbind(DADOSS,expand.grid(sitio=1,ponto=as.character(c(&#39;SL&#39;)),serie=2,camara=as.character(LETTERS[6:10]),tempo=c(0,15,30,45),armazen=c(&#39;VIDRO&#39;,&#39;HEAD&#39;,&#39;PP&#39;)))</div><div>DADOSS &lt;- rbind(DADOSS,expand.grid(sitio=1,ponto=as.character(c(&#39;SL&#39;,&#39;SS&#39;)),serie=2,camara=&#39;Z&#39;,tempo=1:2,armazen=c(&#39;VIDRO&#39;,&#39;HEAD&#39;,&#39;PP&#39;)))</div>
<div>DADOSS$ID &lt;- paste(DADOSS[,1],DADOSS[,2],DADOSS[,3],DADOSS[,4],DADOSS[,5],DADOSS[,6],sep=&#39;&#39;,collapse = NULL)</div><div>DADOSS$camaraM &lt;- paste(DADOSS$sitio,DADOSS$ponto,DADOSS$camara,sep=&#39;&#39;)</div>
<div>DADOSS$resp &lt;- rnorm(nrow(DADOSS))</div><div><br></div><div>model &lt;- lmer(resp~armazen/tempo+(1|camaraM)+(1|ponto),DADOSS)</div><div>summary(model)</div><div>anova(model)</div><div>### Eu tenho interesse apenas em este contraste (e nos outros que envolvem a interação ):</div>
<div>summary(glht(model,c(&#39;armazenVIDRO:tempo-armazenPP:tempo = 0&#39;)))</div><div>## PQ não funciona????????????(Apesar de ter pouco cabelo, já arranquei alguns para tentar descobrir....)</div><div># OBS: tempo é númerico mesmo....</div>
<div>## Alguma dica?</div></div></div><div>## Tem formas mais inteligente de comparar interação com multcomp?</div><div>Att</div><div><br></div>