diff --git a/R/NetoTb3A.9.R b/R/NetoTb3A.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..87463877c43a40f299cf82cac08c748281bf8106
--- /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 0000000000000000000000000000000000000000..587acdba3ba5f9bc8e2ae42df00339c2f7ad15db
--- /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
Binary files /dev/null and b/data/NetoTb3A.9.rda differ
diff --git a/man/NetoTb3A.9.Rd b/man/NetoTb3A.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..32b245490bcba6ea24d828ffbbe864bc38968f53
--- /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}
+