From 4d5e05bb05eec74c1fc5ed27cad556e8b30e5511 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 16 Nov 2016 19:23:59 -0200
Subject: [PATCH] =?UTF-8?q?Faz=20corre=C3=A7=C3=B5es=20nos=20arquivos=20do?=
=?UTF-8?q?=20Anexo=203=20de=20NETO=20et=20al.=202010.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/NetoTb3A.1.R | 27 +++++++++--------
R/NetoTb3A.2.R | 71 ++++++++++++++++++++++----------------------
R/NetoTb3A.3.R | 68 ++++++++++++++++++++----------------------
R/NetoTb3A.4.R | 44 ++++++++++++++-------------
R/NetoTb3A.5.R | 40 ++++++++++++++-----------
R/NetoTb3A.6.R | 49 ++++++++++++++++--------------
R/NetoTb3A.8.R | 36 +++++++++++-----------
R/NetoTb3A.9.R | 48 ++++++++++++++++--------------
data/NetoTb3A.1.rda | Bin 326 -> 289 bytes
data/NetoTb3A.2.rda | Bin 222 -> 204 bytes
data/NetoTb3A.3.rda | Bin 287 -> 273 bytes
data/NetoTb3A.4.rda | Bin 286 -> 266 bytes
data/NetoTb3A.5.rda | Bin 317 -> 289 bytes
data/NetoTb3A.6.rda | Bin 451 -> 453 bytes
data/NetoTb3A.8.rda | Bin 299 -> 292 bytes
data/NetoTb3A.9.rda | Bin 287 -> 395 bytes
man/NetoTb3A.1.Rd | 25 ++++++++--------
man/NetoTb3A.2.Rd | 67 ++++++++++++++++++++---------------------
man/NetoTb3A.3.Rd | 62 +++++++++++++++++++-------------------
man/NetoTb3A.4.Rd | 36 ++++++++++++----------
man/NetoTb3A.5.Rd | 32 +++++++++++---------
man/NetoTb3A.6.Rd | 37 ++++++++++++-----------
man/NetoTb3A.8.Rd | 30 +++++++++----------
man/NetoTb3A.9.Rd | 38 +++++++++++++-----------
24 files changed, 366 insertions(+), 344 deletions(-)
diff --git a/R/NetoTb3A.1.R b/R/NetoTb3A.1.R
index ef28cc60..f40d9c3c 100644
--- a/R/NetoTb3A.1.R
+++ b/R/NetoTb3A.1.R
@@ -1,24 +1,24 @@
#' @name NetoTb3A.1
-#' @title Hidrólise de Resinas
-#' @description Planejamento 2^3 em duplicata para estudar o efeito de 3
-#' fatores no grau de substituição numa resina clorometilada.
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#' @title Efeito de Três Fatores no Grau de Subistituição numa Resina
+#' @description Planejamento \eqn{2^3}, em duplicata, para estudar o
+#' efeito de 3 fatores no grau de substituição numa resina
+#' clorometilada.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, tempo de hidrólise, em horas.}
#'
-#' \item{\code{f1}}{Fator 1, tempo de hidrólise.}
-#'
-#' \item{\code{f2}}{Fator 2, temperatura.}
-#'
-#' \item{\code{f3}}{Fator 3, catalisador.}
+#' \item{\code{f2}}{Fator 2, temperatura da hidrólise, em grau celsius.}
+#'
+#' \item{\code{f3}}{Fator 3, tipo de catalisador: Acído trifluoracético
+#' (-) e acído propiônico (+), ambos em HCl 12M.}
#'
#' \item{grau}{grau de substituição.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.1, pág. 145.
#' @examples
#'
#' library(lattice)
@@ -26,10 +26,11 @@
#' data(NetoTb3A.1)
#' str(NetoTb3A.1)
#'
+#' ftable(xtabs(~f1 + f2 + f3, data = NetoTb3A.1))
+#'
#' xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
#' type = c("p", "a"), auto.key = TRUE,
#' xlab = "Tempo de Hidrólise",
#' ylab = "Grau de Substituição")
#'
-#'
NULL
diff --git a/R/NetoTb3A.2.R b/R/NetoTb3A.2.R
index 103bfbdb..d11efc79 100644
--- a/R/NetoTb3A.2.R
+++ b/R/NetoTb3A.2.R
@@ -1,51 +1,50 @@
#' @name NetoTb3A.2
#' @title Voltametria Cíclica do Azul de Metileno
#' @description As propriedades eletroquímicas do azul de metileno foram
-#' investigadas com o objetivo de determinar as condições
-#' experimentais que minimizam a diferença de voltagem (delta).
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' investigadas com o objetivo de determinar as condições
+#' experimentais, controlando três fatores, que minimizam a
+#' diferença de voltagem (delta).
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
#'
-#' \item{\code{f1}}{Fator 1, concentração.}
-#'
-#' \item{\code{f2}}{Fator 2, ph.}
-#'
-#' \item{\code{f3}}{Fator 3, sílica modificada.}
-#'
-#' \item{\code{delta}}{diferença de voltagem..}
+#' \item{\code{f2}}{Fator 2, pH (4 e 7).}
+#'
+#' \item{\code{f3}}{Fator 3, tipo de sílica modificada (STM e STPM).}
+#'
+#' \item{\code{delta}}{Diferença de voltagem (mV).}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.2, pág. 147.
#' @examples
#'
#' data(NetoTb3A.2)
#' str(NetoTb3A.2)
#'
-#' par(mfrow = c(1,3))
-#'
-#' with(NetoTb3A.2, interaction.plot(f1, f2, delta,
-#' xlab = "Concentração",
-#' ylab = "Média de Delta",
-#' main = "Interação entre
-#' Concentração e PH",
-#' col = "green"))
-#'
-#' with(NetoTb3A.2, interaction.plot(f1, f3, delta,
-#' xlab = "Concentração",
-#' ylab = "Sílica Modificada",
-#' main = "Interação entre
-#' Concentração e Sílica Modificada",
-#' col = "blue"))
-#'
-#' with(NetoTb3A.2, interaction.plot(f2, f3, delta,
-#' xlab = "PH",
-#' ylab = "Sílica Modificada",
-#' main = "Interação entre
-#' PH e Sílica Modificada",
-#' col = "red"))
-#'
+#' par(mfrow = c(1, 3))
+#'
+#' with(NetoTb3A.2,
+#' interaction.plot(f1, f2, delta,
+#' xlab = "Concentração",
+#' ylab = "Média de Delta",
+#' main = "Concentração x PH",
+#' col = "green"))
+#'
+#' with(NetoTb3A.2,
+#' interaction.plot(f1, f3, delta,
+#' xlab = "Concentração",
+#' ylab = "Sílica Modificada",
+#' main = "Concentração x Sílica Modificada",
+#' col = "blue"))
+#'
+#' with(NetoTb3A.2,
+#' interaction.plot(f2, f3, delta,
+#' xlab = "PH",
+#' ylab = "Sílica Modificada",
+#' main = "PH x Sílica Modificada",
+#' col = "red"))
+#'
NULL
diff --git a/R/NetoTb3A.3.R b/R/NetoTb3A.3.R
index 6bd32e21..11359245 100644
--- a/R/NetoTb3A.3.R
+++ b/R/NetoTb3A.3.R
@@ -1,25 +1,23 @@
#' @name NetoTb3A.3
#' @title Tempo de Retenção em Cromatografia Líquida
-#' @description Um fatorial foi usado para investigar como o tempo de
-#' retenção de um pico obtido em um cromatógrafo líquido é afetado
-#' pela porcentagem de etanol, temperatura e fluxo de gás.
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' @description Um fatorial foi usado para investigar como o tempo de
+#' retenção de um pico obtido em um cromatógrafo líquido é afetado
+#' pela porcentagem de etanol, temperatura e fluxo de gás.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
#'
-#' \item{\code{f1}}{Fator 1, temperatura.}
-#'
-#' \item{\code{f2}}{Fator 2, porcentagem de etanol.}
-#'
-#' \item{\code{f3}}{Fator 3, fluxo.}
-#'
-#' \item{\code{temp}}{tempo de retenção.}
+#' \item{\code{f2}}{Fator 2, porcentagem de etanol (v/v, 60 e 70).}
+#'
+#' \item{\code{f3}}{Fator 3, fluxo, em mL min\eqn{^{-1}}.}
+#'
+#' \item{\code{temp}}{Tempo de retenção, em minutos.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+#' @keywords FAT2K
+#' @source NETO el al. (2010), Tabela 3A.3, pág. 149.
#' @examples
#'
#' data(NetoTb3A.3)
@@ -27,25 +25,25 @@
#'
#' par(mfrow = c(1,3))
#'
-#' with(NetoTb3A.3, interaction.plot(f1, f2, temp,
-#' xlab = "Temperatura",
-#' ylab = "Tempo Médio",
-#' main = "Interação entre
-#' Temperatura e % de etanol",
-#' col = "green"))
-#'
-#' with(NetoTb3A.3, interaction.plot(f1, f3, temp,
-#' xlab = "Temperatura",
-#' ylab = "Tempo Médio",
-#' main = "Interação entre
-#' Temperatura e Fluxo",
-#' col = "blue"))
-#'
-#' with(NetoTb3A.3, interaction.plot(f2, f3, temp,
-#' xlab = "% de etanol",
-#' ylab = "Tempo Médio",
-#' main = "Interação entre % de
-#' etanol e Fluxo",
-#' col = "red"))
-#'
+#' with(NetoTb3A.3,
+#' interaction.plot(f1, f2, temp,
+#' xlab = "Temperatura",
+#' ylab = "Tempo Médio",
+#' main = " Temperatura x Etanol",
+#' col = "green"))
+#'
+#' with(NetoTb3A.3,
+#' interaction.plot(f1, f3, temp,
+#' xlab = "Temperatura",
+#' ylab = "Tempo Médio",
+#' main = " Temperatura x Fluxo",
+#' col = "blue"))
+#'
+#' with(NetoTb3A.3,
+#' interaction.plot(f2, f3, temp,
+#' xlab = "% de etanol",
+#' ylab = "Tempo Médio",
+#' main = "Etanol x Fluxo",
+#' col = "red"))
+#'
NULL
diff --git a/R/NetoTb3A.4.R b/R/NetoTb3A.4.R
index 6a6e98e5..ce814759 100644
--- a/R/NetoTb3A.4.R
+++ b/R/NetoTb3A.4.R
@@ -1,35 +1,39 @@
#' @name NetoTb3A.4
#' @title Separação de Gases por Adsorção
-#' @description No desenvolvimento em laboratório de um processo de
-#' enriquecimento de gases por adsorção , investigou-se a influência
-#' de quatro fatores.
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @description No desenvolvimento em laboratório de um processo de
+#' enriquecimento de gases por adsorção, usou-se um planejamento
+#' \eqn{2^4} para investigar a influência de quatro fatores na
+#' produtividade do adsorvente.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
#'
-#' \item{\code{f1}}{Fator 1, pressão de adsorção.}
-#'
-#' \item{\code{f2}}{Fator 2, pressão de dessorção.}
-#'
-#' \item{\code{f3}}{Fator 3, vazão de alimentação.}
-#'
-#' \item{\code{f4}}{Fator 4, tempo de adsorção.}
-#'
-#' \item{\code{p}}{Produtividade do adsorvente.}
+#' \item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
+#'
+#' \item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+#' hora\eqn{^{-1}}).}
+#'
+#' \item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
+#'
+#' \item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+#' ciclo\eqn{^{-1}}.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.4, pág. 151.
#' @examples
#'
#' library(lattice)
-#'
+#'
#' data(NetoTb3A.4)
#' str(NetoTb3A.4)
#'
-#' xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#' data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
-#'
+#' xyplot(p ~ f1 | f2,
+#' groups = interaction(f3, f4, sep = ":"),
+#' data = NetoTb3A.4,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
+#'
NULL
diff --git a/R/NetoTb3A.5.R b/R/NetoTb3A.5.R
index e6329c4c..a896bd87 100644
--- a/R/NetoTb3A.5.R
+++ b/R/NetoTb3A.5.R
@@ -1,35 +1,39 @@
#' @name NetoTb3A.5
#' @title Melhorando Funções de Onda
-#' @description Pesquisadores estavam interessados em avaliar como
+#' @description Pesquisadores estavam interessados em avaliar como
#' alguns parâmetros usados para especificar a função de onda iriam
-#' afetar a frequência.
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+#' investigar a influência de 4 fatores.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, conjunto de base (6-31G e 6-311G).}
+#'
+#' \item{\code{f2}}{Fator 2, funções de polarização (ausente e
+#' presente).}
+#'
+#' \item{\code{f3}}{Fator 3, funções difusas (usente e presente).}
+#'
+#' \item{\code{f4}}{Fator 4, correlação eletrônica (Hartree-Fock e
+#' MP2).}
#'
-#' \item{\code{f1}}{Fator 1, conjunto de base.}
-#'
-#' \item{\code{f2}}{Fator 2, funções de polarização.}
-#'
-#' \item{\code{f3}}{Fator 3, funções difusas.}
-#'
-#' \item{\code{f4}}{Fator 4, correlação eletrônica.}
-#'
#' \item{\code{freq}}{Frequência resultante.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.5, pág.154)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.5, pág. 154.
#' @examples
#'
#' library(lattice)
-#'
+#'
#' data(NetoTb3A.5)
#' str(NetoTb3A.5)
#'
-#' xyplot(freq ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#' data = NetoTb3A.5, type = c("p", "a") , auto.key = TRUE)
-#'
+#' xyplot(freq ~ f1 | f2,
+#' groups = interaction(f3, f4, sep = ":"),
+#' data = NetoTb3A.5,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
+#'
NULL
diff --git a/R/NetoTb3A.6.R b/R/NetoTb3A.6.R
index 3e8d4437..8558d366 100644
--- a/R/NetoTb3A.6.R
+++ b/R/NetoTb3A.6.R
@@ -1,37 +1,40 @@
#' @name NetoTb3A.6
-#' @title Desempenho de Eletrodos
-#' @description O planejamento em fatorial foi usado para investigar
-#' como cinco fatores influenciam o desempenho de eletrodos na
-#' eletroredução de nitrobenzeno.
+#' @title Desempenho de Eletrodos de Ti/TiO\eqn{_2}
+#' @description O planejamento em fatorial \eqn{2^5} foi usado para
+#' investigar como cinco fatores influenciam o desempenho de
+#' eletrodos na eletroredução de nitrobenzeno. O desempenho foi
+#' medido em termos das cargas catódicas (mC cm\eqn{^{-2}}).
#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
#'
-#' \item{\code{f1}}{Fator 1, solução precursora.}
-#'
-#' \item{\code{f2}}{Fator 2, número de camadas.}
-#'
-#' \item{\code{f3}}{Fator 3, temperatura.}
-#'
-#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
-#'
-#' \item{\code{f5}}{Fator 5, velocidade de varredura.}
-#'
-#' \item{\code{des}}{Desempenho.}
+#' \item{\code{f2}}{Fator 2, número de camadas (2 ou 10).}
+#'
+#' \item{\code{f3}}{Fator 3, temperatura (450 e 525 \eqn{^\circ}C).}
+#'
+#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno (2 e 8 mM).}
+#'
+#' \item{\code{f5}}{Fator 5, velocidade de varredura (50 e 200 mV
+#' min\eqn{^{-1}}).}
+#'
+#' \item{\code{des}}{Desempenho de eletrodos de Ti/TiO\eqn{_2}, em mC
+#' cm\eqn{^{-2}}.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.6, pág. 156.
#' @examples
#'
#' library(lattice)
-#'
+#'
#' data(NetoTb3A.6)
#' str(NetoTb3A.6)
#'
-#' xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
-#' data = NetoTb3A.6, type = c("p", "a"))
-#'
-NULL
\ No newline at end of file
+#' xyplot(des ~ f1 | f2 + f3,
+#' groups = interaction(f4, f5),
+#' data = NetoTb3A.6,
+#' type = c("p", "a"))
+#'
+NULL
diff --git a/R/NetoTb3A.8.R b/R/NetoTb3A.8.R
index a27aa0de..3d030f17 100644
--- a/R/NetoTb3A.8.R
+++ b/R/NetoTb3A.8.R
@@ -1,31 +1,29 @@
#' @name NetoTb3A.8
-#' @title Controlando a Espuma
-#' @description Verificação de como o ponto de turvação varia com as
-#' unidades de óxido de eteno e óxido de propeno dos álcoois graxos
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#' @title Controlando a Espuma de Detergentes
+#' @description Verificação de como o ponto de turvação varia com as
+#' unidades de óxido de eteno (EO) e óxido de propeno (PO) dos
+#' álcoois graxos. Um plano experimental \eqn{2^2 + 3} pontos
+#' centrais foi utilizado.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{prod}}{Celas experimentais criadas pela combinação de EO
+#' e PO.}
#'
-#' \item{\code{prod}}{Produto.}
-#'
-#' \item{\code{EO}}{Óxido de eteno.}
-#'
-#' \item{\code{PO}}{Óxido de propeno.}
-#'
-#' \item{\code{pt}}{Ponto de turvação.}
+#' \item{\code{EO}}{Óxido de eteno (4 e 6).}
+#'
+#' \item{\code{PO}}{Óxido de propeno (4 e 6).}
+#'
+#' \item{\code{pt}}{Ponto de turvação, em \eqn{^\circ}C.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.8, pág.159)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.8, pág. 159.
#' @examples
#'
#' data(NetoTb3A.8)
#' str(NetoTb3A.8)
+#' NetoTb3A.8
#'
-#' plot(pt ~ ens, type = "o", col = 6, data = NetoTb3A.8,
-#' xlab = "Ensaio", ylab = "",
-#' main = "Ponto de Turvação em Função do Ensaio")
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb3A.9.R b/R/NetoTb3A.9.R
index 87463877..0d68848d 100644
--- a/R/NetoTb3A.9.R
+++ b/R/NetoTb3A.9.R
@@ -1,44 +1,48 @@
#' @name NetoTb3A.9
-#' @title Desenvolvimento de um Detergente
-#' @description Utilizou-se um planejamento fatorial para avaliar os
-#' efeitos da adoção de três ingredientes sobre o poder de
-#' branqueameto.
-#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#' @title Desenvolvimento de um Detergente para Branqueamento de Roupas
+#' @description Utilizou-se um planejamento fatorial \eqn{2^3} para
+#' avaliar os efeitos da adoção de três ingredientes sobre o poder
+#' de branqueameto de detergentes para roupas.
+#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
+#' \item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
#' ensaios repetidos.}
#'
#' \item{\code{A}}{Aditivo A.}
-#'
+#'
#' \item{\code{B}}{Aditivo B.}
-#'
+#'
#' \item{\code{C}}{Aditivo C.}
-#'
-#' \item{\code{resp}}{Resposta, densidade ótica que mede a intensidade
-#' da luz refletida pela roupa lavada.}
+#'
+#' \item{\code{media}}{Densidade ótica que mede a intensidade da luz
+#' refletida pela roupa lavada (resposta média de 12 ensaios
+#' repetidos).}
+#'
+#' \item{\code{var}}{Variância das observações nos 12 ensaios
+#' repetidos.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3A.9, pág.162)
+#' @keywords FAT2K
+#' @source NETO et al. 2010, Tabela 3A.9, pág. 162.
#' @examples
#'
#' data(NetoTb3A.9)
#' str(NetoTb3A.9)
-#'
+#'
#' par(mfrow = c(1,3))
#'
-#' with(NetoTb3A.9, interaction.plot(A, B, resp,
-#' main = "Interação entre A e B",
+#' with(NetoTb3A.9, interaction.plot(A, B, media,
+#' main = "A x B",
#' col = "green"))
#'
-#' with(NetoTb3A.9, interaction.plot(A, C, resp,
-#' main = "Interação entre A e C",
+#' with(NetoTb3A.9, interaction.plot(A, C, media,
+#' main = "A x C",
#' col = "blue"))
#'
-#' with(NetoTb3A.9, interaction.plot(B, C, resp,
-#' main = "Interação entre B e C",
-#' col = "red"))
+#' with(NetoTb3A.9, interaction.plot(B, C, media,
+#' main = "B x C",
+#' col = "red"))
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data/NetoTb3A.1.rda b/data/NetoTb3A.1.rda
index 0e564db78adb4006a16a9d6096c98245450d3f7a..ac9201f847c42ecca2a9fc232d30b6a116d09c14 100644
GIT binary patch
delta 268
zcmX@cw2(>6DJsL#&@oaiII?e%L>U9amiqty%zY+`$=CmwViNL|!GwX?*Mx!DalwUS
zldq)691v_uVr=jcc5`-Sn4v7pDaxxX@~MH@fqeyA<FaOD2dTQ10vf97xt22-&P>&G
zniU#)KIG7T->ZtLS91!&6ig+ji*W|A2J^D5-np@=#8E>b$=i1EX_Zc4W>J9&*Vs6V
zs#~U7woT-ZpO(9Eu43+=u<v5h5&I;a-aniw6*1x3<&ctv(;g~CIy;}pO;Bi5{667*
zW~X}TG~WKlD&7mNUPuHz59iA;-gH7FN!~3XaZ~c5Mars-i~`3N7b#BF*m7Ca#b=_9
X<Qp$ezLpJJZvGc9a<vGU0P;8ho-Jo=
delta 306
zcmZ3;bc{*NDJsL#&@oaiI5Lyd`X~d#o%;X(|DTyCCSU(`k&xHC1@jhX<vK2qGF!Ny
zY8G36uv@e9Ws$FDvzk3^17ERSxxnn>z`($`fPsN!(jtQyjLZxSK0R$L2@GuW8@Skn
zT7;DLMyN0wDJv`$=8WQS{&9gvZ$*v`lZa11rftEFTVL1A<|{fMzV?d3{baeg=ZcKE
z6L+2b9TN~=)!tDb)Q~2@;+>Lq<E8Qe2@W~EDGw4HTbHtJJ6hNxX0M+5rGh15)6t%*
z86WD6mU;D+mmN;B@pY}7%jXqT*Q9gq#1DU)BRl7+Ctof$RF7)s*&#gdW8?3Gr_GPf
zxb<#f<aUcgyllk_l1%H*^>R*Sv<#@$S{ov=<guEM26J0EN3s;VaKeQ1mkynrxx0I(
N(i{yBla{%U8UW<6f2sfg
diff --git a/data/NetoTb3A.2.rda b/data/NetoTb3A.2.rda
index 5cdad28a4b74fcfb10e67c57832c0fdea99f1289..7d328800d9d1a6d0a4cf22698744301390690502 100644
GIT binary patch
literal 204
zcmZ>Y%CIzaj8qGbY<+#}BLhQk{egdF9t;eO77QwkA`bS`=X5w|F*t5uSj+6|#O!h*
zh0RU*O6Kw|35JXd7h6&;WL$PgI2pKwVFm+J0?SDO&4?*tk_;;|wr$l~7q(G?(cRaR
zOXAP%W$QouH*9H`7{zaX`KC%o09U~AVy(Rlfr>6H3bO<n7I1h@TiBq$Ad{}G(Q|Uo
zmNOUfZoFAnHCIrg!@2o?K(eC1t7+$y=bNO8MIMjbYWz+sciE;H0)YZD!7r76?4G1~
LsHH_e?s^9RDBn`)
literal 222
zcmZ>Y%CIzaj8qGbjPVhOVPIHVf8hT&4+aKC3kDTN5eNI}b2=Qf7#ue+Y+Yj%thx9K
zTYtdC#co%4%@#geVHoVT*nQSy1qP{%BN<G=Ar4<=@v`~yN=h0^%>2P&VUsc`<%8tW
zLxws(jXGb<3l=->#1x!!Aw|YI;l|%7s-|%)%vt<~2V0m*7s^a{vs>*}LPHRT%rRkO
zlaq}P94x=jDr7jCdGZTee)ZDdUPbGD|7lMZUlA%i`)TsT!u$n(hj$*#dlWr&YG_O}
cOZB{-wkan*Itn?x$oHrhFLJdAm;mw*0L!sjng9R*
diff --git a/data/NetoTb3A.3.rda b/data/NetoTb3A.3.rda
index c8a434e13d3e5d3adf78071cc35ac2df550efb40..754823d0328298232caa4033e47c7106ff16c5c7 100644
GIT binary patch
delta 251
zcmbQwG?7WvDJsL#&@oaiI5KBz##si2iS_^gl}{8^sNZ(rqKaGx0|Q$F16zZX;gS?7
zCxNP&j0>a~m>t-BjTqQh7=>JR^JScH!GwXA&B26$L4;+BL9$N44xR-Qrc7Bj!|TYU
zCq;K=vJ}n@Fyd$}X05ofP=)mZTfoM!O&>WzCah#+l({hBlz<2$qt^*h#s-G#UwLGl
zmAclvo%!(IyT;h%-L)=P7SAa<P_s`f`2MmNTc+Ns6^hi+)4lxVsix!exlayFO1yJ4
z*Js+-={{TUq%PT#!`rd)UJ5J2-UEB{D*vtDu~?vg{XrIWj=TsXCANnJ#_~t+O!N~`
Kk=Bheb^rh|erP=a
delta 265
zcmbQpG@nV-DJsL#&@oaiII^6-QJjHcW&QvE-zSPH)L%<+QIYnLVqh?0U|?(D_g!i>
zAya)-u3LL20~Dx)n#`EDY{o33lq4gml+0zbavdiwV{o=-WVzI0pL56|abl~+v}p@i
zEMB*XY(G=FC})dmx3c{2ea{z!&iuSiLx8(=QFFl8>oa+#cnAavTrxHYnZ?1_$Rjx2
z<AD3}>^FJpvW*8fpEj=jn6<0&_wQG{o6;9g7Oea$>DjnPEYe<8%6rM7HY-OH7e~!{
zZKu=A*gpx~*x{RFl6=NW=Am?E`Uzg2kaxFEY}mVF-ZoW#O{Rbrd(G_DcSb%^9+g*o
RXCJ*Y(N9E0_V5GO0|2Y@Yn%W8
diff --git a/data/NetoTb3A.4.rda b/data/NetoTb3A.4.rda
index 204e0b5a014c41298ed42fcfd54c65ad0a66cbd6..8f49dbf13db81a4d68efda35bc5fa325faab61b4 100644
GIT binary patch
literal 266
zcmZ>Y%CIzaj8qGb+-E;;F9XB9|4;s#NAF?SYQvDiDB@txey72Kfx&=*&4F<P!;Kq8
zUW~7peR-MP+8P)xNS|u<4U}8#(_nJM(8T1(Ew{F22bD?6zDB&f3=9kmj7ttU>Ygsw
zyW1L?mg?E&E39#7Z}_Del_EK=OSU?~6K@?+cogAWb8nG@&gF^<28|7!QYDp}Uo;9I
znBvUP&7<G`@Fah;@a+u`=QLT!q_BBtEDGRo@OOH+OV6N@t4mphEBnWdj2#WxQNN2r
zraLR9xLdTJUFUh%*qAl)>8hiN<_r$iT1Rf4UVV`5`?J>%wOP9E3xv+IY`Snk#*#&4
WLZ4cQMu&a(PNg{-9`W+$;~D^nL26I{
literal 286
zcmZ>Y%CIzaj8qGb%$moc#lXn+|H=RVxA!n?wP8qM6mhU;ztiBrz+k|@=D@gt;nyT7
z6<?Dhwm!Z_%nBLI&Tb7iooBEd;A~*<VPHAH;IhPR;jFe<3@L0484SFVCX8v{^kgDF
zzTA=0yP@aKezyy&leVrkxTwXuddmUH+=f4W_PpO3s<bAjZkgm~Vxp4RAhLf0gTr#e
zS5p``t2B2@Pybc5>qDk$!~2DbEOH$7%Zj?f1UJ=)sIqK3Wyz#m#usryXWoQu;v6R@
zGUQ4Mv$0!cmqeL&aAqt%9=5DT=VV%jBfHkTtcyX{HY^Rlx%H{R3a<}r+>544Jyo$i
t#bIu(+ovwvD7d_$_{E-7xxcge?mg0))IG__`A_Ugk%vx>t11*$0052Ja?1b!
diff --git a/data/NetoTb3A.5.rda b/data/NetoTb3A.5.rda
index a6c925d456f787f82172ac19bc26c8749c76d347..24be14a3e280d02dee63c9b9e0033006c26985e0 100644
GIT binary patch
literal 289
zcmZ>Y%CIzaj8qGbeAThDnStTj|L^~{N4Pa`)-jYYig?(!?^)o$&|tvufPqbffq}(?
zaRbA*XttHF+<bbR9oX9195Rxs6lcv}#gMej!zAOv1qLwiSjx-naYC*|LO?oj;!6{T
zV^{4X9)Eo{*{vp7S0!aZSEVF_Z=zy@BZIIsvtrjnsUL4z_`DTu>QosblQ%7L5SyiM
z6f?6peO)KRGl2tk(=Ie{rFBVdc*vpR!K<0=SkmlKDEv~$WclTV0#UD$z8L4cJAU}&
zhoZN4?h5p4tj`lrh<at5C@t@`Vpm%7sm#X7YaGpwP2k}27ZL0Is<rKPRqhn0_JrcZ
rU0)P#?=xQeK+4f=R^|jH?-#EGJQdGPYnz?^WA`M@LoMwgu4g0wlpuDi
literal 317
zcmZ>Y%CIzaj8qGb{M)WNfq~)Q|L_0*-*9W-tYau)6!EZc-?PAhp}~OR0Rx)|0|Sc(
z;|7MWvlEwiTvoVz%GT|Q6fXk<1GD-H#$_uPnI!R=Fz_-kFfNeFU{spIa#`WR$p!}r
zABJ8@BU|4ofBxIA)$0tKt?^P-T4CXWODAq{1t|ov$1=V+qm`gDL$&C|Lf=NS=^|c*
zEX{Uhhi+x?@87+mgK1yl`OFgy%2T_yw#w_<`^}GhF^B6A+p)&l6-^wX+j?`0ESxxn
z9TzM$V!X%8#mnNWI(N>Q83vAJT>T4|*Ju@Z>akor-1Y08porZyh33*Asb=mEYnd;)
z9DHW6-Rd--jN6YEW=3JHd)|tg{At0*XIRKvuH419>!g{BVBuu0M~pop6OYSWn6P;6
ZDTPVS-@LhfH~)z}De}<C`J2o%2LO1Heo_Dc
diff --git a/data/NetoTb3A.6.rda b/data/NetoTb3A.6.rda
index 7fe77d4a638504ef13e58a9f829104d308c852ff..3e83c60ddecb86dd3c1f6ac25ac7f1f734613d2c 100644
GIT binary patch
delta 422
zcmX@ie3Y5bDJsL#&@oaiIMQ_YX_tw7+Vu-XQp`GTI$yc$AFO=k0&^BGuat?Dl$1#d
zKTBIL$KrqsCT7cKrARTr083Ypp-F~`6axdVi3tO<;{pZ-Ua4G<T~S`wZq<}*kj_vu
zT*g}Mt0pmNf#^ds1BM9<%`R*c*hQ2XJsMKhJ4Q24W)M5haZ2I<k1A8+#Ps@kJ7;_T
zJePi9(X+O0y-iC*KLnLHa8#;@J=akXkX-4Ixl}B3ud}<CXV;Y}nunyNoJ@lSrhL<T
zeAU5eE!$F~$zG>i#5#BxV=kDr++NII%<RPAHsd721&^fM=AuOQm%1wiXD3Ek@D!)J
zavd`eXZhM%ce-bC&?SR%of4l_^#%*-)lT=7Ufr;&@J5`3T*#d8;NDvv6Shib1%KAx
zp8rC8kMxympMGz3`rsa9(UDO1SbAfuXWPFcUpRGh_HqTR3{%RS<vME>Q)s5{lH5i=
z+h<eku6`5hKk!Oq9~Z0fy(J9GpWkLJ5_O)-5*WB4P~KF5RikO8*y4b_Y@IG8lboka
Xddi<^Haq>t?n#=5S{m2hi&6jp9_^*X
delta 420
zcmX@ge3+TfDJsL#&@oaiII`nlx!^=T?fQu#DP|ovov)aDHL~?(Fk8UOa6wASB!%D2
zBjZAsDKE2gR^~Ft1q?9Yu~b>utr;Y6+1Y`?M2dld;o`C@-Ak9O&0T)nn{iuHvQ$F&
zmP?79T8weR$qbwf93~E#424bxA{}gAUqm-p8ZhP*^epUQI252EDOUNqe&&|B)4rwr
z;!k^S_B-22`bxY2OQZAFUlIZWMpGIWELrWvC1n-l6SicbpTLbvf~#h<EZ<lzw~9$L
z!&Gz1tgs-3Ee;u6&l<O=-Ib`GAtk_Ma?FFR$yqo@dNPN-XRbrfZLW(4l4o0Kgc&xR
z&|YJ?TgS{dxU+g^(~?u^pS_uKcGQ2$*;u>#@RhT>1N8j3Umbd@;*r#{b)Dq&*!5p{
z?(pvNsjR&=zd-q3pVHkGIi_1hr;2}gb<WW>H$!)&xYiOsbC=b=30{vUy=spV`y!X+
z5wq*k<PTP^`b~{K-&Znd{`__@rZwQXqew`Oi2GR&MlXd`t}CwSJ1z>8RhjTqWoMKx
T@3Nc!^qzDTEL0S1dZz>cvt_D0
diff --git a/data/NetoTb3A.8.rda b/data/NetoTb3A.8.rda
index 0b0ba2e42e4a8b540d042207de53ea6938644baa..75bd9264e42e80f7ff5eeb1c7588382a2ef0d017 100644
GIT binary patch
delta 272
zcmZ3@w1i2}DJsL#&@oaiII`>Oi!=s?QxgT{>aQ7OOu5x-v+xxI^A!e$%$LkxP1%-B
zn76Eb#UT@^B$I;@z7hf#JeK;a9IDF5xN>sYg;^;_PBx{Sd~xd0vlSr|7cx#V)DiQ%
zlqNKB?$Rq~c$Ydiv~|dw?ynSGR&-nBs*r1!>ZcIj>~DH+JOvH34D&AePuqV)WzEz;
zB?eyQwJHo{Kc{gzPF%RH$z7Q9M$3M=vVC*%4Gu{a=e><`3@ZF;bL__Xom{1UzIXbL
zKH_5HPPZ30^?lZ=T+hOspGVo>{;$Z)4pI|ZzgI*nO{8~g%6Zf0F+FeR+>K55Jg$Ay
gP(4$lLE~uh#fcq~4D05)e=JuCZsp`yAJ>)u0K^u1BLDyZ
delta 279
zcmZ3&w3<oKDJsL#&@oaiIC6eOrw{|fgNcH2_1}!7W(8j|xwpdP!Ud_SStb`4moMQL
z0f|-34$kN`kx)qFX)rXo%+eY1NlhS^(IiQNf#qbg_iK#_0-gaL=iJno8Pg*->sE5I
zTUZ!1uaamp;^gyXpR}xCp-ou&mroIk6vOum8~vRvt@7lO)5HY}j&3)M__O@CaFF*I
zp<NBN3A@S_+4L*CB()@N^oJ|EZfoG}myV3oK4j2yW82rIFZ7;sw+e3KDBdNr(@ngC
zUy8{gMX=<<$!VK>S4Hz>*%f8{J^Wts%&lKS(xSyXZO?M;O!8rgTG}uCx^2<^Nna<0
jq~@jvN#FEKaDG1J$z{7)99P$T(0kHVuu#!%qmT*!PlI#;
diff --git a/data/NetoTb3A.9.rda b/data/NetoTb3A.9.rda
index c0190b12bd8c7b285ec563b82600428b95805084..be34e467a0cf8ac12ae5e0f672bf0c9d2c5bef4d 100644
GIT binary patch
literal 395
zcmZ>Y%CIzaj8qGbY?iR^Vqn<y|NsB*mF^sz(pvwNYXa@d@3v;G(rQpsaR_k`?^w~%
zt?+UKqgW!ZudAHr#04jpHSkLD@-kd7k;?V=$f)WMR`w58pH$`V>#w=IlS@J2$PCWT
zWh@6+64Y1@a9n0!IdUk0<-o*{D<%vKj0>a~7$;m{U`S$MU|@K|AYthw_{p8ofk~Ok
z!NcHko62T3fu=?!=6<CQ3<q_LJxr`z87KeU?9~`;{7G#Mr=p+H+_l=b-|Vue;8ASS
zx+KB1vGL9!hD4iZQU^Pn7=C3muD#CL?(LaYIoD)i;+%vI1s4IUEpCr4h^mE7R*n90
z*}v7??A(FEy*GVsuDAPoy7u`EuOwHQg)8R!*|gqzbcOMfJd41l<tuVipZ{qScbA%L
z)ugMXplg+FsCwh?r(SE8){plli94qFp9$@FHHl%xT`$r2rBY?)Un`@OKR&*`c5UX~
z<2TQ4&3CXZY)%PiuzDh%=jauEe%`<J`|k+6+oI2t%yh(@IsM1(Nt%aRS|kqs2><{=
CZ=?$V
literal 287
zcmZ>Y%CIzaj8qGb%v@>C%fPU#{{R2)5pE2O(i;DiV*>5j?=*NQaWp8gFo-w^bTD)<
zG928%a4p5vHrPMl;sO%}1_m~Ts`eEonX_h9I$RNUx%k3?mzRNoS%86ofhUv!4(b@y
zLzc#}b2VJ@SSaGnGc#okw_tIH&w(t-j;3^H28r6g8-FsKiK<Oaa%9~l5O6VQ^{KNS
z86E<S9Fvq5a5D(-UKUYh@%+_bJ3(D&+00!D45?=~_cXrC<1G={d8+YpuRw9=wb$FU
zJGYyfPTwrTsKnPH__>mQx#fW;$;*y2mQ9I#v;BViMAxvQ#79y>S9VQl5@Lu{7YS&n
ky=uGtpTU$mulg9t9r+xS#F!^4{)s&)^3cg~*^)aZ080yMlK=n!
diff --git a/man/NetoTb3A.1.Rd b/man/NetoTb3A.1.Rd
index 69293c25..d41d83bb 100644
--- a/man/NetoTb3A.1.Rd
+++ b/man/NetoTb3A.1.Rd
@@ -2,28 +2,28 @@
% Please edit documentation in R/NetoTb3A.1.R
\name{NetoTb3A.1}
\alias{NetoTb3A.1}
-\title{Hidrólise de Resinas}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\title{Efeito de Três Fatores no Grau de Subistituição numa Resina}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, tempo de hidrólise, em horas.}
-\item{\code{f1}}{Fator 1, tempo de hidrólise.}
+\item{\code{f2}}{Fator 2, temperatura da hidrólise, em grau celsius.}
-\item{\code{f2}}{Fator 2, temperatura.}
-
-\item{\code{f3}}{Fator 3, catalisador.}
+\item{\code{f3}}{Fator 3, tipo de catalisador: Acído trifluoracético
+ (-) e acído propiônico (+), ambos em HCl 12M.}
\item{grau}{grau de substituição.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+NETO et al. (2010), Tabela 3A.1, pág. 145.
}
\description{
-Planejamento 2^3 em duplicata para estudar o efeito de 3
- fatores no grau de substituição numa resina clorometilada.
+Planejamento \eqn{2^3}, em duplicata, para estudar o
+ efeito de 3 fatores no grau de substituição numa resina
+ clorometilada.
}
\examples{
@@ -32,12 +32,13 @@ library(lattice)
data(NetoTb3A.1)
str(NetoTb3A.1)
+ftable(xtabs(~f1 + f2 + f3, data = NetoTb3A.1))
+
xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
type = c("p", "a"), auto.key = TRUE,
xlab = "Tempo de Hidrólise",
ylab = "Grau de Substituição")
-
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.2.Rd b/man/NetoTb3A.2.Rd
index 89c3251a..96c4dc4a 100644
--- a/man/NetoTb3A.2.Rd
+++ b/man/NetoTb3A.2.Rd
@@ -3,57 +3,56 @@
\name{NetoTb3A.2}
\alias{NetoTb3A.2}
\title{Voltametria Cíclica do Azul de Metileno}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, concentração (0.1 e 0.5), em mol L\eqn{^{-1}}.}
-\item{\code{f1}}{Fator 1, concentração.}
+\item{\code{f2}}{Fator 2, pH (4 e 7).}
-\item{\code{f2}}{Fator 2, ph.}
+\item{\code{f3}}{Fator 3, tipo de sílica modificada (STM e STPM).}
-\item{\code{f3}}{Fator 3, sílica modificada.}
-
-\item{\code{delta}}{diferença de voltagem..}
+\item{\code{delta}}{Diferença de voltagem (mV).}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+NETO et al. (2010), Tabela 3A.2, pág. 147.
}
\description{
As propriedades eletroquímicas do azul de metileno foram
- investigadas com o objetivo de determinar as condições
- experimentais que minimizam a diferença de voltagem (delta).
+ investigadas com o objetivo de determinar as condições
+ experimentais, controlando três fatores, que minimizam a
+ diferença de voltagem (delta).
}
\examples{
data(NetoTb3A.2)
str(NetoTb3A.2)
-par(mfrow = c(1,3))
-
-with(NetoTb3A.2, interaction.plot(f1, f2, delta,
- xlab = "Concentração",
- ylab = "Média de Delta",
- main = "Interação entre
- Concentração e PH",
- col = "green"))
-
-with(NetoTb3A.2, interaction.plot(f1, f3, delta,
- xlab = "Concentração",
- ylab = "Sílica Modificada",
- main = "Interação entre
- Concentração e Sílica Modificada",
- col = "blue"))
-
- with(NetoTb3A.2, interaction.plot(f2, f3, delta,
- xlab = "PH",
- ylab = "Sílica Modificada",
- main = "Interação entre
- PH e Sílica Modificada",
- col = "red"))
-
+par(mfrow = c(1, 3))
+
+with(NetoTb3A.2,
+ interaction.plot(f1, f2, delta,
+ xlab = "Concentração",
+ ylab = "Média de Delta",
+ main = "Concentração x PH",
+ col = "green"))
+
+with(NetoTb3A.2,
+ interaction.plot(f1, f3, delta,
+ xlab = "Concentração",
+ ylab = "Sílica Modificada",
+ main = "Concentração x Sílica Modificada",
+ col = "blue"))
+
+with(NetoTb3A.2,
+ interaction.plot(f2, f3, delta,
+ xlab = "PH",
+ ylab = "Sílica Modificada",
+ main = "PH x Sílica Modificada",
+ col = "red"))
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.3.Rd b/man/NetoTb3A.3.Rd
index 007589a8..65baf826 100644
--- a/man/NetoTb3A.3.Rd
+++ b/man/NetoTb3A.3.Rd
@@ -3,27 +3,25 @@
\name{NetoTb3A.3}
\alias{NetoTb3A.3}
\title{Tempo de Retenção em Cromatografia Líquida}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, temperatura (30 e 50), em grau celsius.}
-\item{\code{f1}}{Fator 1, temperatura.}
+\item{\code{f2}}{Fator 2, porcentagem de etanol (v/v, 60 e 70).}
-\item{\code{f2}}{Fator 2, porcentagem de etanol.}
+\item{\code{f3}}{Fator 3, fluxo, em mL min\eqn{^{-1}}.}
-\item{\code{f3}}{Fator 3, fluxo.}
-
-\item{\code{temp}}{tempo de retenção.}
+\item{\code{temp}}{Tempo de retenção, em minutos.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+NETO el al. (2010), Tabela 3A.3, pág. 149.
}
\description{
-Um fatorial foi usado para investigar como o tempo de
- retenção de um pico obtido em um cromatógrafo líquido é afetado
+Um fatorial foi usado para investigar como o tempo de
+ retenção de um pico obtido em um cromatógrafo líquido é afetado
pela porcentagem de etanol, temperatura e fluxo de gás.
}
\examples{
@@ -33,27 +31,27 @@ str(NetoTb3A.3)
par(mfrow = c(1,3))
-with(NetoTb3A.3, interaction.plot(f1, f2, temp,
- xlab = "Temperatura",
- ylab = "Tempo Médio",
- main = "Interação entre
- Temperatura e \% de etanol",
- col = "green"))
-
-with(NetoTb3A.3, interaction.plot(f1, f3, temp,
- xlab = "Temperatura",
- ylab = "Tempo Médio",
- main = "Interação entre
- Temperatura e Fluxo",
- col = "blue"))
-
- with(NetoTb3A.3, interaction.plot(f2, f3, temp,
- xlab = "\% de etanol",
- ylab = "Tempo Médio",
- main = "Interação entre \% de
- etanol e Fluxo",
- col = "red"))
-
+with(NetoTb3A.3,
+ interaction.plot(f1, f2, temp,
+ xlab = "Temperatura",
+ ylab = "Tempo Médio",
+ main = " Temperatura x Etanol",
+ col = "green"))
+
+with(NetoTb3A.3,
+ interaction.plot(f1, f3, temp,
+ xlab = "Temperatura",
+ ylab = "Tempo Médio",
+ main = " Temperatura x Fluxo",
+ col = "blue"))
+
+with(NetoTb3A.3,
+ interaction.plot(f2, f3, temp,
+ xlab = "\% de etanol",
+ ylab = "Tempo Médio",
+ main = "Etanol x Fluxo",
+ col = "red"))
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.4.Rd b/man/NetoTb3A.4.Rd
index 359f3ab2..8c07205b 100644
--- a/man/NetoTb3A.4.Rd
+++ b/man/NetoTb3A.4.Rd
@@ -3,30 +3,31 @@
\name{NetoTb3A.4}
\alias{NetoTb3A.4}
\title{Separação de Gases por Adsorção}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
-\item{\code{f1}}{Fator 1, pressão de adsorção.}
+\item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
-\item{\code{f2}}{Fator 2, pressão de dessorção.}
+\item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+ hora\eqn{^{-1}}).}
-\item{\code{f3}}{Fator 3, vazão de alimentação.}
+\item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
-\item{\code{f4}}{Fator 4, tempo de adsorção.}
-
-\item{\code{p}}{Produtividade do adsorvente.}
+\item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+ ciclo\eqn{^{-1}}.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+NETO et al. (2010), Tabela 3A.4, pág. 151.
}
\description{
-No desenvolvimento em laboratório de um processo de
- enriquecimento de gases por adsorção , investigou-se a influência
- de quatro fatores.
+No desenvolvimento em laboratório de um processo de
+ enriquecimento de gases por adsorção, usou-se um planejamento
+ \eqn{2^4} para investigar a influência de quatro fatores na
+ produtividade do adsorvente.
}
\examples{
@@ -35,9 +36,12 @@ library(lattice)
data(NetoTb3A.4)
str(NetoTb3A.4)
-xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
- data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
-
+xyplot(p ~ f1 | f2,
+ groups = interaction(f3, f4, sep = ":"),
+ data = NetoTb3A.4,
+ type = c("p", "a"),
+ auto.key = TRUE)
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.5.Rd b/man/NetoTb3A.5.Rd
index 27be2fc8..5700eb9d 100644
--- a/man/NetoTb3A.5.Rd
+++ b/man/NetoTb3A.5.Rd
@@ -3,30 +3,31 @@
\name{NetoTb3A.5}
\alias{NetoTb3A.5}
\title{Melhorando Funções de Onda}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, conjunto de base (6-31G e 6-311G).}
-\item{\code{f1}}{Fator 1, conjunto de base.}
+\item{\code{f2}}{Fator 2, funções de polarização (ausente e
+ presente).}
-\item{\code{f2}}{Fator 2, funções de polarização.}
+\item{\code{f3}}{Fator 3, funções difusas (usente e presente).}
-\item{\code{f3}}{Fator 3, funções difusas.}
-
-\item{\code{f4}}{Fator 4, correlação eletrônica.}
+\item{\code{f4}}{Fator 4, correlação eletrônica (Hartree-Fock e
+ MP2).}
\item{\code{freq}}{Frequência resultante.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.5, pág.154)
+NETO et al. (2010), Tabela 3A.5, pág. 154.
}
\description{
-Pesquisadores estavam interessados em avaliar como
+Pesquisadores estavam interessados em avaliar como
alguns parâmetros usados para especificar a função de onda iriam
- afetar a frequência.
+ afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+ investigar a influência de 4 fatores.
}
\examples{
@@ -35,9 +36,12 @@ library(lattice)
data(NetoTb3A.5)
str(NetoTb3A.5)
-xyplot(freq ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
- data = NetoTb3A.5, type = c("p", "a") , auto.key = TRUE)
-
+xyplot(freq ~ f1 | f2,
+ groups = interaction(f3, f4, sep = ":"),
+ data = NetoTb3A.5,
+ type = c("p", "a"),
+ auto.key = TRUE)
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.6.Rd b/man/NetoTb3A.6.Rd
index b5f9ad35..15a44ea6 100644
--- a/man/NetoTb3A.6.Rd
+++ b/man/NetoTb3A.6.Rd
@@ -2,33 +2,34 @@
% Please edit documentation in R/NetoTb3A.6.R
\name{NetoTb3A.6}
\alias{NetoTb3A.6}
-\title{Desempenho de Eletrodos}
+\title{Desempenho de Eletrodos de Ti/TiO\eqn{_2}}
\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{f1}}{Fator 1, solução precursora (1:4:16 e 1:2:8).}
-\item{\code{f1}}{Fator 1, solução precursora.}
+\item{\code{f2}}{Fator 2, número de camadas (2 ou 10).}
-\item{\code{f2}}{Fator 2, número de camadas.}
+\item{\code{f3}}{Fator 3, temperatura (450 e 525 \eqn{^\circ}C).}
-\item{\code{f3}}{Fator 3, temperatura.}
+\item{\code{f4}}{Fator 4, concentração de nitrobenzeno (2 e 8 mM).}
-\item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
+\item{\code{f5}}{Fator 5, velocidade de varredura (50 e 200 mV
+ min\eqn{^{-1}}).}
-\item{\code{f5}}{Fator 5, velocidade de varredura.}
-
-\item{\code{des}}{Desempenho.}
+\item{\code{des}}{Desempenho de eletrodos de Ti/TiO\eqn{_2}, em mC
+ cm\eqn{^{-2}}.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+NETO et al. (2010), Tabela 3A.6, pág. 156.
}
\description{
-O planejamento em fatorial foi usado para investigar
- como cinco fatores influenciam o desempenho de eletrodos na
- eletroredução de nitrobenzeno.
+O planejamento em fatorial \eqn{2^5} foi usado para
+ investigar como cinco fatores influenciam o desempenho de
+ eletrodos na eletroredução de nitrobenzeno. O desempenho foi
+ medido em termos das cargas catódicas (mC cm\eqn{^{-2}}).
}
\examples{
@@ -37,9 +38,11 @@ library(lattice)
data(NetoTb3A.6)
str(NetoTb3A.6)
-xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
- data = NetoTb3A.6, type = c("p", "a"))
-
+xyplot(des ~ f1 | f2 + f3,
+ groups = interaction(f4, f5),
+ data = NetoTb3A.6,
+ type = c("p", "a"))
+
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.8.Rd b/man/NetoTb3A.8.Rd
index 2c940068..80d8aef9 100644
--- a/man/NetoTb3A.8.Rd
+++ b/man/NetoTb3A.8.Rd
@@ -2,38 +2,36 @@
% Please edit documentation in R/NetoTb3A.8.R
\name{NetoTb3A.8}
\alias{NetoTb3A.8}
-\title{Controlando a Espuma}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\title{Controlando a Espuma de Detergentes}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{prod}}{Celas experimentais criadas pela combinação de EO
+ e PO.}
-\item{\code{prod}}{Produto.}
+\item{\code{EO}}{Óxido de eteno (4 e 6).}
-\item{\code{EO}}{Óxido de eteno.}
+\item{\code{PO}}{Óxido de propeno (4 e 6).}
-\item{\code{PO}}{Óxido de propeno.}
-
-\item{\code{pt}}{Ponto de turvação.}
+\item{\code{pt}}{Ponto de turvação, em \eqn{^\circ}C.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.8, pág.159)
+NETO et al. (2010), Tabela 3A.8, pág. 159.
}
\description{
-Verificação de como o ponto de turvação varia com as
- unidades de óxido de eteno e óxido de propeno dos álcoois graxos
+Verificação de como o ponto de turvação varia com as
+ unidades de óxido de eteno (EO) e óxido de propeno (PO) dos
+ álcoois graxos. Um plano experimental \eqn{2^2 + 3} pontos
+ centrais foi utilizado.
}
\examples{
data(NetoTb3A.8)
str(NetoTb3A.8)
-
-plot(pt ~ ens, type = "o", col = 6, data = NetoTb3A.8,
- xlab = "Ensaio", ylab = "",
- main = "Ponto de Turvação em Função do Ensaio")
+NetoTb3A.8
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3A.9.Rd b/man/NetoTb3A.9.Rd
index 32b24549..21c8bd6c 100644
--- a/man/NetoTb3A.9.Rd
+++ b/man/NetoTb3A.9.Rd
@@ -2,12 +2,12 @@
% Please edit documentation in R/NetoTb3A.9.R
\name{NetoTb3A.9}
\alias{NetoTb3A.9}
-\title{Desenvolvimento de um Detergente}
-\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+\title{Desenvolvimento de um Detergente para Branqueamento de Roupas}
+\format{Um \code{data.frame} com 8 observações e 6 variáveis, em que
\describe{
-\item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
+\item{\code{form}}{Ordem cronológica da execução de cada grupo de 12
ensaios repetidos.}
\item{\code{A}}{Aditivo A.}
@@ -16,17 +16,21 @@
\item{\code{C}}{Aditivo C.}
-\item{\code{resp}}{Resposta, densidade ótica que mede a intensidade
- da luz refletida pela roupa lavada.}
+\item{\code{media}}{Densidade ótica que mede a intensidade da luz
+ refletida pela roupa lavada (resposta média de 12 ensaios
+ repetidos).}
+
+\item{\code{var}}{Variância das observações nos 12 ensaios
+ repetidos.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3A.9, pág.162)
+NETO et al. 2010, Tabela 3A.9, pág. 162.
}
\description{
-Utilizou-se um planejamento fatorial para avaliar os
- efeitos da adoção de três ingredientes sobre o poder de
- branqueameto.
+Utilizou-se um planejamento fatorial \eqn{2^3} para
+ avaliar os efeitos da adoção de três ingredientes sobre o poder
+ de branqueameto de detergentes para roupas.
}
\examples{
@@ -35,18 +39,18 @@ str(NetoTb3A.9)
par(mfrow = c(1,3))
-with(NetoTb3A.9, interaction.plot(A, B, resp,
- main = "Interação entre A e B",
+with(NetoTb3A.9, interaction.plot(A, B, media,
+ main = "A x B",
col = "green"))
-with(NetoTb3A.9, interaction.plot(A, C, resp,
- main = "Interação entre A e C",
+with(NetoTb3A.9, interaction.plot(A, C, media,
+ main = "A x C",
col = "blue"))
- with(NetoTb3A.9, interaction.plot(B, C, resp,
- main = "Interação entre B e C",
- col = "red"))
+with(NetoTb3A.9, interaction.plot(B, C, media,
+ main = "B x C",
+ col = "red"))
}
-\keyword{DBC}
+\keyword{FAT2K}
--
GitLab