diff --git a/R/NetoEx3.11.R b/R/NetoEx3.11.R
index ba17b33cb522aba1a5b3462fd089cbb0c072cf47..2255a22f56aaa034e1ff0c02fedd9fe6fa5b6c4d 100644
--- a/R/NetoEx3.11.R
+++ b/R/NetoEx3.11.R
@@ -1,48 +1,43 @@
 #' @name NetoEx3.11
 #' @title Síntese de Polipirrol
 #' @description Como exercício num curso de quimioterapia, foram
-#'    analisados dados obtidos por um pesquisador numa série de
-#'    experimentos de síntese de polipirrol numa matriz de EPDM.
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'     analisados dados obtidos por um pesquisador numa série de
+#'     experimentos de síntese de polipirrol numa matriz de EPDM. O
+#'     plano fatorial é um \eqn{2^3} com duas repetições.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{i}}{Número do ensaio.}
-#'
 #' \item{\code{t}}{Tempo da reação.}
 #'
 #' \item{\code{C}}{Concentração de oxidante.}
-#' 
+#'
 #' \item{\code{P}}{Tamanho da partícula.}
 #'
+#' \item{\code{rend}}{Rendimento da reação (\%).}
+#'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Exercício 3.11, pág. 126.
 #' @examples
 #'
 #' data(NetoEx3.11)
 #' str(NetoEx3.11)
 #'
-#' par(mfrow=c(1,3))
-#'
-#' attach(NetoEx3.11)
-#'
-#' interaction.plot(t, C, rend,
-#'                  ylab = "Rendimento Médio",
-#'                  main = "Interação entre Tempo de Reação e
-#'                  Concentração de Oxidante",
-#'                  col = "blue")
-#'
-#' interaction.plot(t, P, rend,
-#'                  ylab = "Rendimento Médio",
-#'                  main = "Interação entre Tempo de Reação e Tamanho da
-#'                  Partícula",
-#'                  col = "green")
-#'
-#' interaction.plot(C, P, rend,
-#'                  ylab = "Rendimento Médio",
-#'                  main = "Interação entre Concentração de Oxidente e
-#'                  Tamanho da Partícula",
-#'                  col = "red")
-#'
-NULL
\ No newline at end of file
+#' par(mfrow = c(1,3))
+#' with(NetoEx3.11, {
+#'     interaction.plot(t, C, rend,
+#'                      ylab = "Rendimento Médio",
+#'                      main = "Tempo de Reação x Conc. de Oxidante",
+#'                      col = "blue")
+#'     interaction.plot(t, P, rend,
+#'                      ylab = "Rendimento Médio",
+#'                      main = "Tempo de Reação x Tamanho da Partícula",
+#'                      col = "green")
+#'     interaction.plot(C, P, rend,
+#'                      ylab = "Rendimento Médio",
+#'                      main = "Conc. de Oxidente x Tamanho da Partícula",
+#'                      col = "red")
+#' })
+#'
+NULL
diff --git a/R/NetoTb2.2.R b/R/NetoTb2.2.R
index 412dce35d67d1e357cbada46dca0265d718ea8c1..715d67e233051f4bdecb0cf3cdcd0b4bb50e81c7 100644
--- a/R/NetoTb2.2.R
+++ b/R/NetoTb2.2.R
@@ -1,18 +1,21 @@
 #' @name NetoTb2.2
 #' @title Pesos de Caroços Extraídos de um Pacote de Feijão
-#' @description Pesos individuais de 140 caroços retirados 
+#' @description Pesos individuais de 140 caroços retirados
 #'     aleatoriamente de um pacote contendo 1 kg de feijão preto.
 #' @format Um \code{vetor} numérico com 140 observações.
 #' @keywords AAS
-#' @source Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+#' @source NETO et al. (2010), Tabela 2.2, pág. 32.
 #' @examples
 #'
 #' data(NetoTb2.2)
 #' str(NetoTb2.2)
 #'
-#' hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência", 
-#'      main = "Pesos dos Caroços", col = "grey", prob = TRUE)
-#'      
-#' lines(density(NetoTb2.2), lwd = 2)      
+#' hist(NetoTb2.2,
+#'      xlab = "Peso",
+#'      ylab = "Frequência",
+#'      main = "Pesos dos Caroços",
+#'      col = "grey",
+#'      prob = TRUE)
+#' lines(density(NetoTb2.2), lwd = 2)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb2.4.R b/R/NetoTb2.4.R
index a3c88034ea6f07ee09775b27e3fd57561096bdbb..03d81d422f7bc75b3d968b3234f771fc370c0934 100644
--- a/R/NetoTb2.4.R
+++ b/R/NetoTb2.4.R
@@ -1,32 +1,47 @@
 #' @name NetoTb2.4
-#' @title Comparação de resultados obtidos por 2 químicos
-#' @description Dois químicos, Arrhenius e Berzelius foram encarregados
-#'    de analisar lotes de vinagre de 5 diferentes fabricantes, cada
-#'    um obteve 5 diferentes resultados. O experimento contém um único
-#'    fator com dois níveis (os químicos) e uma resposta (a
-#'    concentração).
-#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#' @title Comparação de Titulação de Viangre por 2 Químicos
+#' @description Dois químicos, Arrhenius e Berzelius, foram encarregados
+#'     de analisar lotes de vinagre de 5 diferentes fabricantes. O
+#'     experimento contém um único fator com dois níveis (os químicos) e
+#'     uma resposta (o teor de acído acético, em \%). As medidas são
+#'     pareadas, ou seja, os dois quimícos avaliam cada um dos vinagres
+#'     gerando, para cada vinagre, um par de valores da resposta.
+#' @format Um \code{data.frame} com 5 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{fator}}{Fator de 2 níveis qualitativos.}
+#' \item{\code{Arr}}{Teores de ácido acético determinados pelo Químico
+#'     Arrhenius.}
 #'
-#' \item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
-#'    diferentes fabricantes de vinagre.}
+#' \item{\code{Ber}}{Teores de ácido acético determinados pelo Químico
+#'     Berzelius.}
 #'
-#' \item{\code{concentração}}{Concentração de vinagre obtida.}
+#' \item{\code{d}}{Diferença de concentação obtida entre os químicos
+#'     para a amostra de vinagre do mesmo fabricante.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+#' @keywords pareada
+#' @source NETO et al. (2010), Tabela 2.4, pág. 79.
 #' @examples
 #'
 #' library(lattice)
+#' library(latticeExtra)
 #'
 #' data(NetoTb2.4)
 #' str(NetoTb2.4)
 #'
-#' xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
-#'        xlab = "Amostra", ylab = "Resposta ")
-#'
-NULL
\ No newline at end of file
+#' dotplot(1:length(d) ~ Arr + Ber,
+#'         data = NetoTb2.4,
+#'         auto.key = TRUE,
+#'         xlab = "Teor de ácido acético (%)",
+#'         ylab = "Fabricantes")
+#'
+#' xyplot(Arr ~ Ber,
+#'        data = NetoTb2.4,
+#'        aspect = "iso",
+#'        grid = TRUE,
+#'        xlab = "Berzelius",
+#'        ylab = "Arrhenius") +
+#'     layer(panel.abline(a = 0, b = 1, lty = 2))
+#'
+NULL
diff --git a/R/NetoTb2A.1.R b/R/NetoTb2A.1.R
index a08931cc45ccfe70a6ce4a78519870f7e2b1e36a..c3317919c5ba52afc8dccc8af585ca0e9d1a3199 100644
--- a/R/NetoTb2A.1.R
+++ b/R/NetoTb2A.1.R
@@ -1,35 +1,49 @@
 #' @name NetoTb2A.1
-#' @title De casa para o trabalho
+#' @title Tempo de Casa ao Trabalho em 3 Percursos
 #' @description Foi cronometrado o tempo transcorrido desde o momento em
 #'    que o ônibus passa por uma ponte no trajeto até a hora que o
-#'    pesquisador chega à seu destino final.
-#' @format Um \code{data.frame} com 32 observações e 5 variáveis, em que
+#'    pesquisador chega à seu destino final. Os dados possem registros
+#'     do dia da semana e do percurso que foi feito.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Número do ensaio.}
+#' \item{\code{sai}}{Variável que indica o horário de saída do
+#'     pesquisador rumo ao destino final.}
 #'
-#' \item{\code{sai}}{Fator de 25 níveis referentes aos horários de 
-#'    saída do pesquisador.}
+#' \item{dia}{Fator de 5 níveis referentes aos dias da semana em que o
+#'    pesquisador realizou o trajeto.}
 #'
-#' \item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
-#'    realizou o trajeto.}
-#'    
-#' \item{perc}{Fator de e níveis referentes ao percurso realizado.}
-#' 
-#' \item{tem}{Tempo de viagem do pesquisador.} 
+#' \item{perc}{Fator de 3 níveis referentes ao percurso (trajeto)
+#'     realizado.}
+#'
+#' \item{tem}{Tempo até chegar os destino final, em minutos.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+#' @keywords RM
+#' @source NETO et al. (2010), Tabela 2A.1, pág. 86.
 #' @examples
 #'
 #' data(NetoTb2A.1)
 #' str(NetoTb2A.1)
 #'
-#' plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
-#'      xlab = "Ensaio", ylab = "Tempo", 
-#'      main = "Tempo de Viagem")
+#' library(lattice)
+#'
+#' NetoTb2A.1$hora <- as.POSIXct(NetoTb2A.1$sai, format = "%H:%M")
+#' NetoTb2A.1$hora <- as.numeric(difftime(NetoTb2A.1$hora,
+#'                                        min(NetoTb2A.1$hora),
+#'                                        units = "mins"))
+#'
+#' addmargins(xtabs(~dia + perc, data = NetoTb2A.1))
 #'
+#' xyplot(tem ~ hora | perc,
+#'        type = "p",
+#'        groups = dia,
+#'        auto.key = TRUE,
+#'        par.settings = list(superpose.symbol = list(pch = 19)),
+#'        data = NetoTb2A.1,
+#'        xlab = "Ensaio",
+#'        ylab = "Tempo",
+#'        main = "Tempo de Viagem")
 #'
 NULL
diff --git a/R/NetoTb2A.3.R b/R/NetoTb2A.3.R
index 2bbd899a973da4d5ac27f4a8c8f0455c14e3b447..c01352a22999ff42b9644590ee95e6715fbe9f72 100644
--- a/R/NetoTb2A.3.R
+++ b/R/NetoTb2A.3.R
@@ -1,36 +1,39 @@
 #' @name NetoTb2A.3
-#' @title Bioequivalencia de medicamentos
-#' @description à 21 voluntários foram ministrados dois medicamentos
-#'    distintos e observou-se a concentração do princípio ativo no 
-#'    sangue dos indivíduos no período de 8 horas.
+#' @title Bioequivalencia de Medicamentos Genéricos e de Marca
+#' @description Foram ministrados dois medicamentos distintos, um
+#'     genérico e um de marca, em 21 voluntários e observou-se a área
+#'     abaixo da curva de concentração do princípio ativo no sangue, em
+#'     função do tempo, dos indivíduos no período de 8 horas.
 #' @format Um \code{data.frame} com 21 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{vol}}{Número do voluntário.}
+#' \item{\code{vol}}{Número do voluntário que foi submetido aos dois
+#'     medicamentos.}
 #'
-#' \item{\code{A}}{Resultados da aplicação do medicamento A.}
+#' \item{\code{A}}{Valor da área abaixo da curva da concentração do
+#'     princípio ativo no sangue no período de 8 horas do medicamento
+#'     genérico.}
 #'
-#' \item{\code{B}}{Resultados da aplicação do medicamento B.}
+#' \item{\code{B}}{Valor da área abaixo da curva da concentração do
+#'     princípio ativo no sangue no período de 8 horas do medicamento de
+#'     referência.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+#' @keywords pareado
+#' @source NETO et al. (2010), Tabela 2A.3, pág. 93.
 #' @examples
 #'
 #' data(NetoTb2A.3)
 #' str(NetoTb2A.3)
 #'
-#' par(mfrow = 1:2)
+#' library(lattice)
 #'
-#' plot(A ~ vol, type = "o", xlab = "Voluntário",
-#'      ylab = "Área sob a Curva",
-#'      main = "Medicamento A",
-#'      col = "blue", data = NetoTb2A.3)
+#' dotplot(reorder(vol, B) ~ A + B,
+#'         data = NetoTb2A.3,
+#'         auto.key = TRUE,
+#'         xlab = "Área abaixo da curva",
+#'         ylab = "Voluntários\n(ordenados pelo medicamento de referência)",
+#'         par.settings = list(superpose.symbol = list(pch = 19)))
 #'
-#' plot(B ~ vol, type = "o", xlab = "Voluntário",
-#'      ylab = "Área sob a Curva",
-#'      main = "Medicamento B",
-#'      col = "red", data = NetoTb2A.3)
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb2A.5.R b/R/NetoTb2A.5.R
index 4d4a54cd9c5db0f295391c9ae562e89ee2d8ffdc..8671481ea432dd63e74b089ca4e99525870a8643 100644
--- a/R/NetoTb2A.5.R
+++ b/R/NetoTb2A.5.R
@@ -1,28 +1,32 @@
 #' @name NetoTb2A.5
-#' @title Produtividade de algas marinhas
-#' @description Teor de Agar-agar de algas retiradas de 2 locais.
+#' @title Produtividade de Algas Marinhas
+#' @description Teor de agar-agar de algas retiradas de 2 locais com
+#'     diferentes níveis de atividade industrial.
 #' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
-#' 
-#' \item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
+#' \item{\code{local}}{Local de onde foram extraídas as amostras de
+#'     alga: A - local com pouca atividade urbana mas com atividade
+#'     industrial, B - local com muita atividade urbana mas sem
+#'     atividade industrial.}
+#'
+#' \item{\code{teor}}{Teor de agar-agar observado (\%) da alga.}
+#'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+#' @keywords AAS
+#' @source NETO et al. (2010), Tabela 2A.5, pág. 97.
 #' @examples
 #'
 #' data(NetoTb2A.5)
 #' str(NetoTb2A.5)
 #'
-#' par(mfrow = c(1,2))
-#'
-#' plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(%)",
-#'      main = "Teor de agar no local A", col = "blue")
-#'
-#' plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(%)",
-#'      main = "Teor de agar no local B", col = "red")
+#' library(lattice)
 #'
+#' bwplot(teor ~ local, data = NetoTb2A.5,
+#'        par.settings = list(box.dot = list(pch = "|"),
+#'                            box.umbrella = list(lty = 1, col = 1),
+#'                            box.rectangle = list(col = 1,
+#'                                                 fill = "gray50")))
 #'
 NULL
diff --git a/R/NetoTb3.3.R b/R/NetoTb3.3.R
index f4beb05ddc661b0f901d9e612447a41b3aa9a06e..f52c66e8e6f2a5d8208c3cea9f8994216de90716 100644
--- a/R/NetoTb3.3.R
+++ b/R/NetoTb3.3.R
@@ -1,48 +1,46 @@
 #' @name NetoTb3.3
-#' @title Um planejamento fatorial 2^3
-#' @description Resultado de um planejamento fatorial 2^3
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @title Rendimento de uma Reação em Função da Temperatura, Catalizador
+#'     e Concentração
+#' @description Resultado de um planejamento fatorial \eqn{2^3}, em
+#'     duplicata, que estudou o rendimento de uma reação em função dos
+#'     níveis de temperatura, tipo de catalizador e níveis de
+#'     concentação.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Número do ensaio.}
+#' \item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
 #'
-#' \item{\code{f1}}{Níveis do fator temperatura.}
+#' \item{\code{f2}}{Tipo de catalisador (A e B).}
 #'
-#' \item{\code{f2}}{Níveis do fator catalisador.}
-#' 
-#' \item{\code{f3}}{Níveis do fator concentração.}
-#' 
-#' \item{\code{rend}}{Percentual de rendimento observado.}
-#' 
-#' \item{\code{ord}}{Ordem da realização do estudo.}
+#' \item{\code{f3}}{Concentração (1 e 1.5 M).}
+#'
+#' \item{\code{rend}}{Rendimento da reação (\%).}
+#'
+#' \item{\code{ord}}{Ordem da realização das corridas.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3.3, pág. 121.
 #' @examples
 #'
 #' data(NetoTb3.3)
 #' str(NetoTb3.3)
 #'
-#' par(mfrow=c(1,3))
-#'
-#' attach(NetoTb3.3)
-#' 
-#' interaction.plot(f1, f2, rend,
-#'                  ylab = "Rendimento Médio",
-#'                  main = "Interação entre os Fatores 1 e 2",
-#'                  col = "blue")
-#'
-#' interaction.plot(f1, f3, rend,
-#'                  ylab = "Rendimento Médio",
-#'                  main = "Interação entre os Fatores 1 e 3",
-#'                  col = "green")
-#'
-#' interaction.plot(f2, f3, rend,
-#'                  ylab = "Rendimento Médio",
-#'                  main = "Interação entre os Fatores 2 e 3",
-#'                  col = "red")
-#' 
-#'
-NULL
\ No newline at end of file
+#' par(mfrow = c(1, 3))
+#' with(NetoTb3.3, {
+#'     interaction.plot(f1, f2, rend,
+#'                      ylab = "Rendimento Médio",
+#'                      main = "Temperatura x Catalizador",
+#'                      col = "blue")
+#'     interaction.plot(f1, f3, rend,
+#'                      ylab = "Rendimento Médio",
+#'                      main = "Temperatura x Concentração",
+#'                      col = "green")
+#'     interaction.plot(f2, f3, rend,
+#'                      ylab = "Rendimento Médio",
+#'                      main = "Catalizador x Concentração",
+#'                      col = "red")
+#' })
+#'
+NULL
diff --git a/R/NetoTb3.6.R b/R/NetoTb3.6.R
index 2bc96ccb5740866505d3084093a6ba26bbc2165c..4f5b35c68577944644d51537563b34a76adafd33 100644
--- a/R/NetoTb3.6.R
+++ b/R/NetoTb3.6.R
@@ -1,25 +1,25 @@
 #' @name NetoTb3.6
-#' @title Influência de quatro fatores no rendimento de uma reação
-#' @description Resultado de um fatorial 2^4
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @title Influência de Quatro Fatores no Rendimento de uma Reação
+#' @description Resultados de um experimento fatorial \eqn{2^4} que
+#'     estudou o efeito de quatro fatores no rendimento de uma reação
+#'     química.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
 #'
-#' \item{\code{f1}}{Fator temperatura.}
-#' 
-#' \item{\code{f2}}{Fator catalisador.}
-#' 
-#' \item{\code{f3}}{Fator concentração.}
-#' 
-#' \item{\code{f1}}{Fator PH.}
+#' \item{\code{f2}}{Tipo de catalisador (A e B).}
 #'
-#' \item{res}{Resposta.}
+#' \item{\code{f3}}{Concentração (1 e 1.5 M).}
+#'
+#' \item{\code{f4}}{Acidez (pH 7 e 6).}
+#'
+#' \item{rend}{Rendimento de uma reação.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3.6, pág. 130.
 #' @examples
 #'
 #' library(lattice)
@@ -27,8 +27,10 @@
 #' data(NetoTb3.6)
 #' str(NetoTb3.6)
 #'
-#' xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#'        data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-#'
+#' xyplot(res ~ f1 | f2,
+#'        groups = interaction(f3, f4, sep = ":"),
+#'        data = NetoTb3.6,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
 #'
 NULL
diff --git a/data/NetoEx3.11.rda b/data/NetoEx3.11.rda
index c7edde745b2e29346252592224684ade58ee260b..02d7bb3b96275bf5b57749d2ecbaf383dafe0e8d 100644
Binary files a/data/NetoEx3.11.rda and b/data/NetoEx3.11.rda differ
diff --git a/data/NetoTb2.4.rda b/data/NetoTb2.4.rda
index 0ae74aedc5e8cb5e6c772dab3b7df22340e81d9f..1cd85f94faf26d1f1bc0b0aa2445a42fa4df338f 100644
Binary files a/data/NetoTb2.4.rda and b/data/NetoTb2.4.rda differ
diff --git a/data/NetoTb2A.1.rda b/data/NetoTb2A.1.rda
index 13161cdea851970dffa916b4556af6366ca4696f..2f246448f0a7ab27001fec5008088e8d3ce88c4e 100644
Binary files a/data/NetoTb2A.1.rda and b/data/NetoTb2A.1.rda differ
diff --git a/data/NetoTb2A.5.rda b/data/NetoTb2A.5.rda
index ce2d3c36f491304cbf5dbd2b6bf697cd8bb20d9f..62f8bfd17b0849ecb77d356f1f69f1097fc1c766 100644
Binary files a/data/NetoTb2A.5.rda and b/data/NetoTb2A.5.rda differ
diff --git a/data/NetoTb3.3.rda b/data/NetoTb3.3.rda
index e3d98e6edcd78cde83228568f39f2e9b806d3689..a3dfece9b5268a807959ab0e69fd7dab12e008fa 100644
Binary files a/data/NetoTb3.3.rda and b/data/NetoTb3.3.rda differ
diff --git a/data/NetoTb3.6.rda b/data/NetoTb3.6.rda
index d9812838162bedcf9b19e21ba500aa221e646f06..96c867fd76fa901bd079a61f3793c219b3f0cdc7 100644
Binary files a/data/NetoTb3.6.rda and b/data/NetoTb3.6.rda differ
diff --git a/man/NetoEx3.11.Rd b/man/NetoEx3.11.Rd
index d632eca0b7be419a782c23d36116e43e658477f4..d821990033999ec78640d679ae09900a37d58d60 100644
--- a/man/NetoEx3.11.Rd
+++ b/man/NetoEx3.11.Rd
@@ -3,54 +3,49 @@
 \name{NetoEx3.11}
 \alias{NetoEx3.11}
 \title{Síntese de Polipirrol}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
 
 \describe{
 
-\item{\code{i}}{Número do ensaio.}
-
 \item{\code{t}}{Tempo da reação.}
 
 \item{\code{C}}{Concentração de oxidante.}
 
 \item{\code{P}}{Tamanho da partícula.}
 
+\item{\code{rend}}{Rendimento da reação (\%).}
+
 }}
 \source{
-Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+NETO et al. (2010), Exercício 3.11, pág. 126.
 }
 \description{
 Como exercício num curso de quimioterapia, foram
-   analisados dados obtidos por um pesquisador numa série de
-   experimentos de síntese de polipirrol numa matriz de EPDM.
+    analisados dados obtidos por um pesquisador numa série de
+    experimentos de síntese de polipirrol numa matriz de EPDM. O
+    plano fatorial é um \eqn{2^3} com duas repetições.
 }
 \examples{
 
 data(NetoEx3.11)
 str(NetoEx3.11)
 
-par(mfrow=c(1,3))
-
-attach(NetoEx3.11)
-
-interaction.plot(t, C, rend,
-                 ylab = "Rendimento Médio",
-                 main = "Interação entre Tempo de Reação e
-                 Concentração de Oxidante",
-                 col = "blue")
-
-interaction.plot(t, P, rend,
-                 ylab = "Rendimento Médio",
-                 main = "Interação entre Tempo de Reação e Tamanho da
-                 Partícula",
-                 col = "green")
-
-interaction.plot(C, P, rend,
-                 ylab = "Rendimento Médio",
-                 main = "Interação entre Concentração de Oxidente e
-                 Tamanho da Partícula",
-                 col = "red")
+par(mfrow = c(1,3))
+with(NetoEx3.11, {
+    interaction.plot(t, C, rend,
+                     ylab = "Rendimento Médio",
+                     main = "Tempo de Reação x Conc. de Oxidante",
+                     col = "blue")
+    interaction.plot(t, P, rend,
+                     ylab = "Rendimento Médio",
+                     main = "Tempo de Reação x Tamanho da Partícula",
+                     col = "green")
+    interaction.plot(C, P, rend,
+                     ylab = "Rendimento Médio",
+                     main = "Conc. de Oxidente x Tamanho da Partícula",
+                     col = "red")
+})
 
 }
-\keyword{DBC}
+\keyword{FAT2K}
 
diff --git a/man/NetoTb2.2.Rd b/man/NetoTb2.2.Rd
index 659effa7e13d70c2c7f806dcdac2571df4bee02f..cd5e94d33569a9f69ba749f139c490c4ca824e5b 100644
--- a/man/NetoTb2.2.Rd
+++ b/man/NetoTb2.2.Rd
@@ -5,10 +5,10 @@
 \title{Pesos de Caroços Extraídos de um Pacote de Feijão}
 \format{Um \code{vetor} numérico com 140 observações.}
 \source{
-Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+NETO et al. (2010), Tabela 2.2, pág. 32.
 }
 \description{
-Pesos individuais de 140 caroços retirados 
+Pesos individuais de 140 caroços retirados
     aleatoriamente de um pacote contendo 1 kg de feijão preto.
 }
 \examples{
@@ -16,10 +16,13 @@ Pesos individuais de 140 caroços retirados
 data(NetoTb2.2)
 str(NetoTb2.2)
 
-hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência", 
-     main = "Pesos dos Caroços", col = "grey", prob = TRUE)
-     
-lines(density(NetoTb2.2), lwd = 2)      
+hist(NetoTb2.2,
+     xlab = "Peso",
+     ylab = "Frequência",
+     main = "Pesos dos Caroços",
+     col = "grey",
+     prob = TRUE)
+lines(density(NetoTb2.2), lwd = 2)
 
 }
 \keyword{AAS}
diff --git a/man/NetoTb2.4.Rd b/man/NetoTb2.4.Rd
index 9908034dd3102d9e9d617806200e48b29dc4162b..7ca55037a0b24ddd4ff42b6812a5aeaf37965e72 100644
--- a/man/NetoTb2.4.Rd
+++ b/man/NetoTb2.4.Rd
@@ -2,39 +2,54 @@
 % Please edit documentation in R/NetoTb2.4.R
 \name{NetoTb2.4}
 \alias{NetoTb2.4}
-\title{Comparação de resultados obtidos por 2 químicos}
-\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+\title{Comparação de Titulação de Viangre por 2 Químicos}
+\format{Um \code{data.frame} com 5 observações e 3 variáveis, em que
 
 \describe{
 
-\item{\code{fator}}{Fator de 2 níveis qualitativos.}
+\item{\code{Arr}}{Teores de ácido acético determinados pelo Químico
+    Arrhenius.}
 
-\item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
-   diferentes fabricantes de vinagre.}
+\item{\code{Ber}}{Teores de ácido acético determinados pelo Químico
+    Berzelius.}
 
-\item{\code{concentração}}{Concentração de vinagre obtida.}
+\item{\code{d}}{Diferença de concentação obtida entre os químicos
+    para a amostra de vinagre do mesmo fabricante.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+NETO et al. (2010), Tabela 2.4, pág. 79.
 }
 \description{
-Dois químicos, Arrhenius e Berzelius foram encarregados
-   de analisar lotes de vinagre de 5 diferentes fabricantes, cada
-   um obteve 5 diferentes resultados. O experimento contém um único
-   fator com dois níveis (os químicos) e uma resposta (a
-   concentração).
+Dois químicos, Arrhenius e Berzelius, foram encarregados
+    de analisar lotes de vinagre de 5 diferentes fabricantes. O
+    experimento contém um único fator com dois níveis (os químicos) e
+    uma resposta (o teor de acído acético, em \%). As medidas são
+    pareadas, ou seja, os dois quimícos avaliam cada um dos vinagres
+    gerando, para cada vinagre, um par de valores da resposta.
 }
 \examples{
 
 library(lattice)
+library(latticeExtra)
 
 data(NetoTb2.4)
 str(NetoTb2.4)
 
-xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
-       xlab = "Amostra", ylab = "Resposta ")
+dotplot(1:length(d) ~ Arr + Ber,
+        data = NetoTb2.4,
+        auto.key = TRUE,
+        xlab = "Teor de ácido acético (\%)",
+        ylab = "Fabricantes")
+
+xyplot(Arr ~ Ber,
+       data = NetoTb2.4,
+       aspect = "iso",
+       grid = TRUE,
+       xlab = "Berzelius",
+       ylab = "Arrhenius") +
+    layer(panel.abline(a = 0, b = 1, lty = 2))
 
 }
-\keyword{DBC}
+\keyword{pareada}
 
diff --git a/man/NetoTb2A.1.Rd b/man/NetoTb2A.1.Rd
index 6ccd6398521eb2a7b4452ab44da244f1db8bcb30..99848a5f292d9f2dad5d2ce8dfd41e6ce5aac2cb 100644
--- a/man/NetoTb2A.1.Rd
+++ b/man/NetoTb2A.1.Rd
@@ -2,42 +2,56 @@
 % Please edit documentation in R/NetoTb2A.1.R
 \name{NetoTb2A.1}
 \alias{NetoTb2A.1}
-\title{De casa para o trabalho}
-\format{Um \code{data.frame} com 32 observações e 5 variáveis, em que
+\title{Tempo de Casa ao Trabalho em 3 Percursos}
+\format{Um \code{data.frame} com 32 observações e 4 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Número do ensaio.}
+\item{\code{sai}}{Variável que indica o horário de saída do
+    pesquisador rumo ao destino final.}
 
-\item{\code{sai}}{Fator de 25 níveis referentes aos horários de 
-   saída do pesquisador.}
+\item{dia}{Fator de 5 níveis referentes aos dias da semana em que o
+   pesquisador realizou o trajeto.}
 
-\item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
-   realizou o trajeto.}
-   
-\item{perc}{Fator de e níveis referentes ao percurso realizado.}
+\item{perc}{Fator de 3 níveis referentes ao percurso (trajeto)
+    realizado.}
 
-\item{tem}{Tempo de viagem do pesquisador.} 
+\item{tem}{Tempo até chegar os destino final, em minutos.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+NETO et al. (2010), Tabela 2A.1, pág. 86.
 }
 \description{
 Foi cronometrado o tempo transcorrido desde o momento em
    que o ônibus passa por uma ponte no trajeto até a hora que o
-   pesquisador chega à seu destino final.
+   pesquisador chega à seu destino final. Os dados possem registros
+    do dia da semana e do percurso que foi feito.
 }
 \examples{
 
 data(NetoTb2A.1)
 str(NetoTb2A.1)
 
-plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
-     xlab = "Ensaio", ylab = "Tempo", 
-     main = "Tempo de Viagem")
+library(lattice)
 
+NetoTb2A.1$hora <- as.POSIXct(NetoTb2A.1$sai, format = "\%H:\%M")
+NetoTb2A.1$hora <- as.numeric(difftime(NetoTb2A.1$hora,
+                                       min(NetoTb2A.1$hora),
+                                       units = "mins"))
+
+addmargins(xtabs(~dia + perc, data = NetoTb2A.1))
+
+xyplot(tem ~ hora | perc,
+       type = "p",
+       groups = dia,
+       auto.key = TRUE,
+       par.settings = list(superpose.symbol = list(pch = 19)),
+       data = NetoTb2A.1,
+       xlab = "Ensaio",
+       ylab = "Tempo",
+       main = "Tempo de Viagem")
 
 }
-\keyword{DBC}
+\keyword{RM}
 
diff --git a/man/NetoTb2A.3.Rd b/man/NetoTb2A.3.Rd
index 809f31bad58884eed836c90fcf24f1144e8e2e3e..304dcad7cb3e270142ab55b5e1024ca4bf484958 100644
--- a/man/NetoTb2A.3.Rd
+++ b/man/NetoTb2A.3.Rd
@@ -2,43 +2,46 @@
 % Please edit documentation in R/NetoTb2A.3.R
 \name{NetoTb2A.3}
 \alias{NetoTb2A.3}
-\title{Bioequivalencia de medicamentos}
+\title{Bioequivalencia de Medicamentos Genéricos e de Marca}
 \format{Um \code{data.frame} com 21 observações e 3 variáveis, em que
 
 \describe{
 
-\item{\code{vol}}{Número do voluntário.}
+\item{\code{vol}}{Número do voluntário que foi submetido aos dois
+    medicamentos.}
 
-\item{\code{A}}{Resultados da aplicação do medicamento A.}
+\item{\code{A}}{Valor da área abaixo da curva da concentração do
+    princípio ativo no sangue no período de 8 horas do medicamento
+    genérico.}
 
-\item{\code{B}}{Resultados da aplicação do medicamento B.}
+\item{\code{B}}{Valor da área abaixo da curva da concentração do
+    princípio ativo no sangue no período de 8 horas do medicamento de
+    referência.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+NETO et al. (2010), Tabela 2A.3, pág. 93.
 }
 \description{
-à 21 voluntários foram ministrados dois medicamentos
-   distintos e observou-se a concentração do princípio ativo no 
-   sangue dos indivíduos no período de 8 horas.
+Foram ministrados dois medicamentos distintos, um
+    genérico e um de marca, em 21 voluntários e observou-se a área
+    abaixo da curva de concentração do princípio ativo no sangue, em
+    função do tempo, dos indivíduos no período de 8 horas.
 }
 \examples{
 
 data(NetoTb2A.3)
 str(NetoTb2A.3)
 
-par(mfrow = 1:2)
+library(lattice)
 
-plot(A ~ vol, type = "o", xlab = "Voluntário",
-     ylab = "Área sob a Curva",
-     main = "Medicamento A",
-     col = "blue", data = NetoTb2A.3)
-
-plot(B ~ vol, type = "o", xlab = "Voluntário",
-     ylab = "Área sob a Curva",
-     main = "Medicamento B",
-     col = "red", data = NetoTb2A.3)
+dotplot(reorder(vol, B) ~ A + B,
+        data = NetoTb2A.3,
+        auto.key = TRUE,
+        xlab = "Área abaixo da curva",
+        ylab = "Voluntários\\n(ordenados pelo medicamento de referência)",
+        par.settings = list(superpose.symbol = list(pch = 19)))
 
 }
-\keyword{DBC}
+\keyword{pareado}
 
diff --git a/man/NetoTb2A.5.Rd b/man/NetoTb2A.5.Rd
index 7881f9b542ef524bc44afb907f328591c165f542..2a3ffb335d9c9fe69e8666cd205cf02f5fe07ae7 100644
--- a/man/NetoTb2A.5.Rd
+++ b/man/NetoTb2A.5.Rd
@@ -2,35 +2,39 @@
 % Please edit documentation in R/NetoTb2A.5.R
 \name{NetoTb2A.5}
 \alias{NetoTb2A.5}
-\title{Produtividade de algas marinhas}
+\title{Produtividade de Algas Marinhas}
 \format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
+\item{\code{local}}{Local de onde foram extraídas as amostras de
+    alga: A - local com pouca atividade urbana mas com atividade
+    industrial, B - local com muita atividade urbana mas sem
+    atividade industrial.}
+
+\item{\code{teor}}{Teor de agar-agar observado (\%) da alga.}
 
-\item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+NETO et al. (2010), Tabela 2A.5, pág. 97.
 }
 \description{
-Teor de Agar-agar de algas retiradas de 2 locais.
+Teor de agar-agar de algas retiradas de 2 locais com
+    diferentes níveis de atividade industrial.
 }
 \examples{
 
 data(NetoTb2A.5)
 str(NetoTb2A.5)
 
-par(mfrow = c(1,2))
-
-plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(\%)",
-     main = "Teor de agar no local A", col = "blue")
-
-plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(\%)",
-     main = "Teor de agar no local B", col = "red")
+library(lattice)
 
+bwplot(teor ~ local, data = NetoTb2A.5,
+       par.settings = list(box.dot = list(pch = "|"),
+                           box.umbrella = list(lty = 1, col = 1),
+                           box.rectangle = list(col = 1,
+                                                fill = "gray50")))
 
 }
-\keyword{DBC}
+\keyword{AAS}
 
diff --git a/man/NetoTb3.3.Rd b/man/NetoTb3.3.Rd
index ba2ef129e847f08a146ce7f57e5dd6936fd3f64c..989768a7f14f518fb74cbd28afe0cdd9775df135 100644
--- a/man/NetoTb3.3.Rd
+++ b/man/NetoTb3.3.Rd
@@ -2,55 +2,53 @@
 % Please edit documentation in R/NetoTb3.3.R
 \name{NetoTb3.3}
 \alias{NetoTb3.3}
-\title{Um planejamento fatorial 2^3}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\title{Rendimento de uma Reação em Função da Temperatura, Catalizador
+    e Concentração}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Número do ensaio.}
+\item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
 
-\item{\code{f1}}{Níveis do fator temperatura.}
+\item{\code{f2}}{Tipo de catalisador (A e B).}
 
-\item{\code{f2}}{Níveis do fator catalisador.}
+\item{\code{f3}}{Concentração (1 e 1.5 M).}
 
-\item{\code{f3}}{Níveis do fator concentração.}
+\item{\code{rend}}{Rendimento da reação (\%).}
 
-\item{\code{rend}}{Percentual de rendimento observado.}
-
-\item{\code{ord}}{Ordem da realização do estudo.}
+\item{\code{ord}}{Ordem da realização das corridas.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+NETO et al. (2010), Tabela 3.3, pág. 121.
 }
 \description{
-Resultado de um planejamento fatorial 2^3
+Resultado de um planejamento fatorial \eqn{2^3}, em
+    duplicata, que estudou o rendimento de uma reação em função dos
+    níveis de temperatura, tipo de catalizador e níveis de
+    concentação.
 }
 \examples{
 
 data(NetoTb3.3)
 str(NetoTb3.3)
 
-par(mfrow=c(1,3))
-
-attach(NetoTb3.3)
-
-interaction.plot(f1, f2, rend,
-                 ylab = "Rendimento Médio",
-                 main = "Interação entre os Fatores 1 e 2",
-                 col = "blue")
-
-interaction.plot(f1, f3, rend,
-                 ylab = "Rendimento Médio",
-                 main = "Interação entre os Fatores 1 e 3",
-                 col = "green")
-
-interaction.plot(f2, f3, rend,
-                 ylab = "Rendimento Médio",
-                 main = "Interação entre os Fatores 2 e 3",
-                 col = "red")
-
+par(mfrow = c(1, 3))
+with(NetoTb3.3, {
+    interaction.plot(f1, f2, rend,
+                     ylab = "Rendimento Médio",
+                     main = "Temperatura x Catalizador",
+                     col = "blue")
+    interaction.plot(f1, f3, rend,
+                     ylab = "Rendimento Médio",
+                     main = "Temperatura x Concentração",
+                     col = "green")
+    interaction.plot(f2, f3, rend,
+                     ylab = "Rendimento Médio",
+                     main = "Catalizador x Concentração",
+                     col = "red")
+})
 
 }
-\keyword{DBC}
+\keyword{FAT2K}
 
diff --git a/man/NetoTb3.6.Rd b/man/NetoTb3.6.Rd
index df755f32d32267d7cbea41052f7fdce328d7fbad..de3ee42e7ed8f1c34a2f7332b07084097e31ba52 100644
--- a/man/NetoTb3.6.Rd
+++ b/man/NetoTb3.6.Rd
@@ -2,29 +2,29 @@
 % Please edit documentation in R/NetoTb3.6.R
 \name{NetoTb3.6}
 \alias{NetoTb3.6}
-\title{Influência de quatro fatores no rendimento de uma reação}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\title{Influência de Quatro Fatores no Rendimento de uma Reação}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Número do ensaio correspondente.}
+\item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
 
-\item{\code{f1}}{Fator temperatura.}
+\item{\code{f2}}{Tipo de catalisador (A e B).}
 
-\item{\code{f2}}{Fator catalisador.}
+\item{\code{f3}}{Concentração (1 e 1.5 M).}
 
-\item{\code{f3}}{Fator concentração.}
+\item{\code{f4}}{Acidez (pH 7 e 6).}
 
-\item{\code{f1}}{Fator PH.}
-
-\item{res}{Resposta.}
+\item{rend}{Rendimento de uma reação.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+NETO et al. (2010), Tabela 3.6, pág. 130.
 }
 \description{
-Resultado de um fatorial 2^4
+Resultados de um experimento fatorial \eqn{2^4} que
+    estudou o efeito de quatro fatores no rendimento de uma reação
+    química.
 }
 \examples{
 
@@ -33,10 +33,12 @@ library(lattice)
 data(NetoTb3.6)
 str(NetoTb3.6)
 
-xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-       data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-
+xyplot(res ~ f1 | f2,
+       groups = interaction(f3, f4, sep = ":"),
+       data = NetoTb3.6,
+       type = c("p", "a"),
+       auto.key = TRUE)
 
 }
-\keyword{DBC}
+\keyword{FAT2K}