diff --git a/R/NetoTb3A.1.R b/R/NetoTb3A.1.R
index ef28cc600557f4982c8d74b5feba5e09744fe751..f40d9c3cc7422b0042280998a9bff961794d3b12 100644
--- a/R/NetoTb3A.1.R
+++ b/R/NetoTb3A.1.R
@@ -1,24 +1,24 @@
#' @name NetoTb3A.1
-#' @title Hidrólise de Resinas
-#' @description Planejamento 2^3 em duplicata para estudar o efeito de 3
-#' fatores no grau de substituição numa resina clorometilada.
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#' @title Efeito de Três Fatores no Grau de Subistituição numa Resina
+#' @description Planejamento \eqn{2^3}, em duplicata, para estudar o
+#' efeito de 3 fatores no grau de substituição numa resina
+#' clorometilada.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, tempo de hidrólise, em horas.}
#'
-#' \item{\code{f1}}{Fator 1, tempo de hidrólise.}
-#'
-#' \item{\code{f2}}{Fator 2, temperatura.}
-#'
-#' \item{\code{f3}}{Fator 3, catalisador.}
+#' \item{\code{f2}}{Fator 2, temperatura da hidrólise, em grau celsius.}
+#'
+#' \item{\code{f3}}{Fator 3, tipo de catalisador: Acído trifluoracético
+#' (-) e acído propiônico (+), ambos em HCl 12M.}
#'
#' \item{grau}{grau de substituição.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.1, pág. 145.
#' @examples
#'
#' library(lattice)
@@ -26,10 +26,11 @@
#' data(NetoTb3A.1)
#' str(NetoTb3A.1)
#'
+#' ftable(xtabs(~f1 + f2 + f3, data = NetoTb3A.1))
+#'
#' xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
#' type = c("p", "a"), auto.key = TRUE,
#' xlab = "Tempo de Hidrólise",
#' ylab = "Grau de Substituição")
#'
-#'
NULL
diff --git a/R/NetoTb3A.2.R b/R/NetoTb3A.2.R
index 103bfbdb6115793bed7834e6eeea2bba2a8cc189..d11efc796d95e91d9815bbfa7ed7eb0d6a1fe5a3 100644
--- a/R/NetoTb3A.2.R
+++ b/R/NetoTb3A.2.R
@@ -1,51 +1,50 @@
#' @name NetoTb3A.2
#' @title Voltametria Cíclica do Azul de Metileno
#' @description As propriedades eletroquímicas do azul de metileno foram
-#' investigadas com o objetivo de determinar as condições
-#' experimentais que minimizam a diferença de voltagem (delta).
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' investigadas com o objetivo de determinar as condições
+#' experimentais, controlando três fatores, que minimizam a
+#' diferença de voltagem (delta).
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
#'
-#' \item{\code{f1}}{Fator 1, concentração.}
-#'
-#' \item{\code{f2}}{Fator 2, ph.}
-#'
-#' \item{\code{f3}}{Fator 3, sílica modificada.}
-#'
-#' \item{\code{delta}}{diferença de voltagem..}
+#' \item{\code{f2}}{Fator 2, pH (4 e 7).}
+#'
+#' \item{\code{f3}}{Fator 3, tipo de sílica modificada (STM e STPM).}
+#'
+#' \item{\code{delta}}{Diferença de voltagem (mV).}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.2, pág. 147.
#' @examples
#'
#' data(NetoTb3A.2)
#' str(NetoTb3A.2)
#'
-#' par(mfrow = c(1,3))
-#'
-#' with(NetoTb3A.2, interaction.plot(f1, f2, delta,
-#' xlab = "Concentração",
-#' ylab = "Média de Delta",
-#' main = "Interação entre
-#' Concentração e PH",
-#' col = "green"))
-#'
-#' with(NetoTb3A.2, interaction.plot(f1, f3, delta,
-#' xlab = "Concentração",
-#' ylab = "Sílica Modificada",
-#' main = "Interação entre
-#' Concentração e Sílica Modificada",
-#' col = "blue"))
-#'
-#' with(NetoTb3A.2, interaction.plot(f2, f3, delta,
-#' xlab = "PH",
-#' ylab = "Sílica Modificada",
-#' main = "Interação entre
-#' PH e Sílica Modificada",
-#' col = "red"))
-#'
+#' par(mfrow = c(1, 3))
+#'
+#' with(NetoTb3A.2,
+#' interaction.plot(f1, f2, delta,
+#' xlab = "Concentração",
+#' ylab = "Média de Delta",
+#' main = "Concentração x PH",
+#' col = "green"))
+#'
+#' with(NetoTb3A.2,
+#' interaction.plot(f1, f3, delta,
+#' xlab = "Concentração",
+#' ylab = "Sílica Modificada",
+#' main = "Concentração x Sílica Modificada",
+#' col = "blue"))
+#'
+#' with(NetoTb3A.2,
+#' interaction.plot(f2, f3, delta,
+#' xlab = "PH",
+#' ylab = "Sílica Modificada",
+#' main = "PH x Sílica Modificada",
+#' col = "red"))
+#'
NULL
diff --git a/R/NetoTb3A.3.R b/R/NetoTb3A.3.R
index 6bd32e21ed97e442f8fe0c604bef8f77d128d617..11359245a7414fbbfb9d90de3291bb388945a0cc 100644
--- a/R/NetoTb3A.3.R
+++ b/R/NetoTb3A.3.R
@@ -1,25 +1,23 @@
#' @name NetoTb3A.3
#' @title Tempo de Retenção em Cromatografia Líquida
-#' @description Um fatorial foi usado para investigar como o tempo de
-#' retenção de um pico obtido em um cromatógrafo líquido é afetado
-#' pela porcentagem de etanol, temperatura e fluxo de gás.
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' @description Um fatorial foi usado para investigar como o tempo de
+#' retenção de um pico obtido em um cromatógrafo líquido é afetado
+#' pela porcentagem de etanol, temperatura e fluxo de gás.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
#'
-#' \item{\code{f1}}{Fator 1, temperatura.}
-#'
-#' \item{\code{f2}}{Fator 2, porcentagem de etanol.}
-#'
-#' \item{\code{f3}}{Fator 3, fluxo.}
-#'
-#' \item{\code{temp}}{tempo de retenção.}
+#' \item{\code{f2}}{Fator 2, porcentagem de etanol (v/v, 60 e 70).}
+#'
+#' \item{\code{f3}}{Fator 3, fluxo, em mL min\eqn{^{-1}}.}
+#'
+#' \item{\code{temp}}{Tempo de retenção, em minutos.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+#' @keywords FAT2K
+#' @source NETO el al. (2010), Tabela 3A.3, pág. 149.
#' @examples
#'
#' data(NetoTb3A.3)
@@ -27,25 +25,25 @@
#'
#' par(mfrow = c(1,3))
#'
-#' with(NetoTb3A.3, interaction.plot(f1, f2, temp,
-#' xlab = "Temperatura",
-#' ylab = "Tempo Médio",
-#' main = "Interação entre
-#' Temperatura e % de etanol",
-#' col = "green"))
-#'
-#' with(NetoTb3A.3, interaction.plot(f1, f3, temp,
-#' xlab = "Temperatura",
-#' ylab = "Tempo Médio",
-#' main = "Interação entre
-#' Temperatura e Fluxo",
-#' col = "blue"))
-#'
-#' with(NetoTb3A.3, interaction.plot(f2, f3, temp,
-#' xlab = "% de etanol",
-#' ylab = "Tempo Médio",
-#' main = "Interação entre % de
-#' etanol e Fluxo",
-#' col = "red"))
-#'
+#' with(NetoTb3A.3,
+#' interaction.plot(f1, f2, temp,
+#' xlab = "Temperatura",
+#' ylab = "Tempo Médio",
+#' main = " Temperatura x Etanol",
+#' col = "green"))
+#'
+#' with(NetoTb3A.3,
+#' interaction.plot(f1, f3, temp,
+#' xlab = "Temperatura",
+#' ylab = "Tempo Médio",
+#' main = " Temperatura x Fluxo",
+#' col = "blue"))
+#'
+#' with(NetoTb3A.3,
+#' interaction.plot(f2, f3, temp,
+#' xlab = "% de etanol",
+#' ylab = "Tempo Médio",
+#' main = "Etanol x Fluxo",
+#' col = "red"))
+#'
NULL
diff --git a/R/NetoTb3A.4.R b/R/NetoTb3A.4.R
index 6a6e98e5ed5ca742086582e849f181fdf75ddcaf..ce814759c56413696da8f1df051143ee9672eb53 100644
--- a/R/NetoTb3A.4.R
+++ b/R/NetoTb3A.4.R
@@ -1,35 +1,39 @@
#' @name NetoTb3A.4
#' @title Separação de Gases por Adsorção
-#' @description No desenvolvimento em laboratório de um processo de
-#' enriquecimento de gases por adsorção , investigou-se a influência
-#' de quatro fatores.
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @description No desenvolvimento em laboratório de um processo de
+#' enriquecimento de gases por adsorção, usou-se um planejamento
+#' \eqn{2^4} para investigar a influência de quatro fatores na
+#' produtividade do adsorvente.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
#'
-#' \item{\code{f1}}{Fator 1, pressão de adsorção.}
-#'
-#' \item{\code{f2}}{Fator 2, pressão de dessorção.}
-#'
-#' \item{\code{f3}}{Fator 3, vazão de alimentação.}
-#'
-#' \item{\code{f4}}{Fator 4, tempo de adsorção.}
-#'
-#' \item{\code{p}}{Produtividade do adsorvente.}
+#' \item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
+#'
+#' \item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+#' hora\eqn{^{-1}}).}
+#'
+#' \item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
+#'
+#' \item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+#' ciclo\eqn{^{-1}}.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.4, pág. 151.
#' @examples
#'
#' library(lattice)
-#'
+#'
#' data(NetoTb3A.4)
#' str(NetoTb3A.4)
#'
-#' xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#' data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
-#'
+#' xyplot(p ~ f1 | f2,
+#' groups = interaction(f3, f4, sep = ":"),
+#' data = NetoTb3A.4,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
+#'
NULL
diff --git a/R/NetoTb3A.5.R b/R/NetoTb3A.5.R
index e6329c4c9f117e833870c87042772f6c648d788a..a896bd87035e11b346eedce9e307d8269c4a92e6 100644
--- a/R/NetoTb3A.5.R
+++ b/R/NetoTb3A.5.R
@@ -1,35 +1,39 @@
#' @name NetoTb3A.5
#' @title Melhorando Funções de Onda
-#' @description Pesquisadores estavam interessados em avaliar como
+#' @description Pesquisadores estavam interessados em avaliar como
#' alguns parâmetros usados para especificar a função de onda iriam
-#' afetar a frequência.
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+#' investigar a influência de 4 fatores.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, conjunto de base (6-31G e 6-311G).}
+#'
+#' \item{\code{f2}}{Fator 2, funções de polarização (ausente e
+#' presente).}
+#'
+#' \item{\code{f3}}{Fator 3, funções difusas (usente e presente).}
+#'
+#' \item{\code{f4}}{Fator 4, correlação eletrônica (Hartree-Fock e
+#' MP2).}
#'
-#' \item{\code{f1}}{Fator 1, conjunto de base.}
-#'
-#' \item{\code{f2}}{Fator 2, funções de polarização.}
-#'
-#' \item{\code{f3}}{Fator 3, funções difusas.}
-#'
-#' \item{\code{f4}}{Fator 4, correlação eletrônica.}
-#'
#' \item{\code{freq}}{Frequência resultante.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.5, pág.154)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.5, pág. 154.
#' @examples
#'
#' library(lattice)
-#'
+#'
#' data(NetoTb3A.5)
#' str(NetoTb3A.5)
#'
-#' xyplot(freq ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#' data = NetoTb3A.5, type = c("p", "a") , auto.key = TRUE)
-#'
+#' xyplot(freq ~ f1 | f2,
+#' groups = interaction(f3, f4, sep = ":"),
+#' data = NetoTb3A.5,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
+#'
NULL
diff --git a/R/NetoTb3A.6.R b/R/NetoTb3A.6.R
index 3e8d4437d1682e6a44b06ef4b8cbd12d2177d216..8558d3664a99e64011d77bd31f3f909c471be577 100644
--- a/R/NetoTb3A.6.R
+++ b/R/NetoTb3A.6.R
@@ -1,37 +1,40 @@
#' @name NetoTb3A.6
-#' @title Desempenho de Eletrodos
-#' @description O planejamento em fatorial foi usado para investigar
-#' como cinco fatores influenciam o desempenho de eletrodos na
-#' eletroredução de nitrobenzeno.
+#' @title Desempenho de Eletrodos de Ti/TiO\eqn{_2}
+#' @description O planejamento em fatorial \eqn{2^5} foi usado para
+#' investigar como cinco fatores influenciam o desempenho de
+#' eletrodos na eletroredução de nitrobenzeno. O desempenho foi
+#' medido em termos das cargas catódicas (mC cm\eqn{^{-2}}).
#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
#'
-#' \item{\code{f1}}{Fator 1, solução precursora.}
-#'
-#' \item{\code{f2}}{Fator 2, número de camadas.}
-#'
-#' \item{\code{f3}}{Fator 3, temperatura.}
-#'
-#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
-#'
-#' \item{\code{f5}}{Fator 5, velocidade de varredura.}
-#'
-#' \item{\code{des}}{Desempenho.}
+#' \item{\code{f2}}{Fator 2, número de camadas (2 ou 10).}
+#'
+#' \item{\code{f3}}{Fator 3, temperatura (450 e 525 \eqn{^\circ}C).}
+#'
+#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno (2 e 8 mM).}
+#'
+#' \item{\code{f5}}{Fator 5, velocidade de varredura (50 e 200 mV
+#' min\eqn{^{-1}}).}
+#'
+#' \item{\code{des}}{Desempenho de eletrodos de Ti/TiO\eqn{_2}, em mC
+#' cm\eqn{^{-2}}.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.6, pág. 156.
#' @examples
#'
#' library(lattice)
-#'
+#'
#' data(NetoTb3A.6)
#' str(NetoTb3A.6)
#'
-#' xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
-#' data = NetoTb3A.6, type = c("p", "a"))
-#'
-NULL
\ No newline at end of file
+#' xyplot(des ~ f1 | f2 + f3,
+#' groups = interaction(f4, f5),
+#' data = NetoTb3A.6,
+#' type = c("p", "a"))
+#'
+NULL
diff --git a/R/NetoTb3A.8.R b/R/NetoTb3A.8.R
index a27aa0de854ea4e0626d89fe34b4a8f3bcc63cbf..3d030f1721480f19e9aa602255109a89b70a3bee 100644
--- a/R/NetoTb3A.8.R
+++ b/R/NetoTb3A.8.R
@@ -1,31 +1,29 @@
#' @name NetoTb3A.8
-#' @title Controlando a Espuma
-#' @description Verificação de como o ponto de turvação varia com as
-#' unidades de óxido de eteno e óxido de propeno dos álcoois graxos
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#' @title Controlando a Espuma de Detergentes
+#' @description Verificação de como o ponto de turvação varia com as
+#' unidades de óxido de eteno (EO) e óxido de propeno (PO) dos
+#' álcoois graxos. Um plano experimental \eqn{2^2 + 3} pontos
+#' centrais foi utilizado.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{prod}}{Celas experimentais criadas pela combinação de EO
+#' e PO.}
#'
-#' \item{\code{prod}}{Produto.}
-#'
-#' \item{\code{EO}}{Óxido de eteno.}
-#'
-#' \item{\code{PO}}{Óxido de propeno.}
-#'
-#' \item{\code{pt}}{Ponto de turvação.}
+#' \item{\code{EO}}{Óxido de eteno (4 e 6).}
+#'
+#' \item{\code{PO}}{Óxido de propeno (4 e 6).}
+#'
+#' \item{\code{pt}}{Ponto de turvação, em \eqn{^\circ}C.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.8, pág.159)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.8, pág. 159.
#' @examples
#'
#' data(NetoTb3A.8)
#' str(NetoTb3A.8)
+#' NetoTb3A.8
#'
-#' plot(pt ~ ens, type = "o", col = 6, data = NetoTb3A.8,
-#' xlab = "Ensaio", ylab = "",
-#' main = "Ponto de Turvação em Função do Ensaio")
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb3A.9.R b/R/NetoTb3A.9.R
index 87463877c43a40f299cf82cac08c748281bf8106..0d68848d4fd1994f7c4c6e0ff2749179debe4f33 100644
--- a/R/NetoTb3A.9.R
+++ b/R/NetoTb3A.9.R
@@ -1,44 +1,48 @@
#' @name NetoTb3A.9
-#' @title Desenvolvimento de um Detergente
-#' @description Utilizou-se um planejamento fatorial para avaliar os
-#' efeitos da adoção de três ingredientes sobre o poder de
-#' branqueameto.
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' @title Desenvolvimento de um Detergente para Branqueamento de Roupas
+#' @description Utilizou-se um planejamento fatorial \eqn{2^3} para
+#' avaliar os efeitos da adoção de três ingredientes sobre o poder
+#' de branqueameto de detergentes para roupas.
+#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
+#' \item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
#' ensaios repetidos.}
#'
#' \item{\code{A}}{Aditivo A.}
-#'
+#'
#' \item{\code{B}}{Aditivo B.}
-#'
+#'
#' \item{\code{C}}{Aditivo C.}
-#'
-#' \item{\code{resp}}{Resposta, densidade ótica que mede a intensidade
-#' da luz refletida pela roupa lavada.}
+#'
+#' \item{\code{media}}{Densidade ótica que mede a intensidade da luz
+#' refletida pela roupa lavada (resposta média de 12 ensaios
+#' repetidos).}
+#'
+#' \item{\code{var}}{Variância das observações nos 12 ensaios
+#' repetidos.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.9, pág.162)
+#' @keywords FAT2K
+#' @source NETO et al. 2010, Tabela 3A.9, pág. 162.
#' @examples
#'
#' data(NetoTb3A.9)
#' str(NetoTb3A.9)
-#'
+#'
#' par(mfrow = c(1,3))
#'
-#' with(NetoTb3A.9, interaction.plot(A, B, resp,
-#' main = "Interação entre A e B",
+#' with(NetoTb3A.9, interaction.plot(A, B, media,
+#' main = "A x B",
#' col = "green"))
#'
-#' with(NetoTb3A.9, interaction.plot(A, C, resp,
-#' main = "Interação entre A e C",
+#' with(NetoTb3A.9, interaction.plot(A, C, media,
+#' main = "A x C",
#' col = "blue"))
#'
-#' with(NetoTb3A.9, interaction.plot(B, C, resp,
-#' main = "Interação entre B e C",
-#' col = "red"))
+#' with(NetoTb3A.9, interaction.plot(B, C, media,
+#' main = "B x C",
+#' col = "red"))
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data/NetoTb3A.1.rda b/data/NetoTb3A.1.rda
index 0e564db78adb4006a16a9d6096c98245450d3f7a..ac9201f847c42ecca2a9fc232d30b6a116d09c14 100644
Binary files a/data/NetoTb3A.1.rda and b/data/NetoTb3A.1.rda differ
diff --git a/data/NetoTb3A.2.rda b/data/NetoTb3A.2.rda
index 5cdad28a4b74fcfb10e67c57832c0fdea99f1289..7d328800d9d1a6d0a4cf22698744301390690502 100644
Binary files a/data/NetoTb3A.2.rda and b/data/NetoTb3A.2.rda differ
diff --git a/data/NetoTb3A.3.rda b/data/NetoTb3A.3.rda
index c8a434e13d3e5d3adf78071cc35ac2df550efb40..754823d0328298232caa4033e47c7106ff16c5c7 100644
Binary files a/data/NetoTb3A.3.rda and b/data/NetoTb3A.3.rda differ
diff --git a/data/NetoTb3A.4.rda b/data/NetoTb3A.4.rda
index 204e0b5a014c41298ed42fcfd54c65ad0a66cbd6..8f49dbf13db81a4d68efda35bc5fa325faab61b4 100644
Binary files a/data/NetoTb3A.4.rda and b/data/NetoTb3A.4.rda differ
diff --git a/data/NetoTb3A.5.rda b/data/NetoTb3A.5.rda
index a6c925d456f787f82172ac19bc26c8749c76d347..24be14a3e280d02dee63c9b9e0033006c26985e0 100644
Binary files a/data/NetoTb3A.5.rda and b/data/NetoTb3A.5.rda differ
diff --git a/data/NetoTb3A.6.rda b/data/NetoTb3A.6.rda
index 7fe77d4a638504ef13e58a9f829104d308c852ff..3e83c60ddecb86dd3c1f6ac25ac7f1f734613d2c 100644
Binary files a/data/NetoTb3A.6.rda and b/data/NetoTb3A.6.rda differ
diff --git a/data/NetoTb3A.8.rda b/data/NetoTb3A.8.rda
index 0b0ba2e42e4a8b540d042207de53ea6938644baa..75bd9264e42e80f7ff5eeb1c7588382a2ef0d017 100644
Binary files a/data/NetoTb3A.8.rda and b/data/NetoTb3A.8.rda differ
diff --git a/data/NetoTb3A.9.rda b/data/NetoTb3A.9.rda
index c0190b12bd8c7b285ec563b82600428b95805084..be34e467a0cf8ac12ae5e0f672bf0c9d2c5bef4d 100644
Binary files a/data/NetoTb3A.9.rda and b/data/NetoTb3A.9.rda differ
diff --git a/man/NetoTb3A.1.Rd b/man/NetoTb3A.1.Rd
index 69293c25e834a482df9c48b1c2f76bb8feec9734..d41d83bb955de13f090af3ef824933958295d81f 100644
--- a/man/NetoTb3A.1.Rd
+++ b/man/NetoTb3A.1.Rd
@@ -2,28 +2,28 @@
% Please edit documentation in R/NetoTb3A.1.R
\name{NetoTb3A.1}
\alias{NetoTb3A.1}
-\title{Hidrólise de Resinas}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\title{Efeito de Três Fatores no Grau de Subistituição numa Resina}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, tempo de hidrólise, em horas.}
-\item{\code{f1}}{Fator 1, tempo de hidrólise.}
+\item{\code{f2}}{Fator 2, temperatura da hidrólise, em grau celsius.}
-\item{\code{f2}}{Fator 2, temperatura.}
-
-\item{\code{f3}}{Fator 3, catalisador.}
+\item{\code{f3}}{Fator 3, tipo de catalisador: Acído trifluoracético
+ (-) e acído propiônico (+), ambos em HCl 12M.}
\item{grau}{grau de substituição.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+NETO et al. (2010), Tabela 3A.1, pág. 145.
}
\description{
-Planejamento 2^3 em duplicata para estudar o efeito de 3
- fatores no grau de substituição numa resina clorometilada.
+Planejamento \eqn{2^3}, em duplicata, para estudar o
+ efeito de 3 fatores no grau de substituição numa resina
+ clorometilada.
}
\examples{
@@ -32,12 +32,13 @@ library(lattice)
data(NetoTb3A.1)
str(NetoTb3A.1)
+ftable(xtabs(~f1 + f2 + f3, data = NetoTb3A.1))
+
xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
type = c("p", "a"), auto.key = TRUE,
xlab = "Tempo de Hidrólise",
ylab = "Grau de Substituição")
-
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.2.Rd b/man/NetoTb3A.2.Rd
index 89c3251ae2b1d81ca7762ceeb1bf33efdeb03100..96c4dc4a95b4591127ed02ebcba74d0bdf6014bb 100644
--- a/man/NetoTb3A.2.Rd
+++ b/man/NetoTb3A.2.Rd
@@ -3,57 +3,56 @@
\name{NetoTb3A.2}
\alias{NetoTb3A.2}
\title{Voltametria Cíclica do Azul de Metileno}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
-\item{\code{f1}}{Fator 1, concentração.}
+\item{\code{f2}}{Fator 2, pH (4 e 7).}
-\item{\code{f2}}{Fator 2, ph.}
+\item{\code{f3}}{Fator 3, tipo de sílica modificada (STM e STPM).}
-\item{\code{f3}}{Fator 3, sílica modificada.}
-
-\item{\code{delta}}{diferença de voltagem..}
+\item{\code{delta}}{Diferença de voltagem (mV).}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+NETO et al. (2010), Tabela 3A.2, pág. 147.
}
\description{
As propriedades eletroquímicas do azul de metileno foram
- investigadas com o objetivo de determinar as condições
- experimentais que minimizam a diferença de voltagem (delta).
+ investigadas com o objetivo de determinar as condições
+ experimentais, controlando três fatores, que minimizam a
+ diferença de voltagem (delta).
}
\examples{
data(NetoTb3A.2)
str(NetoTb3A.2)
-par(mfrow = c(1,3))
-
-with(NetoTb3A.2, interaction.plot(f1, f2, delta,
- xlab = "Concentração",
- ylab = "Média de Delta",
- main = "Interação entre
- Concentração e PH",
- col = "green"))
-
-with(NetoTb3A.2, interaction.plot(f1, f3, delta,
- xlab = "Concentração",
- ylab = "Sílica Modificada",
- main = "Interação entre
- Concentração e Sílica Modificada",
- col = "blue"))
-
- with(NetoTb3A.2, interaction.plot(f2, f3, delta,
- xlab = "PH",
- ylab = "Sílica Modificada",
- main = "Interação entre
- PH e Sílica Modificada",
- col = "red"))
-
+par(mfrow = c(1, 3))
+
+with(NetoTb3A.2,
+ interaction.plot(f1, f2, delta,
+ xlab = "Concentração",
+ ylab = "Média de Delta",
+ main = "Concentração x PH",
+ col = "green"))
+
+with(NetoTb3A.2,
+ interaction.plot(f1, f3, delta,
+ xlab = "Concentração",
+ ylab = "Sílica Modificada",
+ main = "Concentração x Sílica Modificada",
+ col = "blue"))
+
+with(NetoTb3A.2,
+ interaction.plot(f2, f3, delta,
+ xlab = "PH",
+ ylab = "Sílica Modificada",
+ main = "PH x Sílica Modificada",
+ col = "red"))
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.3.Rd b/man/NetoTb3A.3.Rd
index 007589a8d91c68e51ace5a6a9e8ff5ae5c3bf761..65baf82601758cba3f2c9d1e58fa58e84f8ab568 100644
--- a/man/NetoTb3A.3.Rd
+++ b/man/NetoTb3A.3.Rd
@@ -3,27 +3,25 @@
\name{NetoTb3A.3}
\alias{NetoTb3A.3}
\title{Tempo de Retenção em Cromatografia Líquida}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
-\item{\code{f1}}{Fator 1, temperatura.}
+\item{\code{f2}}{Fator 2, porcentagem de etanol (v/v, 60 e 70).}
-\item{\code{f2}}{Fator 2, porcentagem de etanol.}
+\item{\code{f3}}{Fator 3, fluxo, em mL min\eqn{^{-1}}.}
-\item{\code{f3}}{Fator 3, fluxo.}
-
-\item{\code{temp}}{tempo de retenção.}
+\item{\code{temp}}{Tempo de retenção, em minutos.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+NETO el al. (2010), Tabela 3A.3, pág. 149.
}
\description{
-Um fatorial foi usado para investigar como o tempo de
- retenção de um pico obtido em um cromatógrafo líquido é afetado
+Um fatorial foi usado para investigar como o tempo de
+ retenção de um pico obtido em um cromatógrafo líquido é afetado
pela porcentagem de etanol, temperatura e fluxo de gás.
}
\examples{
@@ -33,27 +31,27 @@ str(NetoTb3A.3)
par(mfrow = c(1,3))
-with(NetoTb3A.3, interaction.plot(f1, f2, temp,
- xlab = "Temperatura",
- ylab = "Tempo Médio",
- main = "Interação entre
- Temperatura e \% de etanol",
- col = "green"))
-
-with(NetoTb3A.3, interaction.plot(f1, f3, temp,
- xlab = "Temperatura",
- ylab = "Tempo Médio",
- main = "Interação entre
- Temperatura e Fluxo",
- col = "blue"))
-
- with(NetoTb3A.3, interaction.plot(f2, f3, temp,
- xlab = "\% de etanol",
- ylab = "Tempo Médio",
- main = "Interação entre \% de
- etanol e Fluxo",
- col = "red"))
-
+with(NetoTb3A.3,
+ interaction.plot(f1, f2, temp,
+ xlab = "Temperatura",
+ ylab = "Tempo Médio",
+ main = " Temperatura x Etanol",
+ col = "green"))
+
+with(NetoTb3A.3,
+ interaction.plot(f1, f3, temp,
+ xlab = "Temperatura",
+ ylab = "Tempo Médio",
+ main = " Temperatura x Fluxo",
+ col = "blue"))
+
+with(NetoTb3A.3,
+ interaction.plot(f2, f3, temp,
+ xlab = "\% de etanol",
+ ylab = "Tempo Médio",
+ main = "Etanol x Fluxo",
+ col = "red"))
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.4.Rd b/man/NetoTb3A.4.Rd
index 359f3ab29d84d7342114b1d1dda4a8f9a9248f65..8c07205bc6663b13b17c5eede32623d781240639 100644
--- a/man/NetoTb3A.4.Rd
+++ b/man/NetoTb3A.4.Rd
@@ -3,30 +3,31 @@
\name{NetoTb3A.4}
\alias{NetoTb3A.4}
\title{Separação de Gases por Adsorção}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
-\item{\code{f1}}{Fator 1, pressão de adsorção.}
+\item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
-\item{\code{f2}}{Fator 2, pressão de dessorção.}
+\item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+ hora\eqn{^{-1}}).}
-\item{\code{f3}}{Fator 3, vazão de alimentação.}
+\item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
-\item{\code{f4}}{Fator 4, tempo de adsorção.}
-
-\item{\code{p}}{Produtividade do adsorvente.}
+\item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+ ciclo\eqn{^{-1}}.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+NETO et al. (2010), Tabela 3A.4, pág. 151.
}
\description{
-No desenvolvimento em laboratório de um processo de
- enriquecimento de gases por adsorção , investigou-se a influência
- de quatro fatores.
+No desenvolvimento em laboratório de um processo de
+ enriquecimento de gases por adsorção, usou-se um planejamento
+ \eqn{2^4} para investigar a influência de quatro fatores na
+ produtividade do adsorvente.
}
\examples{
@@ -35,9 +36,12 @@ library(lattice)
data(NetoTb3A.4)
str(NetoTb3A.4)
-xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
- data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
-
+xyplot(p ~ f1 | f2,
+ groups = interaction(f3, f4, sep = ":"),
+ data = NetoTb3A.4,
+ type = c("p", "a"),
+ auto.key = TRUE)
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.5.Rd b/man/NetoTb3A.5.Rd
index 27be2fc80e952f3d4cba76444d001668f32e072b..5700eb9d003a8342e7886840cb834ce5a282fb51 100644
--- a/man/NetoTb3A.5.Rd
+++ b/man/NetoTb3A.5.Rd
@@ -3,30 +3,31 @@
\name{NetoTb3A.5}
\alias{NetoTb3A.5}
\title{Melhorando Funções de Onda}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, conjunto de base (6-31G e 6-311G).}
-\item{\code{f1}}{Fator 1, conjunto de base.}
+\item{\code{f2}}{Fator 2, funções de polarização (ausente e
+ presente).}
-\item{\code{f2}}{Fator 2, funções de polarização.}
+\item{\code{f3}}{Fator 3, funções difusas (usente e presente).}
-\item{\code{f3}}{Fator 3, funções difusas.}
-
-\item{\code{f4}}{Fator 4, correlação eletrônica.}
+\item{\code{f4}}{Fator 4, correlação eletrônica (Hartree-Fock e
+ MP2).}
\item{\code{freq}}{Frequência resultante.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.5, pág.154)
+NETO et al. (2010), Tabela 3A.5, pág. 154.
}
\description{
-Pesquisadores estavam interessados em avaliar como
+Pesquisadores estavam interessados em avaliar como
alguns parâmetros usados para especificar a função de onda iriam
- afetar a frequência.
+ afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+ investigar a influência de 4 fatores.
}
\examples{
@@ -35,9 +36,12 @@ library(lattice)
data(NetoTb3A.5)
str(NetoTb3A.5)
-xyplot(freq ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
- data = NetoTb3A.5, type = c("p", "a") , auto.key = TRUE)
-
+xyplot(freq ~ f1 | f2,
+ groups = interaction(f3, f4, sep = ":"),
+ data = NetoTb3A.5,
+ type = c("p", "a"),
+ auto.key = TRUE)
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.6.Rd b/man/NetoTb3A.6.Rd
index b5f9ad35856f87de34d2ae2ea79b735493b5fd64..15a44ea6e464b5383fb5fad8b424b0feb55c6f0f 100644
--- a/man/NetoTb3A.6.Rd
+++ b/man/NetoTb3A.6.Rd
@@ -2,33 +2,34 @@
% Please edit documentation in R/NetoTb3A.6.R
\name{NetoTb3A.6}
\alias{NetoTb3A.6}
-\title{Desempenho de Eletrodos}
+\title{Desempenho de Eletrodos de Ti/TiO\eqn{_2}}
\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
-\item{\code{f1}}{Fator 1, solução precursora.}
+\item{\code{f2}}{Fator 2, número de camadas (2 ou 10).}
-\item{\code{f2}}{Fator 2, número de camadas.}
+\item{\code{f3}}{Fator 3, temperatura (450 e 525 \eqn{^\circ}C).}
-\item{\code{f3}}{Fator 3, temperatura.}
+\item{\code{f4}}{Fator 4, concentração de nitrobenzeno (2 e 8 mM).}
-\item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
+\item{\code{f5}}{Fator 5, velocidade de varredura (50 e 200 mV
+ min\eqn{^{-1}}).}
-\item{\code{f5}}{Fator 5, velocidade de varredura.}
-
-\item{\code{des}}{Desempenho.}
+\item{\code{des}}{Desempenho de eletrodos de Ti/TiO\eqn{_2}, em mC
+ cm\eqn{^{-2}}.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+NETO et al. (2010), Tabela 3A.6, pág. 156.
}
\description{
-O planejamento em fatorial foi usado para investigar
- como cinco fatores influenciam o desempenho de eletrodos na
- eletroredução de nitrobenzeno.
+O planejamento em fatorial \eqn{2^5} foi usado para
+ investigar como cinco fatores influenciam o desempenho de
+ eletrodos na eletroredução de nitrobenzeno. O desempenho foi
+ medido em termos das cargas catódicas (mC cm\eqn{^{-2}}).
}
\examples{
@@ -37,9 +38,11 @@ library(lattice)
data(NetoTb3A.6)
str(NetoTb3A.6)
-xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
- data = NetoTb3A.6, type = c("p", "a"))
-
+xyplot(des ~ f1 | f2 + f3,
+ groups = interaction(f4, f5),
+ data = NetoTb3A.6,
+ type = c("p", "a"))
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.8.Rd b/man/NetoTb3A.8.Rd
index 2c94006820b4e627fa3487006fd20af8e7f5f020..80d8aef9708fb0bbd4c3715b28e58d4e74babfdf 100644
--- a/man/NetoTb3A.8.Rd
+++ b/man/NetoTb3A.8.Rd
@@ -2,38 +2,36 @@
% Please edit documentation in R/NetoTb3A.8.R
\name{NetoTb3A.8}
\alias{NetoTb3A.8}
-\title{Controlando a Espuma}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\title{Controlando a Espuma de Detergentes}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{prod}}{Celas experimentais criadas pela combinação de EO
+ e PO.}
-\item{\code{prod}}{Produto.}
+\item{\code{EO}}{Óxido de eteno (4 e 6).}
-\item{\code{EO}}{Óxido de eteno.}
+\item{\code{PO}}{Óxido de propeno (4 e 6).}
-\item{\code{PO}}{Óxido de propeno.}
-
-\item{\code{pt}}{Ponto de turvação.}
+\item{\code{pt}}{Ponto de turvação, em \eqn{^\circ}C.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.8, pág.159)
+NETO et al. (2010), Tabela 3A.8, pág. 159.
}
\description{
-Verificação de como o ponto de turvação varia com as
- unidades de óxido de eteno e óxido de propeno dos álcoois graxos
+Verificação de como o ponto de turvação varia com as
+ unidades de óxido de eteno (EO) e óxido de propeno (PO) dos
+ álcoois graxos. Um plano experimental \eqn{2^2 + 3} pontos
+ centrais foi utilizado.
}
\examples{
data(NetoTb3A.8)
str(NetoTb3A.8)
-
-plot(pt ~ ens, type = "o", col = 6, data = NetoTb3A.8,
- xlab = "Ensaio", ylab = "",
- main = "Ponto de Turvação em Função do Ensaio")
+NetoTb3A.8
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.9.Rd b/man/NetoTb3A.9.Rd
index 32b245490bcba6ea24d828ffbbe864bc38968f53..21c8bd6c125dd8045498f7189212f65d6bfa993f 100644
--- a/man/NetoTb3A.9.Rd
+++ b/man/NetoTb3A.9.Rd
@@ -2,12 +2,12 @@
% Please edit documentation in R/NetoTb3A.9.R
\name{NetoTb3A.9}
\alias{NetoTb3A.9}
-\title{Desenvolvimento de um Detergente}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\title{Desenvolvimento de um Detergente para Branqueamento de Roupas}
+\format{Um \code{data.frame} com 8 observações e 6 variáveis, em que
\describe{
-\item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
+\item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
ensaios repetidos.}
\item{\code{A}}{Aditivo A.}
@@ -16,17 +16,21 @@
\item{\code{C}}{Aditivo C.}
-\item{\code{resp}}{Resposta, densidade ótica que mede a intensidade
- da luz refletida pela roupa lavada.}
+\item{\code{media}}{Densidade ótica que mede a intensidade da luz
+ refletida pela roupa lavada (resposta média de 12 ensaios
+ repetidos).}
+
+\item{\code{var}}{Variância das observações nos 12 ensaios
+ repetidos.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.9, pág.162)
+NETO et al. 2010, Tabela 3A.9, pág. 162.
}
\description{
-Utilizou-se um planejamento fatorial para avaliar os
- efeitos da adoção de três ingredientes sobre o poder de
- branqueameto.
+Utilizou-se um planejamento fatorial \eqn{2^3} para
+ avaliar os efeitos da adoção de três ingredientes sobre o poder
+ de branqueameto de detergentes para roupas.
}
\examples{
@@ -35,18 +39,18 @@ str(NetoTb3A.9)
par(mfrow = c(1,3))
-with(NetoTb3A.9, interaction.plot(A, B, resp,
- main = "Interação entre A e B",
+with(NetoTb3A.9, interaction.plot(A, B, media,
+ main = "A x B",
col = "green"))
-with(NetoTb3A.9, interaction.plot(A, C, resp,
- main = "Interação entre A e C",
+with(NetoTb3A.9, interaction.plot(A, C, media,
+ main = "A x C",
col = "blue"))
- with(NetoTb3A.9, interaction.plot(B, C, resp,
- main = "Interação entre B e C",
- col = "red"))
+with(NetoTb3A.9, interaction.plot(B, C, media,
+ main = "B x C",
+ col = "red"))
}
-\keyword{DBC}
+\keyword{FAT2K}