From 1c1c82f1ff92ec38e64c3e7adc9cb3bf902e50cf Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 12 Sep 2016 16:52:29 -0300
Subject: [PATCH] Adiciona Tabela 3A.9

---
 R/NetoTb3A.9.R          |  44 ++++++++++++++++++++++++++++++++++
 data-raw/NetoTb3A.9.txt |  10 ++++++++
 data/NetoTb3A.9.rda     | Bin 0 -> 287 bytes
 man/NetoTb3A.9.Rd       |  52 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 106 insertions(+)
 create mode 100644 R/NetoTb3A.9.R
 create mode 100644 data-raw/NetoTb3A.9.txt
 create mode 100644 data/NetoTb3A.9.rda
 create mode 100644 man/NetoTb3A.9.Rd

diff --git a/R/NetoTb3A.9.R b/R/NetoTb3A.9.R
new file mode 100644
index 00000000..87463877
--- /dev/null
+++ b/R/NetoTb3A.9.R
@@ -0,0 +1,44 @@
+#' @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
+#'
+#' \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{resp}}{Resposta, densidade ótica que mede a intensidade
+#'     da luz refletida pela roupa lavada.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (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",
+#'                                   col = "green"))
+#'
+#' with(NetoTb3A.9, interaction.plot(A, C, resp,
+#'                                   main = "Interação entre A e C",
+#'                                   col = "blue"))
+#'
+#'  with(NetoTb3A.9, interaction.plot(B, C, resp,
+#'                                    main = "Interação entre B e C",
+#'                                    col = "red"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb3A.9.txt b/data-raw/NetoTb3A.9.txt
new file mode 100644
index 00000000..587acdba
--- /dev/null
+++ b/data-raw/NetoTb3A.9.txt
@@ -0,0 +1,10 @@
+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
+				
diff --git a/data/NetoTb3A.9.rda b/data/NetoTb3A.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c0190b12bd8c7b285ec563b82600428b95805084
GIT binary patch
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!

literal 0
HcmV?d00001

diff --git a/man/NetoTb3A.9.Rd b/man/NetoTb3A.9.Rd
new file mode 100644
index 00000000..32b24549
--- /dev/null
+++ b/man/NetoTb3A.9.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% 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
+
+\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{resp}}{Resposta, densidade ótica que mede a intensidade
+    da luz refletida pela roupa lavada.}
+
+}}
+\source{
+Barros Neto, Benício de (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.
+}
+\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",
+                                  col = "green"))
+
+with(NetoTb3A.9, interaction.plot(A, C, resp,
+                                  main = "Interação entre A e C",
+                                  col = "blue"))
+
+ with(NetoTb3A.9, interaction.plot(B, C, resp,
+                                   main = "Interação entre B e C",
+                                   col = "red"))
+
+}
+\keyword{DBC}
+
-- 
GitLab