Walmes;

Eu não estou conseguindo reproduzir  o exemplo que vc indicou na página do LEG!
Dê uma olhada no erro que apareceu.......

Obrigado!!!
Este exemplo será muito útil, pois tb tenho que avaliar um experimento com repetições perdidas.......


# lista com as matrizes dos contrastes que específicam o desdobramento A dentro de B

> c.X <- sapply(jj, simplify=FALSE,
+               function(j){
+                 sapply(1:nrow(p.contr),
+                        function(i){
+                          c.contr <- contrast(m0,
+                                              list(A=p.contr[i,1], B=j),
+                                              list(A=p.contr[i,2], B=j))
+                          c.contr$X
+                        })})
Erro em library(sandwich) : não há nenhum pacote chamado 'sandwich'
> c.X
Erro: objeto 'c.X' não encontrado

> #------------------------------------------------------------------------------------------
> # usando a glht para desdobrar, cada entrada da lista é um nível de B

> mc.contr <- sapply(c.X, simplify=FALSE,
+                    function(X){
+                      summary(glht(m0, linfct=t(X)))
+                    })
Erro em is.vector(X) : objeto 'c.X' não encontrado
> mc.contr
Erro: objeto 'mc.contr' não encontrado
>


Thiago de Paula Protásio
Acadêmico de Engenharia Florestal
Universidade Federal de Lavras
Laboratório de Energia da Biomassa Florestal
Laboratório de Biomateriais
(035) 9183-2246