<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Walmes;<br><br>Eu não estou conseguindo reproduzir  o exemplo que vc indicou na página do LEG!<br>Dê uma olhada no erro que apareceu.......<br><br>Obrigado!!!<br>Este exemplo será muito útil, pois tb tenho que avaliar um experimento com repetições perdidas.......<br><br><br># lista com as matrizes dos contrastes que específicam o desdobramento A dentro de B<br>>  <br>> c.X <- sapply(jj, simplify=FALSE,<br>+               function(j){<br>+                 sapply(1:nrow(p.contr),<br>+                       
 function(i){<br>+                          c.contr <- contrast(m0,<br>+                                              list(A=p.contr[i,1], B=j),<br>+                                              list(A=p.contr[i,2], B=j))<br>+                         
 c.contr$X<br>+                        })})<br>Erro em library(sandwich) : não há nenhum pacote chamado 'sandwich'<br>> c.X<br>Erro: objeto 'c.X' não encontrado<br>>  <br>> #------------------------------------------------------------------------------------------<br>> # usando a glht para desdobrar, cada entrada da lista é um nível de B<br>>  <br>> mc.contr <- sapply(c.X, simplify=FALSE,<br>+                    function(X){<br>+                      summary(glht(m0, linfct=t(X)))<br>+                    })<br>Erro
 em is.vector(X) : objeto 'c.X' não encontrado<br>> mc.contr<br>Erro: objeto 'mc.contr' não encontrado<br>> <br><br><br>Thiago de Paula Protásio<br>
Acadêmico de Engenharia Florestal<br>
Universidade Federal de Lavras<br>
Laboratório de Energia da Biomassa Florestal<br>
Laboratório de Biomateriais<br>
(035) 9183-2246</td></tr></table>