diff --git a/R/NetoEx4.8.R b/R/NetoEx4.8.R
index 44b28aa10bedcb92d55fc84945686ab720bfba97..9f866433ded4393fc104c44c3b866c061c06894a 100644
--- a/R/NetoEx4.8.R
+++ b/R/NetoEx4.8.R
@@ -1,26 +1,24 @@
 #' @name NetoEx4.8
-#' @title Otimização de Reação Orgânica
-#' @description Resultados de um experimento fatorial 2^4 cujo objetivo, 
-#'     era a otimização de uma reação orgânic.
-#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
+#' @title Otimização de Reação Orgânica com Fatorial Fracionado
+#' @description Resultados de um experimento fatorial \eqn{2^4} com uma
+#'     fração 1/2 cujo objetivo era a otimização de uma reação orgânica.
+#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Temperatura: ambiente e refluxo.}
 #'
-#' \item{\code{f1}}{Fator 1: Temperatura.}
-#' 
-#' \item{\code{f2}}{Fator 2: Base.}
-#' 
-#' \item{\code{f3}}{Fator 3: Solvente.}
-#' 
-#' \item{\code{f4}}{Fator 4: Catalisador.}
+#' \item{\code{f2}}{Base: \eqn{K_2CO_3/NaOH} e \eqn{K_2CO_3}.}
 #'
-#' \item{resp}{Rendimento da reação (%).}
+#' \item{\code{f3}}{Solvente: \eqn{CH_2Cl_2} e \eqn{CH_3CN}.}
+#'
+#' \item{\code{f4}}{Catalisador: nenhum e TEBA.}
+#'
+#' \item{\code{resp}}{Rendimento da reação (\%).}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Exercício 4.8, pág.176)
+#' @keywords FRAC
+#' @source NETO et al. (2010), Exercício 4.8, pág. 176.
 #' @examples
 #'
 #' library(lattice)
@@ -28,7 +26,7 @@
 #' data(NetoEx4.8)
 #' str(NetoEx4.8)
 #'
-#' xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+#' xyplot(rend ~ f1 | f2, groups = f4, data = NetoEx4.8,
 #'        type = c("p", "a"), auto.key = TRUE)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.10.R b/R/NetoTb4.10.R
index 748a46039d726376777a56c20ef8f951e4f4e51c..1f14c8e80310d35992c288f4f6c9aca01f32a588 100644
--- a/R/NetoTb4.10.R
+++ b/R/NetoTb4.10.R
@@ -1,53 +1,45 @@
 #' @name NetoTb4.10
-#' @title Saque de um Tenista amador
-#' @description Planejamento fracionário saturado de 8 ensaios para 
-#'     verificar como sete variáveis afetam o saque de um tenista amador
+#' @title Saque de um Tenista Amador
+#' @description Planejamento fracionário saturado de 8 ensaios para
+#'     verificar como sete variáveis afetam o saque de um tenista
+#'     amador. As 8 corridas são um ensaio completo \eqn{2^3} para os 3
+#'     primeiros fatores. Foram usadas as relações de definição ABD,
+#'     ACE, BDC e ABCG.
 #' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ensaio}}{Número correspondente ao ensaio.}
+#' \item{\code{A}}{Técnica: chapada e cortada.}
 #'
-#' \item{\code{f1}}{Fator 1: técnica.}
-#' 
-#' \item{\code{f2}}{Fator 2: frequência.}
-#' 
-#' \item{\code{f3}}{Fator 3: hora.}
-#' 
-#' \item{\code{f4}}{Fator 4: revestimento.}
-#' 
-#' \item{\code{f5}}{Fator 5: lado.}
-#' 
-#' \item{\code{f6}}{Fator 6: camisa.}
-#' 
-#' \item{\code{f7}}{Fator 7: raquete.}
+#' \item{\code{B}}{Frequência: baixa e alta.}
 #'
-#' \item{acert}{percentual de acertos.}
+#' \item{\code{C}}{Hora: dia e noite.}
+#'
+#' \item{\code{D}}{Revestimento: saibro e concreto.}
+#'
+#' \item{\code{E}}{Lado: direito e esquerdo.}
+#'
+#' \item{\code{F}}{Camisa: com e sem.}
+#'
+#' \item{\code{G}}{Raquete: média e grande.}
+#'
+#' \item{\code{acert}}{Percentual de acertos do tenista.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 4.10, pág.186)
+#' @keywords FRAC
+#' @source NETO et al. (2010), Tabela 4.10, pág. 186.
 #' @examples
 #'
 #' data(NetoTb4.10)
 #' str(NetoTb4.10)
+#' NetoTb4.10
 #'
-#' par(mfrow = c(2,2))
-#'
-#' plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica", 
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
-#'
-#' plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
-#'
-#' plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+#' library(lattice)
 #'
-#' plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+#' xyplot(acert ~ A + B + C + D + E + F + G,
+#'        outer = TRUE,
+#'        data = NetoTb4.10,
+#'        as.table = TRUE,
+#'        type = c("p", "a"))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.12.R b/R/NetoTb4.12.R
index a8f4c7142ecc50548bb142977e6c8133db10a59d..ee06811b0ff49ab7c74b71d13a8b71218260a7ae 100644
--- a/R/NetoTb4.12.R
+++ b/R/NetoTb4.12.R
@@ -1,55 +1,43 @@
 #' @name NetoTb4.12
-#' @title Saque de um Tenista amador
-#' @description Planejamento fracionário saturado de 8 ensaios para 
-#'     verificar como sete variáveis afetam o saque de um tenista amador
-#'     , idêntico à tabela 4.10, porém com os sinais do fator 5 
-#'     invertidos.
+#' @title Saque de um Tenista Amador
+#' @description Planejamento fracionário saturado de 8 ensaios para
+#'     verificar como sete variáveis afetam o saque de um tenista
+#'     amador, idêntico à \code{link{tabela 4.10}}, porém com os sinais
+#'     do fator E invertidos.
 #' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ensaio}}{Número correspondente ao ensaio.}
+#' \item{\code{A}}{Técnica: chapada e cortada.}
 #'
-#' \item{\code{f1}}{Fator 1: técnica.}
-#' 
-#' \item{\code{f2}}{Fator 2: frequência.}
-#' 
-#' \item{\code{f3}}{Fator 3: hora.}
-#' 
-#' \item{\code{f4}}{Fator 4: revestimento.}
-#' 
-#' \item{\code{f5}}{Fator 5: lado.}
-#' 
-#' \item{\code{f6}}{Fator 6: camisa.}
-#' 
-#' \item{\code{f7}}{Fator 7: raquete.}
+#' \item{\code{B}}{Frequência: baixa e alta.}
 #'
-#' \item{acert}{percentual de acertos.}
+#' \item{\code{C}}{Hora: dia e noite.}
+#'
+#' \item{\code{D}}{Revestimento: saibro e concreto.}
+#'
+#' \item{\code{E}}{Lado: direito e esquerdo.}
+#'
+#' \item{\code{F}}{Camisa: com e sem.}
+#'
+#' \item{\code{G}}{Raquete: média e grande.}
+#'
+#' \item{\code{acert}}{Percentual de acertos do tenista.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 4.12, pág.189)
+#' @keywords FRAC
+#' @source NETO et al. (2010), Tabela 4.10, pág. 186.
 #' @examples
 #'
 #' data(NetoTb4.12)
 #' str(NetoTb4.12)
 #'
-#' par(mfrow = c(2,2))
-#'
-#' plot(acert ~ f1, data = NetoTb4.12, xlab = "Técnica", 
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f1, data = NetoTb4.12), col = 2)
-#'
-#' plot(acert ~ f2, data = NetoTb4.12, xlab = "Frequência",
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f2, data = NetoTb4.12), col = 2)
-#'
-#' plot(acert ~ f6, data = NetoTb4.12, xlab = "Camisa",
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f6, data = NetoTb4.12), col = 2)
+#' library(lattice)
 #'
-#' plot(acert ~ f7, data = NetoTb4.12, xlab = "Raquete",
-#'      ylab = "Acertos (%)")
-#' abline(lm(acert ~ f7, data = NetoTb4.12), col = 2)
+#' xyplot(acert ~ A + B + C + D + E + F + G,
+#'        outer = TRUE,
+#'        data = NetoTb4.12,
+#'        as.table = TRUE,
+#'        type = c("p", "a"))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.18.R b/R/NetoTb4.18.R
index 3c001c816d7dea481afd026c0c0b7b7bfb8daebd..e5fa14bd7e90731336747b9a0fc954c590610f00 100644
--- a/R/NetoTb4.18.R
+++ b/R/NetoTb4.18.R
@@ -1,67 +1,44 @@
 #' @name NetoTb4.18
-#' @title Técnicas de Taguchi
-#' @description Planejamento de Taguchi para o desenvolvimento de uma 
-#'     mistura de bolo.'
+#' @title Planejamento de Taguchi
+#' @description Planejamento de Taguchi para o desenvolvimento de uma
+#'     mistura de bolo.
 #' @format Um \code{data.frame} com 8 observações e 8 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{F}}{Farinha.}
+#' \item{\code{Farin}}{Farinha.}
 #'
-#' \item{\code{G}}{Gordura.}
-#' 
-#' \item{\code{A}}{Açúcar.}
-#' 
-#' \item{\code{O}}{Ovos.}
-#' 
-#' \item{\code{f1}}{Temperatura.}
-#' 
-#' \item{\code{f2}}{Leite.}
-#' 
-#' \item{\code{f3}}{Tempo.}
-#' 
-#' \item{\code{f4}}{Tempo + Leite + Temperatura.}
-#' 
-#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 4.18, pág.196)
-#' @examples
+#' \item{\code{Gordu}}{Gordura.}
 #'
-#' data(NetoTb4.18)
-#' str(NetoTb4.18)
+#' \item{\code{Acucar}}{Açúcar.}
 #'
-#' par(mfrow = c(2,4))
+#' \item{\code{Ovos}}{Ovos.}
 #'
-#' plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Farinha")
-#' abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
+#' \item{\code{Temper}}{Temperatura.}
 #'
-#' plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Gordura")
-#' abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
+#' \item{\code{Leite}}{Leite.}
 #'
-#' plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Açúcar")
-#' abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
+#' \item{\code{Tempo}}{Tempo.}
 #'
-#' plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Ovos")
-#' abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
+#' \item{\code{textura}}{Textura do bolo.}
 #'
-#' plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Temperatura")
-#' abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
+#' }
+#' @keywords Taguchi
+#' @source NETO et al. (2010), tabela 4.18, pág. 196.
+#' @examples
+#'
+#' library(lattice)
 #'
-#' plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Leite")
-#' abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
+#' data(NetoTb4.18)
+#' str(NetoTb4.18)
 #'
-#' plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Tempo")
-#' abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+#' aggregate(textura ~ Ovos + Acucar + Gordu + Farin,
+#'           data = NetoTb4.18,
+#'           FUN = function(y) c(m = mean(y), s = sd(y)))
 #'
-#' plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra", 
-#'      xlab = "Temperatura + Leite + Tempo")
-#' abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+#' xyplot(textura ~ Ovos + Acucar + Gordu + Farin + Tempo + Temper + Leite,
+#'        outer = TRUE,
+#'        data = NetoTb4.18, type = c("p", "a"),
+#'        as.table = TRUE)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.2.R b/R/NetoTb4.2.R
index 9ffd810a17c7a4123ba5e9f7258b6361162ea0f4..98b17e9913643abded80352e97ed66b20dc8dc98 100644
--- a/R/NetoTb4.2.R
+++ b/R/NetoTb4.2.R
@@ -1,26 +1,27 @@
 #' @name NetoTb4.2
 #' @title Ação Catalítica do Mo(VI)
-#' @description Resultados de um experimento fatorial 2^4 completo, 
-#'     realizado para estudar a ação catalítica do Mo(VI).
+#' @description Resultados de um experimento fatorial \eqn{2^4}
+#'     completo, realizado para estudar a resposta catalítica do Mo(VI).
 #' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+#'     L\eqn{^{-1}}.}
 #'
-#' \item{\code{f1}}{Fator 1: H2S04.}
-#' 
-#' \item{\code{f2}}{Fator 2: KI.}
-#' 
-#' \item{\code{f3}}{Fator 3: H2O2.}
-#' 
-#' \item{\code{f4}}{Fator 4: Tempo.}
+#' \item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+#'     L\eqn{^{-1}}.}
 #'
-#' \item{resp}{Traços de molibdênio.}
+#' \item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f4}}{Tempo: 90 e 130 segundos.}
+#'
+#' \item{resp}{Sinal analítico.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 4.2, pág.167)
+#' @keywords FRAC
+#' @source NETO et al. (2010), tabela 4.2, pág. 167.
 #' @examples
 #'
 #' library(lattice)
@@ -28,7 +29,10 @@
 #' data(NetoTb4.2)
 #' str(NetoTb4.2)
 #'
-#' xyplot(resp ~ f1 | f2 + f3, groups = f4, data = NetoTb4.2,
-#'        type = c("p", "a"), auto.key = TRUE)
+#' xyplot(resp ~ f1 | f2 + f3,
+#'        groups = f4,
+#'        data = NetoTb4.2,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.6.R b/R/NetoTb4.6.R
index db26e2d4bde37970ce93732e66e5df8544f07a57..796b35d98697a12fd2d67bda77b62f8fc5ffb0a0 100644
--- a/R/NetoTb4.6.R
+++ b/R/NetoTb4.6.R
@@ -1,28 +1,31 @@
 #' @name NetoTb4.6
-#' @title Fatorial Fracionado, Estudo da Resposta Catalítica do Mo(VI)
-#' @description Resultados de um experimento fatorial fracionado 2^(5-1) 
-#'     ,realizado para estudar a ação catalítica do Mo(VI).
+#' @title Fatorial Fracionado para o Estudo da Resposta Catalítica do
+#'     Mo(VI)
+#' @description Resultados de um experimento fatorial fracionado
+#'     \eqn{2^{5-1}}, realizado para estudar a ação catalítica do
+#'     Mo(VI).
 #' @format Um \code{data.frame} com 16 observações e 7 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+#' \item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+#'     L\eqn{^{-1}}.}
 #'
-#' \item{\code{f1}}{Fator 1: H2S04.}
-#' 
-#' \item{\code{f2}}{Fator 2: KI.}
-#' 
-#' \item{\code{f3}}{Fator 3: H2O2.}
-#' 
-#' \item{\code{f4}}{Fator 4: Tempo.}
-#' 
-#' \item{\code{f5}}{Fator 5: Fluxo.}
+#' \item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+#'     L\eqn{^{-1}}.}
 #'
-#' \item{resp}{Traços de molibdênio.}
+#' \item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f4}}{Tempo: 90 e 130 segundos.}
+#'
+#' \item{\code{f5}}{Fluxo: 1.2 e 3.0 mL min\eqn{^{-1}}.}
+#'
+#' \item{resp}{Sinal analítico.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 4.6, pág.177)
+#' @keywords FRAC
+#' @source NETO et al. (2010), tabela 4.6, pág. 177.
 #' @examples
 #'
 #' library(lattice)
@@ -30,15 +33,10 @@
 #' data(NetoTb4.6)
 #' str(NetoTb4.6)
 #'
-#' wireframe(resp ~ f1 + f2 + f4 | factor(f5),
-#'           data = NetoTb4.6,
-#'           scales = list(arrows = FALSE),
-#'           col = "gray50",
-#'           as.table = TRUE,
-#'           col.contour = 1,
-#'           type = "on",
-#'           drape = TRUE,
-#'           alpha.regions = 0.5,
-#'           screen = list(z = 30, x = -60))
-#'
-NULL
\ No newline at end of file
+#' xyplot(resp ~ f1 + f2 + f3 + f4 + f5,
+#'        type = c("p", "a"),
+#'        outer = TRUE,
+#'        data = NetoTb4.6,
+#'        as.table = TRUE)
+#'
+NULL
diff --git a/data/NetoEx4.8.rda b/data/NetoEx4.8.rda
index ab60845052f03db6123b5208c02e9bb8484c0023..1f9cf9b2cb39d40b41ea5c97e14a347839ef17b5 100644
Binary files a/data/NetoEx4.8.rda and b/data/NetoEx4.8.rda differ
diff --git a/data/NetoTb4.10.rda b/data/NetoTb4.10.rda
index d104a238cdec3d512dddfee0da0263ee05faa04f..1da3e581062427d53e42d9d4baa04ca41e4b6e24 100644
Binary files a/data/NetoTb4.10.rda and b/data/NetoTb4.10.rda differ
diff --git a/data/NetoTb4.12.rda b/data/NetoTb4.12.rda
index 22cbdff7b83db40fecf94242d66358a15972e227..9b4dbd3dd3a92a97ab1f9f271a258dd45eab448d 100644
Binary files a/data/NetoTb4.12.rda and b/data/NetoTb4.12.rda differ
diff --git a/data/NetoTb4.18.rda b/data/NetoTb4.18.rda
index afb103f06c80edbe42a343aba73580d609cfcade..2c4506934cf68c71d656b20846560658b376d7f0 100644
Binary files a/data/NetoTb4.18.rda and b/data/NetoTb4.18.rda differ
diff --git a/data/NetoTb4.2.rda b/data/NetoTb4.2.rda
index 461728aae85de62bcc17fa9ced02ff2b151cd316..9c7ce0f0f240d718e35b105051cb42496f3c4d78 100644
Binary files a/data/NetoTb4.2.rda and b/data/NetoTb4.2.rda differ
diff --git a/man/NetoEx4.8.Rd b/man/NetoEx4.8.Rd
index aa92aba195c09d6ac9b1ff58a1cb361cb6b954a5..11899c77e4830b42bb4393b9e41beede652b1d24 100644
--- a/man/NetoEx4.8.Rd
+++ b/man/NetoEx4.8.Rd
@@ -2,13 +2,28 @@
 % Please edit documentation in R/NetoEx4.8.R
 \name{NetoEx4.8}
 \alias{NetoEx4.8}
-\title{Otimização de Reação Orgânica}
+\title{Otimização de Reação Orgânica com Fatorial Fracionado}
+\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{f1}}{Temperatura: ambiente e refluxo.}
+
+\item{\code{f2}}{Base: \eqn{K_2CO_3/NaOH} e \eqn{K_2CO_3}.}
+
+\item{\code{f3}}{Solvente: \eqn{CH_2Cl_2} e \eqn{CH_3CN}.}
+
+\item{\code{f4}}{Catalisador: nenhum e TEBA.}
+
+\item{\code{resp}}{Rendimento da reação (\%).}
+
+}}
 \source{
-Barros Neto, Benício de (2010), (Exercício 4.8, pág.176)
+NETO et al. (2010), Exercício 4.8, pág. 176.
 }
 \description{
-Resultados de um experimento fatorial 2^4 cujo objetivo, 
-    era a otimização de uma reação orgânic.
+Resultados de um experimento fatorial \eqn{2^4} com uma
+    fração 1/2 cujo objetivo era a otimização de uma reação orgânica.
 }
 \examples{
 
@@ -17,9 +32,9 @@ library(lattice)
 data(NetoEx4.8)
 str(NetoEx4.8)
 
-xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+xyplot(rend ~ f1 | f2, groups = f4, data = NetoEx4.8,
        type = c("p", "a"), auto.key = TRUE)
 
 }
-\keyword{DBC}
+\keyword{FRAC}
 
diff --git a/man/NetoTb4.10.Rd b/man/NetoTb4.10.Rd
index c1ff282fa31dd73f428a795888535adec6618bd2..a6bd425f1fb638338b4a0d8908c6f5aa590ae619 100644
--- a/man/NetoTb4.10.Rd
+++ b/man/NetoTb4.10.Rd
@@ -2,60 +2,52 @@
 % Please edit documentation in R/NetoTb4.10.R
 \name{NetoTb4.10}
 \alias{NetoTb4.10}
-\title{Saque de um Tenista amador}
+\title{Saque de um Tenista Amador}
 \format{Um \code{data.frame} com 8 observações e 9 variáveis, em que
 
 \describe{
 
-\item{\code{ensaio}}{Número correspondente ao ensaio.}
+\item{\code{A}}{Técnica: chapada e cortada.}
 
-\item{\code{f1}}{Fator 1: técnica.}
+\item{\code{B}}{Frequência: baixa e alta.}
 
-\item{\code{f2}}{Fator 2: frequência.}
+\item{\code{C}}{Hora: dia e noite.}
 
-\item{\code{f3}}{Fator 3: hora.}
+\item{\code{D}}{Revestimento: saibro e concreto.}
 
-\item{\code{f4}}{Fator 4: revestimento.}
+\item{\code{E}}{Lado: direito e esquerdo.}
 
-\item{\code{f5}}{Fator 5: lado.}
+\item{\code{F}}{Camisa: com e sem.}
 
-\item{\code{f6}}{Fator 6: camisa.}
+\item{\code{G}}{Raquete: média e grande.}
 
-\item{\code{f7}}{Fator 7: raquete.}
-
-\item{acert}{percentual de acertos.}
+\item{\code{acert}}{Percentual de acertos do tenista.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 4.10, pág.186)
+NETO et al. (2010), Tabela 4.10, pág. 186.
 }
 \description{
-Planejamento fracionário saturado de 8 ensaios para 
-    verificar como sete variáveis afetam o saque de um tenista amador
+Planejamento fracionário saturado de 8 ensaios para
+    verificar como sete variáveis afetam o saque de um tenista
+    amador. As 8 corridas são um ensaio completo \eqn{2^3} para os 3
+    primeiros fatores. Foram usadas as relações de definição ABD,
+    ACE, BDC e ABCG.
 }
 \examples{
 
 data(NetoTb4.10)
 str(NetoTb4.10)
+NetoTb4.10
 
-par(mfrow = c(2,2))
-
-plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica", 
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
-
-plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
-
-plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+library(lattice)
 
-plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+xyplot(acert ~ A + B + C + D + E + F + G,
+       outer = TRUE,
+       data = NetoTb4.10,
+       as.table = TRUE,
+       type = c("p", "a"))
 
 }
-\keyword{DBC}
+\keyword{FRAC}
 
diff --git a/man/NetoTb4.12.Rd b/man/NetoTb4.12.Rd
index cb64ddde49edf8eda57615e3334a6ecb704872ac..da225990e4014bf4c6a78e85ee57f5e749497170 100644
--- a/man/NetoTb4.12.Rd
+++ b/man/NetoTb4.12.Rd
@@ -2,62 +2,50 @@
 % Please edit documentation in R/NetoTb4.12.R
 \name{NetoTb4.12}
 \alias{NetoTb4.12}
-\title{Saque de um Tenista amador}
+\title{Saque de um Tenista Amador}
 \format{Um \code{data.frame} com 8 observações e 9 variáveis, em que
 
 \describe{
 
-\item{\code{ensaio}}{Número correspondente ao ensaio.}
+\item{\code{A}}{Técnica: chapada e cortada.}
 
-\item{\code{f1}}{Fator 1: técnica.}
+\item{\code{B}}{Frequência: baixa e alta.}
 
-\item{\code{f2}}{Fator 2: frequência.}
+\item{\code{C}}{Hora: dia e noite.}
 
-\item{\code{f3}}{Fator 3: hora.}
+\item{\code{D}}{Revestimento: saibro e concreto.}
 
-\item{\code{f4}}{Fator 4: revestimento.}
+\item{\code{E}}{Lado: direito e esquerdo.}
 
-\item{\code{f5}}{Fator 5: lado.}
+\item{\code{F}}{Camisa: com e sem.}
 
-\item{\code{f6}}{Fator 6: camisa.}
+\item{\code{G}}{Raquete: média e grande.}
 
-\item{\code{f7}}{Fator 7: raquete.}
-
-\item{acert}{percentual de acertos.}
+\item{\code{acert}}{Percentual de acertos do tenista.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 4.12, pág.189)
+NETO et al. (2010), Tabela 4.10, pág. 186.
 }
 \description{
-Planejamento fracionário saturado de 8 ensaios para 
-    verificar como sete variáveis afetam o saque de um tenista amador
-    , idêntico à tabela 4.10, porém com os sinais do fator 5 
-    invertidos.
+Planejamento fracionário saturado de 8 ensaios para
+    verificar como sete variáveis afetam o saque de um tenista
+    amador, idêntico à \code{link{tabela 4.10}}, porém com os sinais
+    do fator E invertidos.
 }
 \examples{
 
 data(NetoTb4.12)
 str(NetoTb4.12)
 
-par(mfrow = c(2,2))
-
-plot(acert ~ f1, data = NetoTb4.12, xlab = "Técnica", 
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f1, data = NetoTb4.12), col = 2)
-
-plot(acert ~ f2, data = NetoTb4.12, xlab = "Frequência",
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f2, data = NetoTb4.12), col = 2)
-
-plot(acert ~ f6, data = NetoTb4.12, xlab = "Camisa",
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f6, data = NetoTb4.12), col = 2)
+library(lattice)
 
-plot(acert ~ f7, data = NetoTb4.12, xlab = "Raquete",
-     ylab = "Acertos (\%)")
-abline(lm(acert ~ f7, data = NetoTb4.12), col = 2)
+xyplot(acert ~ A + B + C + D + E + F + G,
+       outer = TRUE,
+       data = NetoTb4.12,
+       as.table = TRUE,
+       type = c("p", "a"))
 
 }
-\keyword{DBC}
+\keyword{FRAC}
 
diff --git a/man/NetoTb4.18.Rd b/man/NetoTb4.18.Rd
index 6f99c0e283d57847c6b2a1f1ba42c47139133ce2..f098b1e6907549592efcc36b7ee4346500aa93f5 100644
--- a/man/NetoTb4.18.Rd
+++ b/man/NetoTb4.18.Rd
@@ -2,74 +2,51 @@
 % Please edit documentation in R/NetoTb4.18.R
 \name{NetoTb4.18}
 \alias{NetoTb4.18}
-\title{Técnicas de Taguchi}
+\title{Planejamento de Taguchi}
 \format{Um \code{data.frame} com 8 observações e 8 variáveis, em que
 
 \describe{
 
-\item{\code{F}}{Farinha.}
+\item{\code{Farin}}{Farinha.}
 
-\item{\code{G}}{Gordura.}
+\item{\code{Gordu}}{Gordura.}
 
-\item{\code{A}}{Açúcar.}
+\item{\code{Acucar}}{Açúcar.}
 
-\item{\code{O}}{Ovos.}
+\item{\code{Ovos}}{Ovos.}
 
-\item{\code{f1}}{Temperatura.}
+\item{\code{Temper}}{Temperatura.}
 
-\item{\code{f2}}{Leite.}
+\item{\code{Leite}}{Leite.}
 
-\item{\code{f3}}{Tempo.}
+\item{\code{Tempo}}{Tempo.}
 
-\item{\code{f4}}{Tempo + Leite + Temperatura.}
+\item{\code{textura}}{Textura do bolo.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 4.18, pág.196)
+NETO et al. (2010), tabela 4.18, pág. 196.
 }
 \description{
-Planejamento de Taguchi para o desenvolvimento de uma 
-    mistura de bolo.'
+Planejamento de Taguchi para o desenvolvimento de uma
+    mistura de bolo.
 }
 \examples{
 
+library(lattice)
+
 data(NetoTb4.18)
 str(NetoTb4.18)
 
-par(mfrow = c(2,4))
-
-plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Farinha")
-abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Gordura")
-abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Açúcar")
-abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Ovos")
-abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Temperatura")
-abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Leite")
-abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Tempo")
-abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+aggregate(textura ~ Ovos + Acucar + Gordu + Farin,
+          data = NetoTb4.18,
+          FUN = function(y) c(m = mean(y), s = sd(y)))
 
-plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra", 
-     xlab = "Temperatura + Leite + Tempo")
-abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+xyplot(textura ~ Ovos + Acucar + Gordu + Farin + Tempo + Temper + Leite,
+       outer = TRUE,
+       data = NetoTb4.18, type = c("p", "a"),
+       as.table = TRUE)
 
 }
-\keyword{DBC}
+\keyword{Taguchi}
 
diff --git a/man/NetoTb4.2.Rd b/man/NetoTb4.2.Rd
index e96d231d7011211bf0b02578b42c9e5884845f72..bf233c936b81e6d94536838322db9f5a3ef04ece 100644
--- a/man/NetoTb4.2.Rd
+++ b/man/NetoTb4.2.Rd
@@ -7,25 +7,26 @@
 
 \describe{
 
-\item{\code{ensaio}}{Número do ensaio correspondente.}
+\item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+    L\eqn{^{-1}}.}
 
-\item{\code{f1}}{Fator 1: H2S04.}
+\item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+    L\eqn{^{-1}}.}
 
-\item{\code{f2}}{Fator 2: KI.}
+\item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+    L\eqn{^{-1}}.}
 
-\item{\code{f3}}{Fator 3: H2O2.}
+\item{\code{f4}}{Tempo: 90 e 130 segundos.}
 
-\item{\code{f4}}{Fator 4: Tempo.}
-
-\item{resp}{Traços de molibdênio.}
+\item{resp}{Sinal analítico.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 4.2, pág.167)
+NETO et al. (2010), tabela 4.2, pág. 167.
 }
 \description{
-Resultados de um experimento fatorial 2^4 completo, 
-    realizado para estudar a ação catalítica do Mo(VI).
+Resultados de um experimento fatorial \eqn{2^4}
+    completo, realizado para estudar a resposta catalítica do Mo(VI).
 }
 \examples{
 
@@ -34,9 +35,12 @@ library(lattice)
 data(NetoTb4.2)
 str(NetoTb4.2)
 
-xyplot(resp ~ f1 | f2 + f3, groups = f4, data = NetoTb4.2,
-       type = c("p", "a"), auto.key = TRUE)
+xyplot(resp ~ f1 | f2 + f3,
+       groups = f4,
+       data = NetoTb4.2,
+       type = c("p", "a"),
+       auto.key = TRUE)
 
 }
-\keyword{DBC}
+\keyword{FRAC}
 
diff --git a/man/NetoTb4.6.Rd b/man/NetoTb4.6.Rd
index 2523126d396dd4262cffc74505d59c28cb1ecc64..3dc0ef55a86104a0c915296b07d35fe812a82f34 100644
--- a/man/NetoTb4.6.Rd
+++ b/man/NetoTb4.6.Rd
@@ -2,32 +2,35 @@
 % Please edit documentation in R/NetoTb4.6.R
 \name{NetoTb4.6}
 \alias{NetoTb4.6}
-\title{Fatorial Fracionado, Estudo da Resposta Catalítica do Mo(VI)}
+\title{Fatorial Fracionado para o Estudo da Resposta Catalítica do
+    Mo(VI)}
 \format{Um \code{data.frame} com 16 observações e 7 variáveis, em que
 
 \describe{
 
-\item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+\item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+    L\eqn{^{-1}}.}
 
-\item{\code{f1}}{Fator 1: H2S04.}
+\item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+    L\eqn{^{-1}}.}
 
-\item{\code{f2}}{Fator 2: KI.}
+\item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+    L\eqn{^{-1}}.}
 
-\item{\code{f3}}{Fator 3: H2O2.}
+\item{\code{f4}}{Tempo: 90 e 130 segundos.}
 
-\item{\code{f4}}{Fator 4: Tempo.}
+\item{\code{f5}}{Fluxo: 1.2 e 3.0 mL min\eqn{^{-1}}.}
 
-\item{\code{f5}}{Fator 5: Fluxo.}
-
-\item{resp}{Traços de molibdênio.}
+\item{resp}{Sinal analítico.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 4.6, pág.177)
+NETO et al. (2010), tabela 4.6, pág. 177.
 }
 \description{
-Resultados de um experimento fatorial fracionado 2^(5-1) 
-    ,realizado para estudar a ação catalítica do Mo(VI).
+Resultados de um experimento fatorial fracionado
+    \eqn{2^{5-1}}, realizado para estudar a ação catalítica do
+    Mo(VI).
 }
 \examples{
 
@@ -36,17 +39,12 @@ library(lattice)
 data(NetoTb4.6)
 str(NetoTb4.6)
 
-wireframe(resp ~ f1 + f2 + f4 | factor(f5),
-          data = NetoTb4.6,
-          scales = list(arrows = FALSE),
-          col = "gray50",
-          as.table = TRUE,
-          col.contour = 1,
-          type = "on",
-          drape = TRUE,
-          alpha.regions = 0.5,
-          screen = list(z = 30, x = -60))
+xyplot(resp ~ f1 + f2 + f3 + f4 + f5,
+       type = c("p", "a"),
+       outer = TRUE,
+       data = NetoTb4.6,
+       as.table = TRUE)
 
 }
-\keyword{DBC}
+\keyword{FRAC}