From e370e75b42b3e9e00eb8c0a5483ae32a7b47b259 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 29 Nov 2016 15:29:27 -0200
Subject: [PATCH] =?UTF-8?q?Faz=20corre=C3=A7=C3=B5es=20na=20documenta?=
=?UTF-8?q?=C3=A7=C3=A3o.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/NetoEx4.8.R | 32 +++++++++---------
R/NetoTb4.10.R | 66 +++++++++++++++++--------------------
R/NetoTb4.12.R | 66 ++++++++++++++++---------------------
R/NetoTb4.18.R | 77 ++++++++++++++++----------------------------
R/NetoTb4.2.R | 36 ++++++++++++---------
R/NetoTb4.6.R | 54 +++++++++++++++----------------
data/NetoEx4.8.rda | Bin 229 -> 206 bytes
data/NetoTb4.10.rda | Bin 243 -> 225 bytes
data/NetoTb4.12.rda | Bin 241 -> 225 bytes
data/NetoTb4.18.rda | Bin 293 -> 387 bytes
data/NetoTb4.2.rda | Bin 269 -> 234 bytes
man/NetoEx4.8.Rd | 27 ++++++++++++----
man/NetoTb4.10.Rd | 54 +++++++++++++------------------
man/NetoTb4.12.Rd | 54 ++++++++++++-------------------
man/NetoTb4.18.Rd | 67 +++++++++++++-------------------------
man/NetoTb4.2.Rd | 30 +++++++++--------
man/NetoTb4.6.Rd | 44 ++++++++++++-------------
17 files changed, 269 insertions(+), 338 deletions(-)
diff --git a/R/NetoEx4.8.R b/R/NetoEx4.8.R
index 44b28aa1..9f866433 100644
--- a/R/NetoEx4.8.R
+++ b/R/NetoEx4.8.R
@@ -1,26 +1,24 @@
#' @name NetoEx4.8
-#' @title Otimização de Reação Orgânica
-#' @description Resultados de um experimento fatorial 2^4 cujo objetivo,
-#' era a otimização de uma reação orgânic.
-#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
+#' @title Otimização de Reação Orgânica com Fatorial Fracionado
+#' @description Resultados de um experimento fatorial \eqn{2^4} com uma
+#' fração 1/2 cujo objetivo era a otimização de uma reação orgânica.
+#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Temperatura: ambiente e refluxo.}
#'
-#' \item{\code{f1}}{Fator 1: Temperatura.}
-#'
-#' \item{\code{f2}}{Fator 2: Base.}
-#'
-#' \item{\code{f3}}{Fator 3: Solvente.}
-#'
-#' \item{\code{f4}}{Fator 4: Catalisador.}
+#' \item{\code{f2}}{Base: \eqn{K_2CO_3/NaOH} e \eqn{K_2CO_3}.}
#'
-#' \item{resp}{Rendimento da reação (%).}
+#' \item{\code{f3}}{Solvente: \eqn{CH_2Cl_2} e \eqn{CH_3CN}.}
+#'
+#' \item{\code{f4}}{Catalisador: nenhum e TEBA.}
+#'
+#' \item{\code{resp}}{Rendimento da reação (\%).}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, BenÃcio de (2010), (ExercÃcio 4.8, pág.176)
+#' @keywords FRAC
+#' @source NETO et al. (2010), ExercÃcio 4.8, pág. 176.
#' @examples
#'
#' library(lattice)
@@ -28,7 +26,7 @@
#' data(NetoEx4.8)
#' str(NetoEx4.8)
#'
-#' xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+#' xyplot(rend ~ f1 | f2, groups = f4, data = NetoEx4.8,
#' type = c("p", "a"), auto.key = TRUE)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.10.R b/R/NetoTb4.10.R
index 748a4603..1f14c8e8 100644
--- a/R/NetoTb4.10.R
+++ b/R/NetoTb4.10.R
@@ -1,53 +1,45 @@
#' @name NetoTb4.10
-#' @title Saque de um Tenista amador
-#' @description Planejamento fracionário saturado de 8 ensaios para
-#' verificar como sete variáveis afetam o saque de um tenista amador
+#' @title Saque de um Tenista Amador
+#' @description Planejamento fracionário saturado de 8 ensaios para
+#' verificar como sete variáveis afetam o saque de um tenista
+#' amador. As 8 corridas são um ensaio completo \eqn{2^3} para os 3
+#' primeiros fatores. Foram usadas as relações de definição ABD,
+#' ACE, BDC e ABCG.
#' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ensaio}}{Número correspondente ao ensaio.}
+#' \item{\code{A}}{Técnica: chapada e cortada.}
#'
-#' \item{\code{f1}}{Fator 1: técnica.}
-#'
-#' \item{\code{f2}}{Fator 2: frequência.}
-#'
-#' \item{\code{f3}}{Fator 3: hora.}
-#'
-#' \item{\code{f4}}{Fator 4: revestimento.}
-#'
-#' \item{\code{f5}}{Fator 5: lado.}
-#'
-#' \item{\code{f6}}{Fator 6: camisa.}
-#'
-#' \item{\code{f7}}{Fator 7: raquete.}
+#' \item{\code{B}}{Frequência: baixa e alta.}
#'
-#' \item{acert}{percentual de acertos.}
+#' \item{\code{C}}{Hora: dia e noite.}
+#'
+#' \item{\code{D}}{Revestimento: saibro e concreto.}
+#'
+#' \item{\code{E}}{Lado: direito e esquerdo.}
+#'
+#' \item{\code{F}}{Camisa: com e sem.}
+#'
+#' \item{\code{G}}{Raquete: média e grande.}
+#'
+#' \item{\code{acert}}{Percentual de acertos do tenista.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, BenÃcio de (2010), (Tabela 4.10, pág.186)
+#' @keywords FRAC
+#' @source NETO et al. (2010), Tabela 4.10, pág. 186.
#' @examples
#'
#' data(NetoTb4.10)
#' str(NetoTb4.10)
+#' NetoTb4.10
#'
-#' par(mfrow = c(2,2))
-#'
-#' plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
-#'
-#' plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
-#'
-#' plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+#' library(lattice)
#'
-#' plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+#' xyplot(acert ~ A + B + C + D + E + F + G,
+#' outer = TRUE,
+#' data = NetoTb4.10,
+#' as.table = TRUE,
+#' type = c("p", "a"))
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.12.R b/R/NetoTb4.12.R
index a8f4c714..ee06811b 100644
--- a/R/NetoTb4.12.R
+++ b/R/NetoTb4.12.R
@@ -1,55 +1,43 @@
#' @name NetoTb4.12
-#' @title Saque de um Tenista amador
-#' @description Planejamento fracionário saturado de 8 ensaios para
-#' verificar como sete variáveis afetam o saque de um tenista amador
-#' , idêntico à tabela 4.10, porém com os sinais do fator 5
-#' invertidos.
+#' @title Saque de um Tenista Amador
+#' @description Planejamento fracionário saturado de 8 ensaios para
+#' verificar como sete variáveis afetam o saque de um tenista
+#' amador, idêntico à \code{link{tabela 4.10}}, porém com os sinais
+#' do fator E invertidos.
#' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ensaio}}{Número correspondente ao ensaio.}
+#' \item{\code{A}}{Técnica: chapada e cortada.}
#'
-#' \item{\code{f1}}{Fator 1: técnica.}
-#'
-#' \item{\code{f2}}{Fator 2: frequência.}
-#'
-#' \item{\code{f3}}{Fator 3: hora.}
-#'
-#' \item{\code{f4}}{Fator 4: revestimento.}
-#'
-#' \item{\code{f5}}{Fator 5: lado.}
-#'
-#' \item{\code{f6}}{Fator 6: camisa.}
-#'
-#' \item{\code{f7}}{Fator 7: raquete.}
+#' \item{\code{B}}{Frequência: baixa e alta.}
#'
-#' \item{acert}{percentual de acertos.}
+#' \item{\code{C}}{Hora: dia e noite.}
+#'
+#' \item{\code{D}}{Revestimento: saibro e concreto.}
+#'
+#' \item{\code{E}}{Lado: direito e esquerdo.}
+#'
+#' \item{\code{F}}{Camisa: com e sem.}
+#'
+#' \item{\code{G}}{Raquete: média e grande.}
+#'
+#' \item{\code{acert}}{Percentual de acertos do tenista.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, BenÃcio de (2010), (Tabela 4.12, pág.189)
+#' @keywords FRAC
+#' @source NETO et al. (2010), Tabela 4.10, pág. 186.
#' @examples
#'
#' data(NetoTb4.12)
#' str(NetoTb4.12)
#'
-#' par(mfrow = c(2,2))
-#'
-#' plot(acert ~ f1, data = NetoTb4.12, xlab = "Técnica",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f1, data = NetoTb4.12), col = 2)
-#'
-#' plot(acert ~ f2, data = NetoTb4.12, xlab = "Frequência",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f2, data = NetoTb4.12), col = 2)
-#'
-#' plot(acert ~ f6, data = NetoTb4.12, xlab = "Camisa",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f6, data = NetoTb4.12), col = 2)
+#' library(lattice)
#'
-#' plot(acert ~ f7, data = NetoTb4.12, xlab = "Raquete",
-#' ylab = "Acertos (%)")
-#' abline(lm(acert ~ f7, data = NetoTb4.12), col = 2)
+#' xyplot(acert ~ A + B + C + D + E + F + G,
+#' outer = TRUE,
+#' data = NetoTb4.12,
+#' as.table = TRUE,
+#' type = c("p", "a"))
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.18.R b/R/NetoTb4.18.R
index 3c001c81..e5fa14bd 100644
--- a/R/NetoTb4.18.R
+++ b/R/NetoTb4.18.R
@@ -1,67 +1,44 @@
#' @name NetoTb4.18
-#' @title Técnicas de Taguchi
-#' @description Planejamento de Taguchi para o desenvolvimento de uma
-#' mistura de bolo.'
+#' @title Planejamento de Taguchi
+#' @description Planejamento de Taguchi para o desenvolvimento de uma
+#' mistura de bolo.
#' @format Um \code{data.frame} com 8 observações e 8 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{F}}{Farinha.}
+#' \item{\code{Farin}}{Farinha.}
#'
-#' \item{\code{G}}{Gordura.}
-#'
-#' \item{\code{A}}{Açúcar.}
-#'
-#' \item{\code{O}}{Ovos.}
-#'
-#' \item{\code{f1}}{Temperatura.}
-#'
-#' \item{\code{f2}}{Leite.}
-#'
-#' \item{\code{f3}}{Tempo.}
-#'
-#' \item{\code{f4}}{Tempo + Leite + Temperatura.}
-#'
-#' }
-#' @keywords DBC
-#' @source Barros Neto, BenÃcio de (2010), (Tabela 4.18, pág.196)
-#' @examples
+#' \item{\code{Gordu}}{Gordura.}
#'
-#' data(NetoTb4.18)
-#' str(NetoTb4.18)
+#' \item{\code{Acucar}}{Açúcar.}
#'
-#' par(mfrow = c(2,4))
+#' \item{\code{Ovos}}{Ovos.}
#'
-#' plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Farinha")
-#' abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
+#' \item{\code{Temper}}{Temperatura.}
#'
-#' plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Gordura")
-#' abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
+#' \item{\code{Leite}}{Leite.}
#'
-#' plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Açúcar")
-#' abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
+#' \item{\code{Tempo}}{Tempo.}
#'
-#' plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Ovos")
-#' abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
+#' \item{\code{textura}}{Textura do bolo.}
#'
-#' plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Temperatura")
-#' abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
+#' }
+#' @keywords Taguchi
+#' @source NETO et al. (2010), tabela 4.18, pág. 196.
+#' @examples
+#'
+#' library(lattice)
#'
-#' plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Leite")
-#' abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
+#' data(NetoTb4.18)
+#' str(NetoTb4.18)
#'
-#' plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Tempo")
-#' abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+#' aggregate(textura ~ Ovos + Acucar + Gordu + Farin,
+#' data = NetoTb4.18,
+#' FUN = function(y) c(m = mean(y), s = sd(y)))
#'
-#' plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra",
-#' xlab = "Temperatura + Leite + Tempo")
-#' abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+#' xyplot(textura ~ Ovos + Acucar + Gordu + Farin + Tempo + Temper + Leite,
+#' outer = TRUE,
+#' data = NetoTb4.18, type = c("p", "a"),
+#' as.table = TRUE)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.2.R b/R/NetoTb4.2.R
index 9ffd810a..98b17e99 100644
--- a/R/NetoTb4.2.R
+++ b/R/NetoTb4.2.R
@@ -1,26 +1,27 @@
#' @name NetoTb4.2
#' @title Ação CatalÃtica do Mo(VI)
-#' @description Resultados de um experimento fatorial 2^4 completo,
-#' realizado para estudar a ação catalÃtica do Mo(VI).
+#' @description Resultados de um experimento fatorial \eqn{2^4}
+#' completo, realizado para estudar a resposta catalÃtica do Mo(VI).
#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+#' L\eqn{^{-1}}.}
#'
-#' \item{\code{f1}}{Fator 1: H2S04.}
-#'
-#' \item{\code{f2}}{Fator 2: KI.}
-#'
-#' \item{\code{f3}}{Fator 3: H2O2.}
-#'
-#' \item{\code{f4}}{Fator 4: Tempo.}
+#' \item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+#' L\eqn{^{-1}}.}
#'
-#' \item{resp}{Traços de molibdênio.}
+#' \item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+#' L\eqn{^{-1}}.}
+#'
+#' \item{\code{f4}}{Tempo: 90 e 130 segundos.}
+#'
+#' \item{resp}{Sinal analÃtico.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, BenÃcio de (2010), (Tabela 4.2, pág.167)
+#' @keywords FRAC
+#' @source NETO et al. (2010), tabela 4.2, pág. 167.
#' @examples
#'
#' library(lattice)
@@ -28,7 +29,10 @@
#' data(NetoTb4.2)
#' str(NetoTb4.2)
#'
-#' xyplot(resp ~ f1 | f2 + f3, groups = f4, data = NetoTb4.2,
-#' type = c("p", "a"), auto.key = TRUE)
+#' xyplot(resp ~ f1 | f2 + f3,
+#' groups = f4,
+#' data = NetoTb4.2,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb4.6.R b/R/NetoTb4.6.R
index db26e2d4..796b35d9 100644
--- a/R/NetoTb4.6.R
+++ b/R/NetoTb4.6.R
@@ -1,28 +1,31 @@
#' @name NetoTb4.6
-#' @title Fatorial Fracionado, Estudo da Resposta CatalÃtica do Mo(VI)
-#' @description Resultados de um experimento fatorial fracionado 2^(5-1)
-#' ,realizado para estudar a ação catalÃtica do Mo(VI).
+#' @title Fatorial Fracionado para o Estudo da Resposta CatalÃtica do
+#' Mo(VI)
+#' @description Resultados de um experimento fatorial fracionado
+#' \eqn{2^{5-1}}, realizado para estudar a ação catalÃtica do
+#' Mo(VI).
#' @format Um \code{data.frame} com 16 observações e 7 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+#' \item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+#' L\eqn{^{-1}}.}
#'
-#' \item{\code{f1}}{Fator 1: H2S04.}
-#'
-#' \item{\code{f2}}{Fator 2: KI.}
-#'
-#' \item{\code{f3}}{Fator 3: H2O2.}
-#'
-#' \item{\code{f4}}{Fator 4: Tempo.}
-#'
-#' \item{\code{f5}}{Fator 5: Fluxo.}
+#' \item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+#' L\eqn{^{-1}}.}
#'
-#' \item{resp}{Traços de molibdênio.}
+#' \item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+#' L\eqn{^{-1}}.}
+#'
+#' \item{\code{f4}}{Tempo: 90 e 130 segundos.}
+#'
+#' \item{\code{f5}}{Fluxo: 1.2 e 3.0 mL min\eqn{^{-1}}.}
+#'
+#' \item{resp}{Sinal analÃtico.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, BenÃcio de (2010), (Tabela 4.6, pág.177)
+#' @keywords FRAC
+#' @source NETO et al. (2010), tabela 4.6, pág. 177.
#' @examples
#'
#' library(lattice)
@@ -30,15 +33,10 @@
#' data(NetoTb4.6)
#' str(NetoTb4.6)
#'
-#' wireframe(resp ~ f1 + f2 + f4 | factor(f5),
-#' data = NetoTb4.6,
-#' scales = list(arrows = FALSE),
-#' col = "gray50",
-#' as.table = TRUE,
-#' col.contour = 1,
-#' type = "on",
-#' drape = TRUE,
-#' alpha.regions = 0.5,
-#' screen = list(z = 30, x = -60))
-#'
-NULL
\ No newline at end of file
+#' xyplot(resp ~ f1 + f2 + f3 + f4 + f5,
+#' type = c("p", "a"),
+#' outer = TRUE,
+#' data = NetoTb4.6,
+#' as.table = TRUE)
+#'
+NULL
diff --git a/data/NetoEx4.8.rda b/data/NetoEx4.8.rda
index ab60845052f03db6123b5208c02e9bb8484c0023..1f9cf9b2cb39d40b41ea5c97e14a347839ef17b5 100644
GIT binary patch
literal 206
zcmV;<05ShUT4*^jL0KkKSvvjjC;$MT|G@rsNB{r<JU}M_5<ss9oWMW;070+-xS}bM
zp^yO4rkVf)Y8cZ&pax9=k*0<wj1nlOn^5%t0iZMhdXyD<FjPwGAqQAtiiqbh!xC}D
zTndoanHbpu&AjyVr|fA8#!}cxh!om1HHyja;aV<<Y!JaMZ6W~Dy%+}c!3DRW76r+5
z{o<!4Qrn(Bp^7$~6huL*Tu&TeAT>Y~4Xza%N_62_xgo%b85oct0O`#(HvfycBAh5l
I9e(%}0P|K;<NyEw
literal 229
zcmV<B02=>7T4*^jL0KkKSwlc6cmM#m|G@wDNB{r<JU}M_5<ssfoWMW;070+-wV=~d
zG=?D4LuoX^XlV3<+Mv|b^)v*`rUVTz001&cG{8mzU=e@_XF(3l0z-`wNX(l7MuP-U
z!UCE|@ELG~3wYG%SpgDft*2oT3v9-yD$)@W(vo&&MGzuRLR3Kcbob!Ei3<P`K_LMq
zlq4twAU3jqw4nryTT;kCk5*87PLdbIZ{ID|x4)Jy3ZfT2c;#Ik7(ZAAE`df()GZTN
feNu2VOc>?cdw~D|bHxb+pW^OFrwS4XXaz3-clcGf
diff --git a/data/NetoTb4.10.rda b/data/NetoTb4.10.rda
index d104a238cdec3d512dddfee0da0263ee05faa04f..1da3e581062427d53e42d9d4baa04ca41e4b6e24 100644
GIT binary patch
literal 225
zcmV<703QEBT4*^jL0KkKSqQ@};s5~G|G@rsNB{s4eL#PK6hJ=*oPa<8070+-wX8JM
ziRwK=Lr+jVp`Z^@pdY0Mo~2Ec(=`A9000^Ql2J6%Odw=n2mk{^@=A)xjKZDXU~(x+
zhG;>d5FHfCn(XalupvTwx`D(nS+7Qxz7Xv-ctC<Pv1tGV6_^^g*Tat~xMf5L3s9K?
zEMOCW$|qbe69Pv@;?9K-Qe)n7lbSpfsFbv@iEUPAjkB0v-(J^ENL<u4o-&u}yDEv`
bJ?(n2p)yQ!$dE83AI02}P81{pFw3}rb{t$|
literal 243
zcmV<P01W>^T4*^jL0KkKS#$kyz5oF4|G@wDNB{s4f524%6hJ>GoPa<8070+-)waV#
zQ_5+h(hW4)j7=Ie01wK85}v81nt31qGypUJXe3nt$k1p3kTe<rk(GcUAX2&$hG$8X
zpiu5!!byS=i8M`YOy&v?0%IYT4lj8aU`%16-LcmCEUgt{K!{dpcZPxi85#|&{l}DX
z&5xWWrlCSNi8Lf|XbS+q#zq^#L=b9GQUn2Y4z=C&(NATP@R<aAs<h;1db?h#6ZhRX
tWnYNEmJw4UjF~0tpEWl)PIJohZ4kC0h!giPHk$_P7ji{7P>^%|alX%yWMBXQ
diff --git a/data/NetoTb4.12.rda b/data/NetoTb4.12.rda
index 22cbdff7b83db40fecf94242d66358a15972e227..9b4dbd3dd3a92a97ab1f9f271a258dd45eab448d 100644
GIT binary patch
literal 225
zcmV<703QEBT4*^jL0KkKS*9Pdm;eCSf585BNB{r<H3h$s6hJ=*oPa<8070+-wX8Hk
zCebtldXO>!qd}wcpwrZ*r>UlD00000XlNvqCQTY>G#G{xKn*fwX_XTqFhZUV6FgFt
z4A4plBJQb`F=tlE#t$!(Oax3kT98dhY2B9?AVNmmumA!XO%9ta;l{p}W<)3o5Saow
zunE9r6Rs5@fg{6gXF-t&Cx-1Hx-RlyQU&HtyL!5<x3dNP_e`;6Ftt8bc*<4P-BeFt
bd>eLTLncgR>H-9TgZR6WDZ+$>F#VLk_1{<y
literal 241
zcmV<N01p2`T4*^jL0KkKS+FP1ga82Wf589tNB{r<KZS%56hJ>GoPa<8070+-)hJ|<
zq|-;F8Vw$ZG5`nVK_;k_^$%0piJ)l67>0(84Gad1hJy$OfN7ur;6oaX_X&Y@7PP!F
zR4OkODJ^L-aq}FvOj}H8KypFn+#LWZK`6E|$5zzXtk58k^j;n$1OhU!JCpazlg`?*
z>%i=05Ql*y2@e(lKtfuyH9>?X*3CpE*!%GN_Ppq>4PDI<pDx`w>G2-dvjzS4MhY9^
rxGkjDJJ7m*ZJRE;o+?VHnIzK<^@JoNuX3V-#s3#_ML1B9uqV%i(Kcxl
diff --git a/data/NetoTb4.18.rda b/data/NetoTb4.18.rda
index afb103f06c80edbe42a343aba73580d609cfcade..2c4506934cf68c71d656b20846560658b376d7f0 100644
GIT binary patch
literal 387
zcmV-}0et>KT4*^jL0KkKSxVzGy#NCKe~AD0NB}?qKft%||6Knk-@pI>zyYuUc-1r_
zp#4P8RM61VMhT`sG&BQ2p^>4qj6zS<PxVj$X`lcA000000TPOv)hDFcGM=L&MhTD^
zFl|%CG-xnE>S+M~01gG!yabVA-i3n}0Mu7dTr@>Wg6m2#40fY$6gE4YcJee2ZeNeS
z?oMu6+ec1rocc2z9NbxP=e@C$E^PMl{j~bk1iAv<t+h}DI3g;grYb77?QteNnR91!
zSV<t3i7gUAJ|gyN>@@Y__;DzFkw}7^@KB&dRLNQj+$0rLUMy{aRfw8Zh=q!X;c>(O
z00000000E7YqkBs)ECwij=ffeVMUE4KQL$w{3va~L#qz-aS<eROp!O?v#V-_zVric
z`8`Kx!^67m{eM-8RK6ev5ZZF}GN$DUKx*fb63j^f6`7YGdJh2*uwngr-Y(1b;YH$r
h5^2)0fP@v0SR4mBfbpwhEQ>$l?ntK!5(!*pcc8ips*L~u
literal 293
zcmV+=0owjTT4*^jL0KkKS>)E!5dZ-Nf7t$aNB}?qJV1Br|J?rvoS;AeKmZ5;070+-
z^_yX-sy!Nj^n*h|pbVO5V^h=vK*SnqBo9zLrhotd0004#K_aNhFh)!W$$(7I1Yp!O
z#9}BQcK4G$lG%&|lENi``oL%f9u81g6dJXnz<hviq0R2A%|ergUqC3}f=EiX_EzU8
zmg<CDBzpzM6LvOKM_$oiLJfUCB!CLzN+-Vc9oK$7c5R%ApcurONi7TrScxFec)=jn
z4J88rBXb-K6fw=m53Z$#YDBLtbBH8bGxZcuAP!|k1-}TQ3?wLm40@&vf)nSQCTW*M
r)+jVhfr^JsNewi7FTp7s6OSs(hA&Z}Cuv(7Z@9aXDZ+$@CbpP}^UHL3
diff --git a/data/NetoTb4.2.rda b/data/NetoTb4.2.rda
index 461728aae85de62bcc17fa9ced02ff2b151cd316..9c7ce0f0f240d718e35b105051cb42496f3c4d78 100644
GIT binary patch
literal 234
zcmV<G02Tj2T4*^jL0KkKSz8-8VgLZo|IGe2NChAPJOUH}7eGG;{FFcl03c8xKmo7-
zx~wvYk3;|iN2Fu{k)ubAP>iY!ni!fg3<7C^GB6M%kw(<h(EtDdXaE5G1n&x?1R0YQ
z*pMcAPYA>&i>HH;$`zS7FpHX7RX@Htw(oQLRF9YtXoAQCnsSNC1dukUiW?;rH)Db%
zL99aw3sVRj43w{NKr%^lmC*$dV_O8ClG@dIQmU1UJIwgSb|N5z81~ABNNxi{b{e-Z
ku3UP;<r_+GLgJ{o2?0U?2w(#e2`T(t$rRy2L2PW{h_R1Xvj6}9
literal 269
zcmV+o0rLJrT4*^jL0KkKSv!)0$p8TN|IGjY$ORw)JOUH}7eGHJ{FFcl03c8xKmo7-
z)s!@fG;KzYNv4LHG#;P<paAiz4NX(^MnKw{VrXFuhM0y3$T0#%MKth)FaQWJX)u`3
zn^B*D444T70;EVL2|@~hW`r67QUdB`2aJYxa++5iKrGzt9d)S$yQr)sNeD4BuFu}u
z&zf594>z!g7PCnZOz71F?Ie+fi%Tfk9^4Tg?L;LohS&gWVh91CmKY6yz(*G=As8dd
z2#Gm&>%q$8LlQjGJheqW50RLAp>Nv<LIRyY7v_2iDq+Z}7l%C1!0kGNxf$xwk&PsW
Tkty13o(0^IP81{#<e>6EB$#XM
diff --git a/man/NetoEx4.8.Rd b/man/NetoEx4.8.Rd
index aa92aba1..11899c77 100644
--- a/man/NetoEx4.8.Rd
+++ b/man/NetoEx4.8.Rd
@@ -2,13 +2,28 @@
% Please edit documentation in R/NetoEx4.8.R
\name{NetoEx4.8}
\alias{NetoEx4.8}
-\title{Otimização de Reação Orgânica}
+\title{Otimização de Reação Orgânica com Fatorial Fracionado}
+\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{f1}}{Temperatura: ambiente e refluxo.}
+
+\item{\code{f2}}{Base: \eqn{K_2CO_3/NaOH} e \eqn{K_2CO_3}.}
+
+\item{\code{f3}}{Solvente: \eqn{CH_2Cl_2} e \eqn{CH_3CN}.}
+
+\item{\code{f4}}{Catalisador: nenhum e TEBA.}
+
+\item{\code{resp}}{Rendimento da reação (\%).}
+
+}}
\source{
-Barros Neto, BenÃcio de (2010), (ExercÃcio 4.8, pág.176)
+NETO et al. (2010), ExercÃcio 4.8, pág. 176.
}
\description{
-Resultados de um experimento fatorial 2^4 cujo objetivo,
- era a otimização de uma reação orgânic.
+Resultados de um experimento fatorial \eqn{2^4} com uma
+ fração 1/2 cujo objetivo era a otimização de uma reação orgânica.
}
\examples{
@@ -17,9 +32,9 @@ library(lattice)
data(NetoEx4.8)
str(NetoEx4.8)
-xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+xyplot(rend ~ f1 | f2, groups = f4, data = NetoEx4.8,
type = c("p", "a"), auto.key = TRUE)
}
-\keyword{DBC}
+\keyword{FRAC}
diff --git a/man/NetoTb4.10.Rd b/man/NetoTb4.10.Rd
index c1ff282f..a6bd425f 100644
--- a/man/NetoTb4.10.Rd
+++ b/man/NetoTb4.10.Rd
@@ -2,60 +2,52 @@
% Please edit documentation in R/NetoTb4.10.R
\name{NetoTb4.10}
\alias{NetoTb4.10}
-\title{Saque de um Tenista amador}
+\title{Saque de um Tenista Amador}
\format{Um \code{data.frame} com 8 observações e 9 variáveis, em que
\describe{
-\item{\code{ensaio}}{Número correspondente ao ensaio.}
+\item{\code{A}}{Técnica: chapada e cortada.}
-\item{\code{f1}}{Fator 1: técnica.}
+\item{\code{B}}{Frequência: baixa e alta.}
-\item{\code{f2}}{Fator 2: frequência.}
+\item{\code{C}}{Hora: dia e noite.}
-\item{\code{f3}}{Fator 3: hora.}
+\item{\code{D}}{Revestimento: saibro e concreto.}
-\item{\code{f4}}{Fator 4: revestimento.}
+\item{\code{E}}{Lado: direito e esquerdo.}
-\item{\code{f5}}{Fator 5: lado.}
+\item{\code{F}}{Camisa: com e sem.}
-\item{\code{f6}}{Fator 6: camisa.}
+\item{\code{G}}{Raquete: média e grande.}
-\item{\code{f7}}{Fator 7: raquete.}
-
-\item{acert}{percentual de acertos.}
+\item{\code{acert}}{Percentual de acertos do tenista.}
}}
\source{
-Barros Neto, BenÃcio de (2010), (Tabela 4.10, pág.186)
+NETO et al. (2010), Tabela 4.10, pág. 186.
}
\description{
-Planejamento fracionário saturado de 8 ensaios para
- verificar como sete variáveis afetam o saque de um tenista amador
+Planejamento fracionário saturado de 8 ensaios para
+ verificar como sete variáveis afetam o saque de um tenista
+ amador. As 8 corridas são um ensaio completo \eqn{2^3} para os 3
+ primeiros fatores. Foram usadas as relações de definição ABD,
+ ACE, BDC e ABCG.
}
\examples{
data(NetoTb4.10)
str(NetoTb4.10)
+NetoTb4.10
-par(mfrow = c(2,2))
-
-plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
-
-plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
-
-plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+library(lattice)
-plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+xyplot(acert ~ A + B + C + D + E + F + G,
+ outer = TRUE,
+ data = NetoTb4.10,
+ as.table = TRUE,
+ type = c("p", "a"))
}
-\keyword{DBC}
+\keyword{FRAC}
diff --git a/man/NetoTb4.12.Rd b/man/NetoTb4.12.Rd
index cb64ddde..da225990 100644
--- a/man/NetoTb4.12.Rd
+++ b/man/NetoTb4.12.Rd
@@ -2,62 +2,50 @@
% Please edit documentation in R/NetoTb4.12.R
\name{NetoTb4.12}
\alias{NetoTb4.12}
-\title{Saque de um Tenista amador}
+\title{Saque de um Tenista Amador}
\format{Um \code{data.frame} com 8 observações e 9 variáveis, em que
\describe{
-\item{\code{ensaio}}{Número correspondente ao ensaio.}
+\item{\code{A}}{Técnica: chapada e cortada.}
-\item{\code{f1}}{Fator 1: técnica.}
+\item{\code{B}}{Frequência: baixa e alta.}
-\item{\code{f2}}{Fator 2: frequência.}
+\item{\code{C}}{Hora: dia e noite.}
-\item{\code{f3}}{Fator 3: hora.}
+\item{\code{D}}{Revestimento: saibro e concreto.}
-\item{\code{f4}}{Fator 4: revestimento.}
+\item{\code{E}}{Lado: direito e esquerdo.}
-\item{\code{f5}}{Fator 5: lado.}
+\item{\code{F}}{Camisa: com e sem.}
-\item{\code{f6}}{Fator 6: camisa.}
+\item{\code{G}}{Raquete: média e grande.}
-\item{\code{f7}}{Fator 7: raquete.}
-
-\item{acert}{percentual de acertos.}
+\item{\code{acert}}{Percentual de acertos do tenista.}
}}
\source{
-Barros Neto, BenÃcio de (2010), (Tabela 4.12, pág.189)
+NETO et al. (2010), Tabela 4.10, pág. 186.
}
\description{
-Planejamento fracionário saturado de 8 ensaios para
- verificar como sete variáveis afetam o saque de um tenista amador
- , idêntico à tabela 4.10, porém com os sinais do fator 5
- invertidos.
+Planejamento fracionário saturado de 8 ensaios para
+ verificar como sete variáveis afetam o saque de um tenista
+ amador, idêntico à \code{link{tabela 4.10}}, porém com os sinais
+ do fator E invertidos.
}
\examples{
data(NetoTb4.12)
str(NetoTb4.12)
-par(mfrow = c(2,2))
-
-plot(acert ~ f1, data = NetoTb4.12, xlab = "Técnica",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f1, data = NetoTb4.12), col = 2)
-
-plot(acert ~ f2, data = NetoTb4.12, xlab = "Frequência",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f2, data = NetoTb4.12), col = 2)
-
-plot(acert ~ f6, data = NetoTb4.12, xlab = "Camisa",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f6, data = NetoTb4.12), col = 2)
+library(lattice)
-plot(acert ~ f7, data = NetoTb4.12, xlab = "Raquete",
- ylab = "Acertos (\%)")
-abline(lm(acert ~ f7, data = NetoTb4.12), col = 2)
+xyplot(acert ~ A + B + C + D + E + F + G,
+ outer = TRUE,
+ data = NetoTb4.12,
+ as.table = TRUE,
+ type = c("p", "a"))
}
-\keyword{DBC}
+\keyword{FRAC}
diff --git a/man/NetoTb4.18.Rd b/man/NetoTb4.18.Rd
index 6f99c0e2..f098b1e6 100644
--- a/man/NetoTb4.18.Rd
+++ b/man/NetoTb4.18.Rd
@@ -2,74 +2,51 @@
% Please edit documentation in R/NetoTb4.18.R
\name{NetoTb4.18}
\alias{NetoTb4.18}
-\title{Técnicas de Taguchi}
+\title{Planejamento de Taguchi}
\format{Um \code{data.frame} com 8 observações e 8 variáveis, em que
\describe{
-\item{\code{F}}{Farinha.}
+\item{\code{Farin}}{Farinha.}
-\item{\code{G}}{Gordura.}
+\item{\code{Gordu}}{Gordura.}
-\item{\code{A}}{Açúcar.}
+\item{\code{Acucar}}{Açúcar.}
-\item{\code{O}}{Ovos.}
+\item{\code{Ovos}}{Ovos.}
-\item{\code{f1}}{Temperatura.}
+\item{\code{Temper}}{Temperatura.}
-\item{\code{f2}}{Leite.}
+\item{\code{Leite}}{Leite.}
-\item{\code{f3}}{Tempo.}
+\item{\code{Tempo}}{Tempo.}
-\item{\code{f4}}{Tempo + Leite + Temperatura.}
+\item{\code{textura}}{Textura do bolo.}
}}
\source{
-Barros Neto, BenÃcio de (2010), (Tabela 4.18, pág.196)
+NETO et al. (2010), tabela 4.18, pág. 196.
}
\description{
-Planejamento de Taguchi para o desenvolvimento de uma
- mistura de bolo.'
+Planejamento de Taguchi para o desenvolvimento de uma
+ mistura de bolo.
}
\examples{
+library(lattice)
+
data(NetoTb4.18)
str(NetoTb4.18)
-par(mfrow = c(2,4))
-
-plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra",
- xlab = "Farinha")
-abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra",
- xlab = "Gordura")
-abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra",
- xlab = "Açúcar")
-abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra",
- xlab = "Ovos")
-abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra",
- xlab = "Temperatura")
-abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra",
- xlab = "Leite")
-abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
-
-plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra",
- xlab = "Tempo")
-abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+aggregate(textura ~ Ovos + Acucar + Gordu + Farin,
+ data = NetoTb4.18,
+ FUN = function(y) c(m = mean(y), s = sd(y)))
-plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra",
- xlab = "Temperatura + Leite + Tempo")
-abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+xyplot(textura ~ Ovos + Acucar + Gordu + Farin + Tempo + Temper + Leite,
+ outer = TRUE,
+ data = NetoTb4.18, type = c("p", "a"),
+ as.table = TRUE)
}
-\keyword{DBC}
+\keyword{Taguchi}
diff --git a/man/NetoTb4.2.Rd b/man/NetoTb4.2.Rd
index e96d231d..bf233c93 100644
--- a/man/NetoTb4.2.Rd
+++ b/man/NetoTb4.2.Rd
@@ -7,25 +7,26 @@
\describe{
-\item{\code{ensaio}}{Número do ensaio correspondente.}
+\item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+ L\eqn{^{-1}}.}
-\item{\code{f1}}{Fator 1: H2S04.}
+\item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+ L\eqn{^{-1}}.}
-\item{\code{f2}}{Fator 2: KI.}
+\item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+ L\eqn{^{-1}}.}
-\item{\code{f3}}{Fator 3: H2O2.}
+\item{\code{f4}}{Tempo: 90 e 130 segundos.}
-\item{\code{f4}}{Fator 4: Tempo.}
-
-\item{resp}{Traços de molibdênio.}
+\item{resp}{Sinal analÃtico.}
}}
\source{
-Barros Neto, BenÃcio de (2010), (Tabela 4.2, pág.167)
+NETO et al. (2010), tabela 4.2, pág. 167.
}
\description{
-Resultados de um experimento fatorial 2^4 completo,
- realizado para estudar a ação catalÃtica do Mo(VI).
+Resultados de um experimento fatorial \eqn{2^4}
+ completo, realizado para estudar a resposta catalÃtica do Mo(VI).
}
\examples{
@@ -34,9 +35,12 @@ library(lattice)
data(NetoTb4.2)
str(NetoTb4.2)
-xyplot(resp ~ f1 | f2 + f3, groups = f4, data = NetoTb4.2,
- type = c("p", "a"), auto.key = TRUE)
+xyplot(resp ~ f1 | f2 + f3,
+ groups = f4,
+ data = NetoTb4.2,
+ type = c("p", "a"),
+ auto.key = TRUE)
}
-\keyword{DBC}
+\keyword{FRAC}
diff --git a/man/NetoTb4.6.Rd b/man/NetoTb4.6.Rd
index 2523126d..3dc0ef55 100644
--- a/man/NetoTb4.6.Rd
+++ b/man/NetoTb4.6.Rd
@@ -2,32 +2,35 @@
% Please edit documentation in R/NetoTb4.6.R
\name{NetoTb4.6}
\alias{NetoTb4.6}
-\title{Fatorial Fracionado, Estudo da Resposta CatalÃtica do Mo(VI)}
+\title{Fatorial Fracionado para o Estudo da Resposta CatalÃtica do
+ Mo(VI)}
\format{Um \code{data.frame} com 16 observações e 7 variáveis, em que
\describe{
-\item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+\item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+ L\eqn{^{-1}}.}
-\item{\code{f1}}{Fator 1: H2S04.}
+\item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+ L\eqn{^{-1}}.}
-\item{\code{f2}}{Fator 2: KI.}
+\item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+ L\eqn{^{-1}}.}
-\item{\code{f3}}{Fator 3: H2O2.}
+\item{\code{f4}}{Tempo: 90 e 130 segundos.}
-\item{\code{f4}}{Fator 4: Tempo.}
+\item{\code{f5}}{Fluxo: 1.2 e 3.0 mL min\eqn{^{-1}}.}
-\item{\code{f5}}{Fator 5: Fluxo.}
-
-\item{resp}{Traços de molibdênio.}
+\item{resp}{Sinal analÃtico.}
}}
\source{
-Barros Neto, BenÃcio de (2010), (Tabela 4.6, pág.177)
+NETO et al. (2010), tabela 4.6, pág. 177.
}
\description{
-Resultados de um experimento fatorial fracionado 2^(5-1)
- ,realizado para estudar a ação catalÃtica do Mo(VI).
+Resultados de um experimento fatorial fracionado
+ \eqn{2^{5-1}}, realizado para estudar a ação catalÃtica do
+ Mo(VI).
}
\examples{
@@ -36,17 +39,12 @@ library(lattice)
data(NetoTb4.6)
str(NetoTb4.6)
-wireframe(resp ~ f1 + f2 + f4 | factor(f5),
- data = NetoTb4.6,
- scales = list(arrows = FALSE),
- col = "gray50",
- as.table = TRUE,
- col.contour = 1,
- type = "on",
- drape = TRUE,
- alpha.regions = 0.5,
- screen = list(z = 30, x = -60))
+xyplot(resp ~ f1 + f2 + f3 + f4 + f5,
+ type = c("p", "a"),
+ outer = TRUE,
+ data = NetoTb4.6,
+ as.table = TRUE)
}
-\keyword{DBC}
+\keyword{FRAC}
--
GitLab