Merge branch 'lineu181' into devel

R/NetoTb3A.1.R

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

R/NetoTb3A.2.R

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

R/NetoTb3A.3.R

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

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, usou-se um planejamento
+#'     \eqn{2^4} para investigar a influência de quatro fatores na
+#'     produtividade do adsorvente.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{f1}}{Fator 1, pressão de adsorção (1.40 e 2.40 bar).}
+#'
+#' \item{\code{f2}}{Fator 2, pressão de dessorção (0.05 e 0.20 bar).}
+#'
+#' \item{\code{f3}}{Fator 3, vazão de alimentação (0.10 e 0.30 m\eqn{^3}
+#'     hora\eqn{^{-1}}).}
+#'
+#' \item{\code{f4}}{Fator 4, tempo de adsorção (8 e 30 s).}
+#'
+#' \item{\code{p}}{Produtividade do adsorvente (mol kg\eqn{^{-1}})
+#'     ciclo\eqn{^{-1}}.}
+#'
+#' }
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.4, pág. 151.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3A.4)
+#' str(NetoTb3A.4)
+#'
+#' xyplot(p ~ f1 | f2,
+#'        groups = interaction(f3, f4, sep = ":"),
+#'        data = NetoTb3A.4,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
+#'
+NULL

R/NetoTb3A.5.R

+#' @name NetoTb3A.5
+#' @title Melhorando Funções de Onda
+#' @description Pesquisadores estavam interessados em avaliar como
+#'     alguns parâmetros usados para especificar a função de onda iriam
+#'     afetar a frequência. Foi realizado um planejamento \eqn{2^4} para
+#'     investigar a influência de 4 fatores.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{f1}}{Fator 1, conjunto de base (6-31G e 6-311G).}
+#'
+#' \item{\code{f2}}{Fator 2, funções de polarização (ausente e
+#'     presente).}
+#'
+#' \item{\code{f3}}{Fator 3, funções difusas (usente e presente).}
+#'
+#' \item{\code{f4}}{Fator 4, correlação eletrônica (Hartree-Fock e
+#'     MP2).}
+#'
+#' \item{\code{freq}}{Frequência resultante.}
+#'
+#' }
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3A.5, pág. 154.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3A.5)
+#' str(NetoTb3A.5)
+#'
+#' xyplot(freq ~ f1 | f2,
+#'        groups = interaction(f3, f4, sep = ":"),
+#'        data = NetoTb3A.5,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
+#'
+NULL

R/NetoTb3A.6.R

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

R/NetoTb3A.8.R

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

R/NetoTb3A.9.R

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

data-raw/NetoTb3A.1.txt

+ens	f1	f2	f3	grau
+1	-1	-1	-1	0.52
+2	1	-1	-1	0.57
+3	-1	1	-1	0.55
+4	1	1	-1	0.58
+5	-1	-1	1	0.47
+6	1	-1	1	0.53
+7	-1	1	1	0.52
+8	1	1	1	0.54
+9	-1	-1	-1	0.54
+10	1	-1	-1	0.58
+11	-1	1	-1	0.54
+12	1	1	-1	0.56
+13	-1	-1	1	0.45
+14	1	-1	1	0.56
+15	-1	1	1	0.53
+16	1	1	1	0.52
\ No newline at end of file

data-raw/NetoTb3A.2.txt

+ens	f1	f2	f3	delta	
+1	-1	-1	-1	106	
+2	+1	-1	-1	98	
+3	-1	+1	-1	139	
+4	+1	+1	-1	141	
+5	-1	-1	+1	137	
+6	+1	-1	+1	123	
+7	-1	+1	+1	119	
+8	+1	+1	+1	103	

data-raw/NetoTb3A.3.txt

+ens	f1	f2	f3	temp	
+1	-1	-1	-1	49.26	
+2	+1	-1	-1	31.27	
+3	-1	+1	-1	42.2	
+4	+1	+1	-1	26.61	
+5	-1	-1	+1	23.81	
+6	+1	-1	+1	15.07	
+7	-1	+1	+1	19.57	
+8	+1	+1	+1	12.86	

data-raw/NetoTb3A.4.txt

+ens	f1	f2	f3	f4	p
+1	-1	-1	-1	-1	2.75
+2	+1	-1	-1	-1	3.15
+3	-1	+1	-1	-1	2.85
+4	+1	+1	-1	-1	3.55
+5	-1	-1	+1	-1	4.65
+6	+1	-1	+1	-1	5.85
+7	-1	+1	+1	-1	5.4
+8	+1	+1	+1	-1	6.3
+9	-1	-1	-1	+1	5.95
+10	+1	-1	-1	+1	6.55
+11	-1	+1	-1	+1	5.6
+12	+1	+1	-1	+1	6.75
+13	-1	-1	+1	+1	11.5
+14	+1	-1	+1	+1	13
+15	-1	+1	+1	+1	12.5
+16	+1	+1	+1	+1	14

data-raw/NetoTb3A.5.txt

+ens	f1	f2	f3	f4	freq
+1	-1	-1	-1	-1	3245.6
+2	+1	-1	-1	-1	3212.4
+3	-1	+1	-1	-1	3203.5
+4	+1	+1	-1	-1	3190.3
+5	-1	-1	+1	-1	3251.7
+6	+1	-1	+1	-1	3209.4
+7	-1	+1	+1	-1	3214.9
+8	+1	+1	+1	-1	3193.5
+9	-1	-1	-1	+1	3096.2
+10	+1	-1	-1	+1	3049.3
+11	-1	+1	-1	+1	3132.8
+12	+1	+1	-1	+1	3087.6
+13	-1	-1	+1	+1	3105
+14	+1	-1	+1	+1	3050.4
+15	-1	+1	+1	+1	3143.5
+16	+1	+1	+1	+1	3093.5

data-raw/NetoTb3A.6.txt

+ens	f1	f2	f3	f4	f5	des
+1	-1	-1	-1	-1	-1	2.02
+2	+1	-1	-1	-1	-1	2.03
+3	-1	+1	-1	-1	-1	4.71
+4	+1	+1	-1	-1	-1	7.01
+5	-1	-1	+1	-1	-1	1.71
+6	+1	-1	+1	-1	-1	2.10
+7	-1	+1	+1	-1	-1	4.36
+8	+1	+1	+1	-1	-1	3.71
+9	-1	-1	-1	+1	-1	7.15
+10	+1	-1	-1	+1	-1	4.87
+11	-1	+1	-1	+1	-1	8.96
+12	+1	+1	-1	+1	-1	12.25
+13	-1	-1	+1	+1	-1	4.28
+14	+1	-1	+1	+1	-1	3.13
+15	-1	+1	+1	+1	-1	9.42
+16	+1	+1	+1	+1	-1	8.68
+17	-1	-1	-1	-1	+1	1.7
+18	+1	-1	-1	-1	+1	1.39
+19	-1	+1	-1	-1	+1	4.5
+20	+1	+1	-1	-1	+1	5.92
+21	-1	-1	+1	-1	+1	0.73
+22	+1	-1	+1	-1	+1	0.77
+23	-1	+1	+1	-1	+1	3.2
+24	+1	+1	+1	-1	+1	3.08
+25	-1	-1	-1	+1	+1	2.51
+26	+1	-1	-1	+1	+1	1.82
+27	-1	+1	-1	+1	+1	5.6
+28	+1	+1	-1	+1	+1	7.61
+29	-1	-1	+1	+1	+1	1.55
+30	+1	-1	+1	+1	+1	1.05
+31	-1	+1	+1	+1	+1	4.25
+32	+1	+1	+1	+1	+1	4.38

data-raw/NetoTb3A.8.txt

+ens	prod	EO	PO	pt
+1	A4O4	-1	-1	32.1
+2	A4O6	1	-1	40.2
+3	A6O4	-1	1	27.7
+4	A6O6	1	1	34
+5	A5O5	0	0	35
+6	A5O5	0	0	34.6
+7	A5O5	0	0	35.4

data-raw/NetoTb3A.9.txt

+form	A	B	C	resp
+2	-1	-1	-1	75.719
+4	+1	-1	-1	76.998
+6	-1	+1	-1	75.557
+8	+1	+1	-1	76.928
+3	-1	-1	+1	81.032
+5	+1	-1	+1	82.298
+7	-1	+1	+1	80.848
+1	+1	+1	+1	82.146
+