Faz correções nos arquivos do Anexo 3 de NETO et al. 2010.

R/NetoTb3A.1.R

 #' @name NetoTb3A.1
-#' @title Hidrólise de Resinas
-#' @description Planejamento 2^3 em duplicata para estudar o efeito de 3
-#'     fatores no grau de substituição numa resina clorometilada. 
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#' @title Efeito de Três Fatores no Grau de Subistituição numa Resina
+#' @description Planejamento \eqn{2^3}, em duplicata, para estudar o
+#'     efeito de 3 fatores no grau de substituição numa resina
+#'     clorometilada.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, tempo de hidrólise, em horas.}
 #'
-#' \item{\code{f1}}{Fator 1, tempo de hidrólise.}
+#' \item{\code{f2}}{Fator 2, temperatura da hidrólise, em grau celsius.}
 #'
-#' \item{\code{f2}}{Fator 2, temperatura.}
-#' 
-#' \item{\code{f3}}{Fator 3, catalisador.}
+#' \item{\code{f3}}{Fator 3, tipo de catalisador: Acído trifluoracético
+#'     (-) e acído propiônico (+), ambos em HCl 12M.}
 #'
 #' \item{grau}{grau de substituição.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.1, pág. 145.
 #' @examples
 #'
 #' library(lattice)
@@ -26,10 +26,11 @@
 #' data(NetoTb3A.1)
 #' str(NetoTb3A.1)
 #'
+#' ftable(xtabs(~f1 + f2 + f3,  data = NetoTb3A.1))
+#'
 #' xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
 #'        type = c("p", "a"), auto.key = TRUE,
 #'        xlab = "Tempo de Hidrólise",
 #'        ylab = "Grau de Substituição")
 #'
-#'
 NULL

R/NetoTb3A.2.R

@@ -2,24 +2,23 @@
 #' @title Voltametria Cíclica do Azul de Metileno
 #' @description As propriedades eletroquímicas do azul de metileno foram
 #'     investigadas com o objetivo de determinar as condições
-#'     experimentais que minimizam a diferença de voltagem (delta). 
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#'     experimentais, controlando três fatores, que minimizam a
+#'     diferença de voltagem (delta).
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
 #'
-#' \item{\code{f1}}{Fator 1, concentração.}
+#' \item{\code{f2}}{Fator 2, pH (4 e 7).}
 #'
-#' \item{\code{f2}}{Fator 2, ph.}
+#' \item{\code{f3}}{Fator 3, tipo de sílica modificada (STM e STPM).}
 #'
-#' \item{\code{f3}}{Fator 3, sílica modificada.}
-#' 
-#' \item{\code{delta}}{diferença de voltagem..}
+#' \item{\code{delta}}{Diferença de voltagem (mV).}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.2, pág. 147.
 #' @examples
 #'
 #' data(NetoTb3A.2)
@@ -27,25 +26,25 @@
 #'
 #' par(mfrow = c(1, 3))
 #'
-#' with(NetoTb3A.2, interaction.plot(f1, f2, delta, 
+#' with(NetoTb3A.2,
+#'      interaction.plot(f1, f2, delta,
 #'                       xlab = "Concentração",
 #'                       ylab = "Média de Delta",
-#'                                   main = "Interação entre 
-#'                                   Concentração e PH",
+#'                       main = "Concentração x PH",
 #'                       col = "green"))
 #'
-#' with(NetoTb3A.2, interaction.plot(f1, f3, delta,
+#' with(NetoTb3A.2,
+#'      interaction.plot(f1, f3, delta,
 #'                       xlab = "Concentração",
 #'                       ylab = "Sílica Modificada",
-#'                                   main = "Interação entre 
-#'                                   Concentração e Sílica Modificada",
+#'                       main = "Concentração x Sílica Modificada",
 #'                       col = "blue"))
 #'
-#'  with(NetoTb3A.2, interaction.plot(f2, f3, delta,
+#' with(NetoTb3A.2,
+#'      interaction.plot(f2, f3, delta,
 #'                       xlab = "PH",
 #'                       ylab = "Sílica Modificada",
-#'                                    main = "Interação entre 
-#'                                    PH e Sílica Modificada",
+#'                       main = "PH x Sílica Modificada",
 #'                       col = "red"))
 #'
 NULL

R/NetoTb3A.3.R

@@ -3,23 +3,21 @@
 #' @description Um fatorial foi usado para investigar como o tempo de
 #'     retenção de um pico obtido em um cromatógrafo líquido é afetado
 #'     pela porcentagem de etanol, temperatura e fluxo de gás.
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
 #'
-#' \item{\code{f1}}{Fator 1, temperatura.}
+#' \item{\code{f2}}{Fator 2, porcentagem de etanol (v/v, 60 e 70).}
 #'
-#' \item{\code{f2}}{Fator 2, porcentagem de etanol.}
+#' \item{\code{f3}}{Fator 3, fluxo, em mL min\eqn{^{-1}}.}
 #'
-#' \item{\code{f3}}{Fator 3, fluxo.}
-#' 
-#' \item{\code{temp}}{tempo de retenção.}
+#' \item{\code{temp}}{Tempo de retenção, em minutos.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+#' @keywords FAT2K
+#' @source NETO el al. (2010), Tabela 3A.3, pág. 149.
 #' @examples
 #'
 #' data(NetoTb3A.3)
@@ -27,25 +25,25 @@
 #'
 #' par(mfrow = c(1,3))
 #'
-#' with(NetoTb3A.3, interaction.plot(f1, f2, temp, 
+#' with(NetoTb3A.3,
+#'      interaction.plot(f1, f2, temp,
 #'                       xlab = "Temperatura",
 #'                       ylab = "Tempo Médio",
-#'                                   main = "Interação entre 
-#'                                   Temperatura e % de etanol",
+#'                       main = " Temperatura x Etanol",
 #'                       col = "green"))
 #'
-#' with(NetoTb3A.3, interaction.plot(f1, f3, temp,
+#' with(NetoTb3A.3,
+#'      interaction.plot(f1, f3, temp,
 #'                       xlab = "Temperatura",
 #'                       ylab = "Tempo Médio",
-#'                                   main = "Interação entre 
-#'                                   Temperatura e Fluxo",
+#'                       main = " Temperatura x Fluxo",
 #'                       col = "blue"))
 #'
-#'  with(NetoTb3A.3, interaction.plot(f2, f3, temp,
+#' with(NetoTb3A.3,
+#'      interaction.plot(f2, f3, temp,
 #'                       xlab = "% de etanol",
 #'                       ylab = "Tempo Médio",
-#'                                    main = "Interação entre % de 
-#'                                    etanol e Fluxo",
+#'                       main = "Etanol x Fluxo",
 #'                       col = "red"))
 #'
 NULL

R/NetoTb3A.4.R

 #' @name NetoTb3A.4
 #' @title Separação de Gases por Adsorção
 #' @description No desenvolvimento em laboratório de um processo de
-#'     enriquecimento de gases por adsorção , investigou-se a influência
-#'     de quatro fatores. 
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'     enriquecimento de gases por adsorção, usou-se um planejamento
+#'     \eqn{2^4} para investigar a influência de quatro fatores na
+#'     produtividade do adsorvente.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
 #'
-#' \item{\code{f1}}{Fator 1, pressão de adsorção.}
+#' \item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
 #'
-#' \item{\code{f2}}{Fator 2, pressão de dessorção.}
+#' \item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+#'     hora\eqn{^{-1}}).}
 #'
-#' \item{\code{f3}}{Fator 3, vazão de alimentação.}
+#' \item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
 #'
-#' \item{\code{f4}}{Fator 4, tempo de adsorção.}
-#' 
-#' \item{\code{p}}{Produtividade do adsorvente.}
+#' \item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+#'     ciclo\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.4, pág. 151.
 #' @examples
 #'
 #' library(lattice)
@@ -29,7 +30,10 @@
 #' data(NetoTb3A.4)
 #' str(NetoTb3A.4)
 #'
-#' xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#'        data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
+#' xyplot(p ~ f1 | f2,
+#'        groups = interaction(f3, f4, sep = ":"),
+#'        data = NetoTb3A.4,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
 #'
 NULL

R/NetoTb3A.5.R

@@ -2,26 +2,27 @@
 #' @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.
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'     afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+#'     investigar a influência de 4 fatores.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, conjunto de base (6-31G e 6-311G).}
 #'
-#' \item{\code{f1}}{Fator 1, conjunto de base.}
+#' \item{\code{f2}}{Fator 2, funções de polarização (ausente e
+#'     presente).}
 #'
-#' \item{\code{f2}}{Fator 2, funções de polarização.}
+#' \item{\code{f3}}{Fator 3, funções difusas (usente e presente).}
 #'
-#' \item{\code{f3}}{Fator 3, funções difusas.}
-#' 
-#' \item{\code{f4}}{Fator 4, correlação eletrônica.}
+#' \item{\code{f4}}{Fator 4, correlação eletrônica (Hartree-Fock e
+#'     MP2).}
 #'
 #' \item{\code{freq}}{Frequência resultante.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.5, pág.154)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.5, pág. 154.
 #' @examples
 #'
 #' library(lattice)
@@ -29,7 +30,10 @@
 #' data(NetoTb3A.5)
 #' str(NetoTb3A.5)
 #'
-#' xyplot(freq ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#'        data = NetoTb3A.5, type = c("p", "a") , auto.key = TRUE)
+#' xyplot(freq ~ f1 | f2,
+#'        groups = interaction(f3, f4, sep = ":"),
+#'        data = NetoTb3A.5,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
 #'
 NULL

R/NetoTb3A.6.R

 #' @name NetoTb3A.6
-#' @title Desempenho de Eletrodos
-#' @description O planejamento em fatorial foi usado para investigar 
-#'     como cinco fatores influenciam o desempenho de eletrodos na 
-#'     eletroredução de nitrobenzeno.
+#' @title Desempenho de Eletrodos de Ti/TiO\eqn{_2}
+#' @description O planejamento em fatorial \eqn{2^5} foi usado para
+#'     investigar como cinco fatores influenciam o desempenho de
+#'     eletrodos na eletroredução de nitrobenzeno. O desempenho foi
+#'     medido em termos das cargas catódicas (mC cm\eqn{^{-2}}).
 #' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
 #'
-#' \item{\code{f1}}{Fator 1, solução precursora.}
+#' \item{\code{f2}}{Fator 2, número de camadas (2 ou 10).}
 #'
-#' \item{\code{f2}}{Fator 2, número de camadas.}
+#' \item{\code{f3}}{Fator 3, temperatura (450 e 525 \eqn{^\circ}C).}
 #'
-#' \item{\code{f3}}{Fator 3, temperatura.}
+#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno (2 e 8 mM).}
 #'
-#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
+#' \item{\code{f5}}{Fator 5, velocidade de varredura (50 e 200 mV
+#'     min\eqn{^{-1}}).}
 #'
-#' \item{\code{f5}}{Fator 5, velocidade de varredura.}
-#' 
-#' \item{\code{des}}{Desempenho.}
+#' \item{\code{des}}{Desempenho de eletrodos de Ti/TiO\eqn{_2}, em mC
+#'     cm\eqn{^{-2}}.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.6, pág. 156.
 #' @examples
 #'
 #' library(lattice)
@@ -31,7 +32,9 @@
 #' data(NetoTb3A.6)
 #' str(NetoTb3A.6)
 #'
-#' xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
-#'        data = NetoTb3A.6, type = c("p", "a"))
+#' xyplot(des ~ f1 | f2 + f3,
+#'        groups = interaction(f4, f5),
+#'        data = NetoTb3A.6,
+#'        type = c("p", "a"))
 #'
 NULL

R/NetoTb3A.8.R

 #' @name NetoTb3A.8
-#' @title Controlando a Espuma
+#' @title Controlando a Espuma de Detergentes
 #' @description Verificação de como o ponto de turvação varia com as
-#'     unidades de óxido de eteno e óxido de propeno dos álcoois graxos
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'     unidades de óxido de eteno (EO) e óxido de propeno (PO) dos
+#'     álcoois graxos. Um plano experimental \eqn{2^2 + 3} pontos
+#'     centrais foi utilizado.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{prod}}{Celas experimentais criadas pela combinação de EO
+#'     e PO.}
 #'
-#' \item{\code{prod}}{Produto.}
+#' \item{\code{EO}}{Óxido de eteno (4 e 6).}
 #'
-#' \item{\code{EO}}{Óxido de eteno.}
+#' \item{\code{PO}}{Óxido de propeno (4 e 6).}
 #'
-#' \item{\code{PO}}{Óxido de propeno.}
-#' 
-#' \item{\code{pt}}{Ponto de turvação.}
+#' \item{\code{pt}}{Ponto de turvação, em \eqn{^\circ}C.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.8, pág.159)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.8, pág. 159.
 #' @examples
 #'
 #' data(NetoTb3A.8)
 #' str(NetoTb3A.8)
-#'
-#' plot(pt ~ ens, type = "o", col = 6, data = NetoTb3A.8,
-#'      xlab = "Ensaio", ylab = "", 
-#'      main = "Ponto de Turvação em Função do Ensaio")
+#' NetoTb3A.8
 #'
 NULL

R/NetoTb3A.9.R

 #' @name NetoTb3A.9
-#' @title Desenvolvimento de um Detergente
-#' @description Utilizou-se um planejamento fatorial para avaliar os 
-#'     efeitos da adoção de três ingredientes sobre o poder de 
-#'     branqueameto.
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' @title Desenvolvimento de um Detergente para Branqueamento de Roupas
+#' @description Utilizou-se um planejamento fatorial \eqn{2^3} para
+#'     avaliar os efeitos da adoção de três ingredientes sobre o poder
+#'     de branqueameto de detergentes para roupas.
+#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
 #'
 #' \describe{
 #'
@@ -16,12 +16,16 @@
 #'
 #' \item{\code{C}}{Aditivo C.}
 #'
-#' \item{\code{resp}}{Resposta, densidade ótica que mede a intensidade
-#'     da luz refletida pela roupa lavada.}
+#' \item{\code{media}}{Densidade ótica que mede a intensidade da luz
+#'     refletida pela roupa lavada (resposta média de 12 ensaios
+#'     repetidos).}
+#'
+#' \item{\code{var}}{Variância das observações nos 12 ensaios
+#'     repetidos.}
 #'
 #' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.9, pág.162)
+#' @keywords FAT2K
+#' @source NETO et al. 2010, Tabela 3A.9, pág. 162.
 #' @examples
 #'
 #' data(NetoTb3A.9)
@@ -29,16 +33,16 @@
 #'
 #' par(mfrow = c(1,3))
 #'
-#' with(NetoTb3A.9, interaction.plot(A, B, resp, 
-#'                                   main = "Interação entre A e B",
+#' with(NetoTb3A.9, interaction.plot(A, B, media,
+#'                                   main = "A x B",
 #'                                   col = "green"))
 #'
-#' with(NetoTb3A.9, interaction.plot(A, C, resp,
-#'                                   main = "Interação entre A e C",
+#' with(NetoTb3A.9, interaction.plot(A, C, media,
+#'                                   main = "A x C",
 #'                                   col = "blue"))
 #'
-#'  with(NetoTb3A.9, interaction.plot(B, C, resp,
-#'                                    main = "Interação entre B e C",
+#' with(NetoTb3A.9, interaction.plot(B, C, media,
+#'                                   main = "B x C",
 #'                                   col = "red"))
 #'
 NULL

man/NetoTb3A.1.Rd

@@ -2,28 +2,28 @@
 % Please edit documentation in R/NetoTb3A.1.R
 \name{NetoTb3A.1}
 \alias{NetoTb3A.1}
-\title{Hidrólise de Resinas}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\title{Efeito de Três Fatores no Grau de Subistituição numa Resina}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, tempo de hidrólise, em horas.}
 
-\item{\code{f1}}{Fator 1, tempo de hidrólise.}
+\item{\code{f2}}{Fator 2, temperatura da hidrólise, em grau celsius.}
 
-\item{\code{f2}}{Fator 2, temperatura.}
-
-\item{\code{f3}}{Fator 3, catalisador.}
+\item{\code{f3}}{Fator 3, tipo de catalisador: Acído trifluoracético
+    (-) e acído propiônico (+), ambos em HCl 12M.}
 
 \item{grau}{grau de substituição.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+NETO et al. (2010), Tabela 3A.1, pág. 145.
 }
 \description{
-Planejamento 2^3 em duplicata para estudar o efeito de 3
-    fatores no grau de substituição numa resina clorometilada.
+Planejamento \eqn{2^3}, em duplicata, para estudar o
+    efeito de 3 fatores no grau de substituição numa resina
+    clorometilada.
 }
 \examples{
 
@@ -32,12 +32,13 @@ library(lattice)
 data(NetoTb3A.1)
 str(NetoTb3A.1)
 
+ftable(xtabs(~f1 + f2 + f3,  data = NetoTb3A.1))
+
 xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
        type = c("p", "a"), auto.key = TRUE,
        xlab = "Tempo de Hidrólise",
        ylab = "Grau de Substituição")
 
-
 }
-\keyword{DBC}
+\keyword{FAT2K}
 

man/NetoTb3A.2.Rd

@@ -3,28 +3,27 @@
 \name{NetoTb3A.2}
 \alias{NetoTb3A.2}
 \title{Voltametria Cíclica do Azul de Metileno}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
 
-\item{\code{f1}}{Fator 1, concentração.}
+\item{\code{f2}}{Fator 2, pH (4 e 7).}
 
-\item{\code{f2}}{Fator 2, ph.}
+\item{\code{f3}}{Fator 3, tipo de sílica modificada (STM e STPM).}
 
-\item{\code{f3}}{Fator 3, sílica modificada.}
-
-\item{\code{delta}}{diferença de voltagem..}
+\item{\code{delta}}{Diferença de voltagem (mV).}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+NETO et al. (2010), Tabela 3A.2, pág. 147.
 }
 \description{
 As propriedades eletroquímicas do azul de metileno foram
     investigadas com o objetivo de determinar as condições
-    experimentais que minimizam a diferença de voltagem (delta).
+    experimentais, controlando três fatores, que minimizam a
+    diferença de voltagem (delta).
 }
 \examples{
 
@@ -33,27 +32,27 @@ str(NetoTb3A.2)
 
 par(mfrow = c(1, 3))
 
-with(NetoTb3A.2, interaction.plot(f1, f2, delta, 
+with(NetoTb3A.2,
+     interaction.plot(f1, f2, delta,
                       xlab = "Concentração",
                       ylab = "Média de Delta",
-                                  main = "Interação entre 
-                                  Concentração e PH",
+                      main = "Concentração x PH",
                       col = "green"))
 
-with(NetoTb3A.2, interaction.plot(f1, f3, delta,
+with(NetoTb3A.2,
+     interaction.plot(f1, f3, delta,
                       xlab = "Concentração",
                       ylab = "Sílica Modificada",
-                                  main = "Interação entre 
-                                  Concentração e Sílica Modificada",
+                      main = "Concentração x Sílica Modificada",
                       col = "blue"))
 
- with(NetoTb3A.2, interaction.plot(f2, f3, delta,
+with(NetoTb3A.2,
+     interaction.plot(f2, f3, delta,
                       xlab = "PH",
                       ylab = "Sílica Modificada",
-                                   main = "Interação entre 
-                                   PH e Sílica Modificada",
+                      main = "PH x Sílica Modificada",
                       col = "red"))
 
 }
-\keyword{DBC}
+\keyword{FAT2K}
 

man/NetoTb3A.3.Rd

@@ -3,23 +3,21 @@
 \name{NetoTb3A.3}
 \alias{NetoTb3A.3}
 \title{Tempo de Retenção em Cromatografia Líquida}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
 
-\item{\code{f1}}{Fator 1, temperatura.}
+\item{\code{f2}}{Fator 2, porcentagem de etanol (v/v, 60 e 70).}
 
-\item{\code{f2}}{Fator 2, porcentagem de etanol.}
+\item{\code{f3}}{Fator 3, fluxo, em mL min\eqn{^{-1}}.}
 
-\item{\code{f3}}{Fator 3, fluxo.}
-
-\item{\code{temp}}{tempo de retenção.}
+\item{\code{temp}}{Tempo de retenção, em minutos.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+NETO el al. (2010), Tabela 3A.3, pág. 149.
 }
 \description{
 Um fatorial foi usado para investigar como o tempo de
@@ -33,27 +31,27 @@ str(NetoTb3A.3)
 
 par(mfrow = c(1,3))
 
-with(NetoTb3A.3, interaction.plot(f1, f2, temp, 
+with(NetoTb3A.3,
+     interaction.plot(f1, f2, temp,
                       xlab = "Temperatura",
                       ylab = "Tempo Médio",
-                                  main = "Interação entre 
-                                  Temperatura e \% de etanol",
+                      main = " Temperatura x Etanol",
                       col = "green"))
 
-with(NetoTb3A.3, interaction.plot(f1, f3, temp,
+with(NetoTb3A.3,
+     interaction.plot(f1, f3, temp,
                       xlab = "Temperatura",
                       ylab = "Tempo Médio",
-                                  main = "Interação entre 
-                                  Temperatura e Fluxo",
+                      main = " Temperatura x Fluxo",
                       col = "blue"))
 
- with(NetoTb3A.3, interaction.plot(f2, f3, temp,
+with(NetoTb3A.3,
+     interaction.plot(f2, f3, temp,
                       xlab = "\% de etanol",
                       ylab = "Tempo Médio",
-                                   main = "Interação entre \% de 
-                                   etanol e Fluxo",
+                      main = "Etanol x Fluxo",
                       col = "red"))
 
 }
-\keyword{DBC}
+\keyword{FAT2K}
 

man/NetoTb3A.4.Rd

@@ -3,30 +3,31 @@
 \name{NetoTb3A.4}
 \alias{NetoTb3A.4}
 \title{Separação de Gases por Adsorção}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
 
 \describe{
 
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
 
-\item{\code{f1}}{Fator 1, pressão de adsorção.}
+\item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
 
-\item{\code{f2}}{Fator 2, pressão de dessorção.}
+\item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+    hora\eqn{^{-1}}).}
 
-\item{\code{f3}}{Fator 3, vazão de alimentação.}
+\item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
 
-\item{\code{f4}}{Fator 4, tempo de adsorção.}
-
-\item{\code{p}}{Produtividade do adsorvente.}
+\item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+    ciclo\eqn{^{-1}}.}
 
 }}
 \source{
-Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+NETO et al. (2010), Tabela 3A.4, pág. 151.
 }
 \description{
 No desenvolvimento em laboratório de um processo de
-    enriquecimento de gases por adsorção , investigou-se a influência
-    de quatro fatores.
+    enriquecimento de gases por adsorção, usou-se um planejamento
+    \eqn{2^4} para investigar a influência de quatro fatores na
+    produtividade do adsorvente.
 }
 \examples{
 
@@ -35,9 +36,12 @@ library(lattice)
 data(NetoTb3A.4)
 str(NetoTb3A.4)
 
-xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-       data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
+xyplot(p ~ f1 | f2,
+       groups = interaction(f3, f4, sep = ":"),
+       data = NetoTb3A.4,
+       type = c("p", "a"),
+       auto.key = TRUE)
 
 }
-\keyword{DBC}
+\keyword{FAT2K}