From e1a526b04d76afe24c75c9203d26195081e6cfaf Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Mon, 24 Feb 2020 16:12:14 -0300
Subject: [PATCH] Includes corrections made by Allaman.

---
 10-fatorial-duplo-1-adicional.Rmd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/10-fatorial-duplo-1-adicional.Rmd b/10-fatorial-duplo-1-adicional.Rmd
index 94b7db6..e34b4bb 100644
--- a/10-fatorial-duplo-1-adicional.Rmd
+++ b/10-fatorial-duplo-1-adicional.Rmd
@@ -192,7 +192,8 @@ feita.
 ```{r}
 # Linhas distintas da matriz do modelo com as colunas de efeitos
 # estimáveis.
-unname(unique(model.matrix(m0)[, which(!is.na(coef(m0)))]))
+s <- names(coef(m0))[!is.na(coef(m0))]
+unname(unique(model.matrix(m0)[, s]))
 ```
 
 O 2º coeficiente corresponde ao efeito do fator A. Ele possui 2 níveis
-- 
GitLab