diff --git a/R/NetoTb3A.1.R b/R/NetoTb3A.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..f40d9c3cc7422b0042280998a9bff961794d3b12
--- /dev/null
+++ b/R/NetoTb3A.1.R
@@ -0,0 +1,36 @@
+#' @name NetoTb3A.1
+#' @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{f1}}{Fator 1, tempo de hidrólise, em horas.}
+#'
+#' \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 FAT2K
+#' @source NETO et al. (2010), Tabela 3A.1, pág. 145.
+#' @examples
+#'
+#' 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")
+#'
+NULL
diff --git a/R/NetoTb3A.2.R b/R/NetoTb3A.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..d11efc796d95e91d9815bbfa7ed7eb0d6a1fe5a3
--- /dev/null
+++ b/R/NetoTb3A.2.R
@@ -0,0 +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, 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{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
+#'
+#' \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 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 = "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
new file mode 100644
index 0000000000000000000000000000000000000000..11359245a7414fbbfb9d90de3291bb388945a0cc
--- /dev/null
+++ b/R/NetoTb3A.3.R
@@ -0,0 +1,49 @@
+#' @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 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
+#'
+#' \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 FAT2K
+#' @source NETO el al. (2010), Tabela 3A.3, pág. 149.
+#' @examples
+#'
+#' data(NetoTb3A.3)
+#' str(NetoTb3A.3)
+#'
+#' par(mfrow = c(1,3))
+#'
+#' 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
new file mode 100644
index 0000000000000000000000000000000000000000..ce814759c56413696da8f1df051143ee9672eb53
--- /dev/null
+++ b/R/NetoTb3A.4.R
@@ -0,0 +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, 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{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
+#'
+#' \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 FAT2K
+#' @source NETO et al. (2010), Tabela 3A.4, pág. 151.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3A.4)
+#' str(NetoTb3A.4)
+#'
+#' 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
new file mode 100644
index 0000000000000000000000000000000000000000..a896bd87035e11b346eedce9e307d8269c4a92e6
--- /dev/null
+++ b/R/NetoTb3A.5.R
@@ -0,0 +1,39 @@
+#' @name NetoTb3A.5
+#' @title Melhorando Funções de Onda
+#' @description Pesquisadores estavam interessados em avaliar como
+#'     alguns parâmetros usados para especificar a função de onda iriam
+#'     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{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{freq}}{Frequência resultante.}
+#'
+#' }
+#' @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 | 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
new file mode 100644
index 0000000000000000000000000000000000000000..8558d3664a99e64011d77bd31f3f909c471be577
--- /dev/null
+++ b/R/NetoTb3A.6.R
@@ -0,0 +1,40 @@
+#' @name NetoTb3A.6
+#' @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{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
+#'
+#' \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 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
diff --git a/R/NetoTb3A.8.R b/R/NetoTb3A.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..3d030f1721480f19e9aa602255109a89b70a3bee
--- /dev/null
+++ b/R/NetoTb3A.8.R
@@ -0,0 +1,29 @@
+#' @name NetoTb3A.8
+#' @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{prod}}{Celas experimentais criadas pela combinação de EO
+#'     e PO.}
+#'
+#' \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 FAT2K
+#' @source NETO et al. (2010), Tabela 3A.8, pág. 159.
+#' @examples
+#'
+#' data(NetoTb3A.8)
+#' str(NetoTb3A.8)
+#' NetoTb3A.8
+#'
+NULL
diff --git a/R/NetoTb3A.9.R b/R/NetoTb3A.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..0d68848d4fd1994f7c4c6e0ff2749179debe4f33
--- /dev/null
+++ b/R/NetoTb3A.9.R
@@ -0,0 +1,48 @@
+#' @name NetoTb3A.9
+#' @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
+#'     ensaios repetidos.}
+#'
+#' \item{\code{A}}{Aditivo A.}
+#'
+#' \item{\code{B}}{Aditivo B.}
+#'
+#' \item{\code{C}}{Aditivo C.}
+#'
+#' \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 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, media,
+#'                                   main = "A x B",
+#'                                   col = "green"))
+#'
+#' with(NetoTb3A.9, interaction.plot(A, C, media,
+#'                                   main = "A x C",
+#'                                   col = "blue"))
+#'
+#' with(NetoTb3A.9, interaction.plot(B, C, media,
+#'                                   main = "B x C",
+#'                                   col = "red"))
+#'
+NULL
diff --git a/data-raw/NetoTb3A.1.txt b/data-raw/NetoTb3A.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3f8351c295e8950caa94a7c8673b80ca9ab83aac
--- /dev/null
+++ b/data-raw/NetoTb3A.1.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	grau
+1	-1	-1	-1	0.52
+2	1	-1	-1	0.57
+3	-1	1	-1	0.55
+4	1	1	-1	0.58
+5	-1	-1	1	0.47
+6	1	-1	1	0.53
+7	-1	1	1	0.52
+8	1	1	1	0.54
+9	-1	-1	-1	0.54
+10	1	-1	-1	0.58
+11	-1	1	-1	0.54
+12	1	1	-1	0.56
+13	-1	-1	1	0.45
+14	1	-1	1	0.56
+15	-1	1	1	0.53
+16	1	1	1	0.52
\ No newline at end of file
diff --git a/data-raw/NetoTb3A.2.txt b/data-raw/NetoTb3A.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..74acb4b57120661f36949b209b3a4fcd072fc3b8
--- /dev/null
+++ b/data-raw/NetoTb3A.2.txt
@@ -0,0 +1,9 @@
+ens	f1	f2	f3	delta	
+1	-1	-1	-1	106	
+2	+1	-1	-1	98	
+3	-1	+1	-1	139	
+4	+1	+1	-1	141	
+5	-1	-1	+1	137	
+6	+1	-1	+1	123	
+7	-1	+1	+1	119	
+8	+1	+1	+1	103	
diff --git a/data-raw/NetoTb3A.3.txt b/data-raw/NetoTb3A.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..dd4cef1503bfd9f384757f86be9bd72769d50768
--- /dev/null
+++ b/data-raw/NetoTb3A.3.txt
@@ -0,0 +1,9 @@
+ens	f1	f2	f3	temp	
+1	-1	-1	-1	49.26	
+2	+1	-1	-1	31.27	
+3	-1	+1	-1	42.2	
+4	+1	+1	-1	26.61	
+5	-1	-1	+1	23.81	
+6	+1	-1	+1	15.07	
+7	-1	+1	+1	19.57	
+8	+1	+1	+1	12.86	
diff --git a/data-raw/NetoTb3A.4.txt b/data-raw/NetoTb3A.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..013d8f82402e7b409daba281d0a378aff2b136e3
--- /dev/null
+++ b/data-raw/NetoTb3A.4.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	f4	p
+1	-1	-1	-1	-1	2.75
+2	+1	-1	-1	-1	3.15
+3	-1	+1	-1	-1	2.85
+4	+1	+1	-1	-1	3.55
+5	-1	-1	+1	-1	4.65
+6	+1	-1	+1	-1	5.85
+7	-1	+1	+1	-1	5.4
+8	+1	+1	+1	-1	6.3
+9	-1	-1	-1	+1	5.95
+10	+1	-1	-1	+1	6.55
+11	-1	+1	-1	+1	5.6
+12	+1	+1	-1	+1	6.75
+13	-1	-1	+1	+1	11.5
+14	+1	-1	+1	+1	13
+15	-1	+1	+1	+1	12.5
+16	+1	+1	+1	+1	14
diff --git a/data-raw/NetoTb3A.5.txt b/data-raw/NetoTb3A.5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..44fc9023e5acecaf90c76bb7bd8de567b3bd6e24
--- /dev/null
+++ b/data-raw/NetoTb3A.5.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	f4	freq
+1	-1	-1	-1	-1	3245.6
+2	+1	-1	-1	-1	3212.4
+3	-1	+1	-1	-1	3203.5
+4	+1	+1	-1	-1	3190.3
+5	-1	-1	+1	-1	3251.7
+6	+1	-1	+1	-1	3209.4
+7	-1	+1	+1	-1	3214.9
+8	+1	+1	+1	-1	3193.5
+9	-1	-1	-1	+1	3096.2
+10	+1	-1	-1	+1	3049.3
+11	-1	+1	-1	+1	3132.8
+12	+1	+1	-1	+1	3087.6
+13	-1	-1	+1	+1	3105
+14	+1	-1	+1	+1	3050.4
+15	-1	+1	+1	+1	3143.5
+16	+1	+1	+1	+1	3093.5
diff --git a/data-raw/NetoTb3A.6.txt b/data-raw/NetoTb3A.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..5be1295865f7a4840effe12cec89e04d0d3ac1e2
--- /dev/null
+++ b/data-raw/NetoTb3A.6.txt
@@ -0,0 +1,33 @@
+ens	f1	f2	f3	f4	f5	des
+1	-1	-1	-1	-1	-1	2.02
+2	+1	-1	-1	-1	-1	2.03
+3	-1	+1	-1	-1	-1	4.71
+4	+1	+1	-1	-1	-1	7.01
+5	-1	-1	+1	-1	-1	1.71
+6	+1	-1	+1	-1	-1	2.10
+7	-1	+1	+1	-1	-1	4.36
+8	+1	+1	+1	-1	-1	3.71
+9	-1	-1	-1	+1	-1	7.15
+10	+1	-1	-1	+1	-1	4.87
+11	-1	+1	-1	+1	-1	8.96
+12	+1	+1	-1	+1	-1	12.25
+13	-1	-1	+1	+1	-1	4.28
+14	+1	-1	+1	+1	-1	3.13
+15	-1	+1	+1	+1	-1	9.42
+16	+1	+1	+1	+1	-1	8.68
+17	-1	-1	-1	-1	+1	1.7
+18	+1	-1	-1	-1	+1	1.39
+19	-1	+1	-1	-1	+1	4.5
+20	+1	+1	-1	-1	+1	5.92
+21	-1	-1	+1	-1	+1	0.73
+22	+1	-1	+1	-1	+1	0.77
+23	-1	+1	+1	-1	+1	3.2
+24	+1	+1	+1	-1	+1	3.08
+25	-1	-1	-1	+1	+1	2.51
+26	+1	-1	-1	+1	+1	1.82
+27	-1	+1	-1	+1	+1	5.6
+28	+1	+1	-1	+1	+1	7.61
+29	-1	-1	+1	+1	+1	1.55
+30	+1	-1	+1	+1	+1	1.05
+31	-1	+1	+1	+1	+1	4.25
+32	+1	+1	+1	+1	+1	4.38
diff --git a/data-raw/NetoTb3A.8.txt b/data-raw/NetoTb3A.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..8cfb6c2d2ad064b9930ed462bc5aaa9321d31305
--- /dev/null
+++ b/data-raw/NetoTb3A.8.txt
@@ -0,0 +1,8 @@
+ens	prod	EO	PO	pt
+1	A4O4	-1	-1	32.1
+2	A4O6	1	-1	40.2
+3	A6O4	-1	1	27.7
+4	A6O6	1	1	34
+5	A5O5	0	0	35
+6	A5O5	0	0	34.6
+7	A5O5	0	0	35.4
diff --git a/data-raw/NetoTb3A.9.txt b/data-raw/NetoTb3A.9.txt
new file mode 100644
index 0000000000000000000000000000000000000000..587acdba3ba5f9bc8e2ae42df00339c2f7ad15db
--- /dev/null
+++ b/data-raw/NetoTb3A.9.txt
@@ -0,0 +1,10 @@
+form	A	B	C	resp
+2	-1	-1	-1	75.719
+4	+1	-1	-1	76.998
+6	-1	+1	-1	75.557
+8	+1	+1	-1	76.928
+3	-1	-1	+1	81.032
+5	+1	-1	+1	82.298
+7	-1	+1	+1	80.848
+1	+1	+1	+1	82.146
+				
diff --git a/data/NetoTb3A.1.rda b/data/NetoTb3A.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ac9201f847c42ecca2a9fc232d30b6a116d09c14
Binary files /dev/null and b/data/NetoTb3A.1.rda differ
diff --git a/data/NetoTb3A.2.rda b/data/NetoTb3A.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7d328800d9d1a6d0a4cf22698744301390690502
Binary files /dev/null and b/data/NetoTb3A.2.rda differ
diff --git a/data/NetoTb3A.3.rda b/data/NetoTb3A.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..754823d0328298232caa4033e47c7106ff16c5c7
Binary files /dev/null and b/data/NetoTb3A.3.rda differ
diff --git a/data/NetoTb3A.4.rda b/data/NetoTb3A.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8f49dbf13db81a4d68efda35bc5fa325faab61b4
Binary files /dev/null and b/data/NetoTb3A.4.rda differ
diff --git a/data/NetoTb3A.5.rda b/data/NetoTb3A.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..24be14a3e280d02dee63c9b9e0033006c26985e0
Binary files /dev/null and b/data/NetoTb3A.5.rda differ
diff --git a/data/NetoTb3A.6.rda b/data/NetoTb3A.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3e83c60ddecb86dd3c1f6ac25ac7f1f734613d2c
Binary files /dev/null and b/data/NetoTb3A.6.rda differ
diff --git a/data/NetoTb3A.8.rda b/data/NetoTb3A.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..75bd9264e42e80f7ff5eeb1c7588382a2ef0d017
Binary files /dev/null and b/data/NetoTb3A.8.rda differ
diff --git a/data/NetoTb3A.9.rda b/data/NetoTb3A.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..be34e467a0cf8ac12ae5e0f672bf0c9d2c5bef4d
Binary files /dev/null and b/data/NetoTb3A.9.rda differ
diff --git a/man/NetoTb3A.1.Rd b/man/NetoTb3A.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..d41d83bb955de13f090af3ef824933958295d81f
--- /dev/null
+++ b/man/NetoTb3A.1.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.1.R
+\name{NetoTb3A.1}
+\alias{NetoTb3A.1}
+\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{f1}}{Fator 1, tempo de hidrólise, em horas.}
+
+\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.}
+
+}}
+\source{
+NETO et al. (2010), Tabela 3A.1, pág. 145.
+}
+\description{
+Planejamento \eqn{2^3}, em duplicata, para estudar o
+    efeito de 3 fatores no grau de substituição numa resina
+    clorometilada.
+}
+\examples{
+
+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{FAT2K}
+
diff --git a/man/NetoTb3A.2.Rd b/man/NetoTb3A.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..96c4dc4a95b4591127ed02ebcba74d0bdf6014bb
--- /dev/null
+++ b/man/NetoTb3A.2.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.2.R
+\name{NetoTb3A.2}
+\alias{NetoTb3A.2}
+\title{Voltametria Cíclica do Azul de Metileno}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
+
+\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).}
+
+}}
+\source{
+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, 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 = "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{FAT2K}
+
diff --git a/man/NetoTb3A.3.Rd b/man/NetoTb3A.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..65baf82601758cba3f2c9d1e58fa58e84f8ab568
--- /dev/null
+++ b/man/NetoTb3A.3.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.3.R
+\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 4 variáveis, em que
+
+\describe{
+
+\item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
+
+\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.}
+
+}}
+\source{
+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
+    pela porcentagem de etanol, temperatura e fluxo de gás.
+}
+\examples{
+
+data(NetoTb3A.3)
+str(NetoTb3A.3)
+
+par(mfrow = c(1,3))
+
+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{FAT2K}
+
diff --git a/man/NetoTb3A.4.Rd b/man/NetoTb3A.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..8c07205bc6663b13b17c5eede32623d781240639
--- /dev/null
+++ b/man/NetoTb3A.4.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.4.R
+\name{NetoTb3A.4}
+\alias{NetoTb3A.4}
+\title{Separação de Gases por Adsorção}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
+
+\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}}.}
+
+}}
+\source{
+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, usou-se um planejamento
+    \eqn{2^4} para investigar a influência de quatro fatores na
+    produtividade do adsorvente.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.4)
+str(NetoTb3A.4)
+
+xyplot(p ~ f1 | f2,
+       groups = interaction(f3, f4, sep = ":"),
+       data = NetoTb3A.4,
+       type = c("p", "a"),
+       auto.key = TRUE)
+
+}
+\keyword{FAT2K}
+
diff --git a/man/NetoTb3A.5.Rd b/man/NetoTb3A.5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..5700eb9d003a8342e7886840cb834ce5a282fb51
--- /dev/null
+++ b/man/NetoTb3A.5.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.5.R
+\name{NetoTb3A.5}
+\alias{NetoTb3A.5}
+\title{Melhorando Funções de Onda}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+
+\describe{
+
+\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{freq}}{Frequência resultante.}
+
+}}
+\source{
+NETO et al. (2010), Tabela 3A.5, pág. 154.
+}
+\description{
+Pesquisadores estavam interessados em avaliar como
+    alguns parâmetros usados para especificar a função de onda iriam
+    afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+    investigar a influência de 4 fatores.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.5)
+str(NetoTb3A.5)
+
+xyplot(freq ~ f1 | f2,
+       groups = interaction(f3, f4, sep = ":"),
+       data = NetoTb3A.5,
+       type = c("p", "a"),
+       auto.key = TRUE)
+
+}
+\keyword{FAT2K}
+
diff --git a/man/NetoTb3A.6.Rd b/man/NetoTb3A.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..15a44ea6e464b5383fb5fad8b424b0feb55c6f0f
--- /dev/null
+++ b/man/NetoTb3A.6.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.6.R
+\name{NetoTb3A.6}
+\alias{NetoTb3A.6}
+\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{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
+
+\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}}.}
+
+}}
+\source{
+NETO et al. (2010), Tabela 3A.6, pág. 156.
+}
+\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}}).
+}
+\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"))
+
+}
+\keyword{FAT2K}
+
diff --git a/man/NetoTb3A.8.Rd b/man/NetoTb3A.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..80d8aef9708fb0bbd4c3715b28e58d4e74babfdf
--- /dev/null
+++ b/man/NetoTb3A.8.Rd
@@ -0,0 +1,37 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.8.R
+\name{NetoTb3A.8}
+\alias{NetoTb3A.8}
+\title{Controlando a Espuma de Detergentes}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{prod}}{Celas experimentais criadas pela combinação de EO
+    e PO.}
+
+\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.}
+
+}}
+\source{
+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 (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)
+NetoTb3A.8
+
+}
+\keyword{FAT2K}
+
diff --git a/man/NetoTb3A.9.Rd b/man/NetoTb3A.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..21c8bd6c125dd8045498f7189212f65d6bfa993f
--- /dev/null
+++ b/man/NetoTb3A.9.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.9.R
+\name{NetoTb3A.9}
+\alias{NetoTb3A.9}
+\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
+    ensaios repetidos.}
+
+\item{\code{A}}{Aditivo A.}
+
+\item{\code{B}}{Aditivo B.}
+
+\item{\code{C}}{Aditivo C.}
+
+\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{
+NETO et al. 2010, Tabela 3A.9, pág. 162.
+}
+\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.
+}
+\examples{
+
+data(NetoTb3A.9)
+str(NetoTb3A.9)
+
+par(mfrow = c(1,3))
+
+with(NetoTb3A.9, interaction.plot(A, B, media,
+                                  main = "A x B",
+                                  col = "green"))
+
+with(NetoTb3A.9, interaction.plot(A, C, media,
+                                  main = "A x C",
+                                  col = "blue"))
+
+with(NetoTb3A.9, interaction.plot(B, C, media,
+                                  main = "B x C",
+                                  col = "red"))
+
+}
+\keyword{FAT2K}
+