<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Walmes,<br>
<br>
Muito mais eficiente que fazer na mão, problema resolvido
e abordagem adotada.<br>
<br>
Obrigado,<br>
<br>
Alexandre<br>
<br>
<br>
<div class="moz-cite-prefix">Em 09/05/2014 11:14, walmes . escreveu:<br>
</div>
<blockquote
cite="mid:CAFU=EkZkE1dWpz+tP+v5_5TEAmY4cu08Lr83RqchEEC=9LXC3A@mail.gmail.com"
type="cite"><span style="font-family:courier new,monospace"><br>
##-----------------------------------------------------------------------------<br>
## No caso de desdobrar interação dupla.<br>
<br>
M <- LSmatrix(g0, effect=c("a","b"))<br>
grid <- attr(M, "grid")<br>
<br>
## Matriz de contrastes entre níveis de `focus` dentro dos
níveis de<br>
## `split`.<br>
split <- c("b")<br>
focus <- "a"<br>
spl <- interaction(grid[,split])<br>
i <- 1:nrow(grid)<br>
l <- split(i, f=spl)<br>
contr <- lapply(l,<br>
function(row){<br>
## Matriz de contrastes par a par.<br>
a <- apc(M[row,], lev=levels(d[,focus]))<br>
## Prefixo no nome das linhas.<br>
rownames(a) <- paste(spl[row[1]],<br>
rownames(a), sep="/")<br>
return(a)<br>
})<br>
contr <- do.call(rbind, contr)<br>
contr<br>
<br>
## Constrastes.<br>
summary(glht(g0, linfct=contr),<br>
test=adjusted(type="fdr"))<br>
<br>
##-----------------------------------------------------------------------------<br>
## Representando em um gráfico média com IC.<br>
<br>
grid <- attr(M, "grid")<br>
grid <- sapply(grid, function(x) if(is.character(x))
factor(x) else x)<br>
means <- confint(glht(g0, linfct=M),
calpha=univariate_calpha())<br>
grid <- cbind(data.frame(grid), means$confint)<br>
str(grid)<br>
<br>
segplot(a~lwr+upr|b, data=grid, draw=FALSE, centers=Estimate)<br>
<br>
##-----------------------------------------------------------------------------</span></blockquote>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</body>
</html>