Skip to content
Snippets Groups Projects
Commit 4d5e05bb authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

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

parent 1c1c82f1
Branches
No related tags found
1 merge request!122Lineu181 - adiciona 8 tabelas do Neto
Pipeline #
...@@ -3,30 +3,31 @@ ...@@ -3,30 +3,31 @@
\name{NetoTb3A.5} \name{NetoTb3A.5}
\alias{NetoTb3A.5} \alias{NetoTb3A.5}
\title{Melhorando Funções de Onda} \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{ \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 (Hartree-Fock e
MP2).}
\item{\code{f4}}{Fator 4, correlação eletrônica.}
\item{\code{freq}}{Frequência resultante.} \item{\code{freq}}{Frequência resultante.}
}} }}
\source{ \source{
Barros Neto, Benício de (2010), (Tabela 3A.5, pág.154) NETO et al. (2010), Tabela 3A.5, pág. 154.
} }
\description{ \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 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{ \examples{
...@@ -35,9 +36,12 @@ library(lattice) ...@@ -35,9 +36,12 @@ library(lattice)
data(NetoTb3A.5) data(NetoTb3A.5)
str(NetoTb3A.5) str(NetoTb3A.5)
xyplot(freq ~ f1, groups = interaction(f2, f3, f4, sep = ":"), xyplot(freq ~ f1 | f2,
data = NetoTb3A.5, type = c("p", "a") , auto.key = TRUE) groups = interaction(f3, f4, sep = ":"),
data = NetoTb3A.5,
type = c("p", "a"),
auto.key = TRUE)
} }
\keyword{DBC} \keyword{FAT2K}
...@@ -2,33 +2,34 @@ ...@@ -2,33 +2,34 @@
% Please edit documentation in R/NetoTb3A.6.R % Please edit documentation in R/NetoTb3A.6.R
\name{NetoTb3A.6} \name{NetoTb3A.6}
\alias{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 \format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
\describe{ \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 de eletrodos de Ti/TiO\eqn{_2}, em mC
cm\eqn{^{-2}}.}
\item{\code{des}}{Desempenho.}
}} }}
\source{ \source{
Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156) NETO et al. (2010), Tabela 3A.6, pág. 156.
} }
\description{ \description{
O planejamento em fatorial foi usado para investigar O planejamento em fatorial \eqn{2^5} foi usado para
como cinco fatores influenciam o desempenho de eletrodos na investigar como cinco fatores influenciam o desempenho de
eletroredução de nitrobenzeno. eletrodos na eletroredução de nitrobenzeno. O desempenho foi
medido em termos das cargas catódicas (mC cm\eqn{^{-2}}).
} }
\examples{ \examples{
...@@ -37,9 +38,11 @@ library(lattice) ...@@ -37,9 +38,11 @@ library(lattice)
data(NetoTb3A.6) data(NetoTb3A.6)
str(NetoTb3A.6) str(NetoTb3A.6)
xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5), xyplot(des ~ f1 | f2 + f3,
data = NetoTb3A.6, type = c("p", "a")) groups = interaction(f4, f5),
data = NetoTb3A.6,
type = c("p", "a"))
} }
\keyword{DBC} \keyword{FAT2K}
...@@ -2,38 +2,36 @@ ...@@ -2,38 +2,36 @@
% Please edit documentation in R/NetoTb3A.8.R % Please edit documentation in R/NetoTb3A.8.R
\name{NetoTb3A.8} \name{NetoTb3A.8}
\alias{NetoTb3A.8} \alias{NetoTb3A.8}
\title{Controlando a Espuma} \title{Controlando a Espuma de Detergentes}
\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{ \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, em \eqn{^\circ}C.}
\item{\code{pt}}{Ponto de turvação.}
}} }}
\source{ \source{
Barros Neto, Benício de (2010), (Tabela 3A.8, pág.159) NETO et al. (2010), Tabela 3A.8, pág. 159.
} }
\description{ \description{
Verificação de como o ponto de turvação varia com as Verificação de como o ponto de turvação varia com as
unidades de óxido de eteno e óxido de propeno dos álcoois graxos 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{ \examples{
data(NetoTb3A.8) data(NetoTb3A.8)
str(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")
} }
\keyword{DBC} \keyword{FAT2K}
...@@ -2,8 +2,8 @@ ...@@ -2,8 +2,8 @@
% Please edit documentation in R/NetoTb3A.9.R % Please edit documentation in R/NetoTb3A.9.R
\name{NetoTb3A.9} \name{NetoTb3A.9}
\alias{NetoTb3A.9} \alias{NetoTb3A.9}
\title{Desenvolvimento de um Detergente} \title{Desenvolvimento de um Detergente para Branqueamento de Roupas}
\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 6 variáveis, em que
\describe{ \describe{
...@@ -16,17 +16,21 @@ ...@@ -16,17 +16,21 @@
\item{\code{C}}{Aditivo C.} \item{\code{C}}{Aditivo C.}
\item{\code{resp}}{Resposta, densidade ótica que mede a intensidade \item{\code{media}}{Densidade ótica que mede a intensidade da luz
da luz refletida pela roupa lavada.} refletida pela roupa lavada (resposta média de 12 ensaios
repetidos).}
\item{\code{var}}{Variância das observações nos 12 ensaios
repetidos.}
}} }}
\source{ \source{
Barros Neto, Benício de (2010), (Tabela 3A.9, pág.162) NETO et al. 2010, Tabela 3A.9, pág. 162.
} }
\description{ \description{
Utilizou-se um planejamento fatorial para avaliar os Utilizou-se um planejamento fatorial \eqn{2^3} para
efeitos da adoção de três ingredientes sobre o poder de avaliar os efeitos da adoção de três ingredientes sobre o poder
branqueameto. de branqueameto de detergentes para roupas.
} }
\examples{ \examples{
...@@ -35,18 +39,18 @@ str(NetoTb3A.9) ...@@ -35,18 +39,18 @@ str(NetoTb3A.9)
par(mfrow = c(1,3)) par(mfrow = c(1,3))
with(NetoTb3A.9, interaction.plot(A, B, resp, with(NetoTb3A.9, interaction.plot(A, B, media,
main = "Interação entre A e B", main = "A x B",
col = "green")) col = "green"))
with(NetoTb3A.9, interaction.plot(A, C, resp, with(NetoTb3A.9, interaction.plot(A, C, media,
main = "Interação entre A e C", main = "A x C",
col = "blue")) col = "blue"))
with(NetoTb3A.9, interaction.plot(B, C, resp, with(NetoTb3A.9, interaction.plot(B, C, media,
main = "Interação entre B e C", main = "B x C",
col = "red")) col = "red"))
} }
\keyword{DBC} \keyword{FAT2K}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment