diff --git a/R/NetoTb3A.2.R b/R/NetoTb3A.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..103bfbdb6115793bed7834e6eeea2bba2a8cc189
--- /dev/null
+++ b/R/NetoTb3A.2.R
@@ -0,0 +1,51 @@
+#' @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 que minimizam a diferença de voltagem (delta). 
+#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, concentração.}
+#' 
+#' \item{\code{f2}}{Fator 2, ph.}
+#' 
+#' \item{\code{f3}}{Fator 3, sílica modificada.}
+#' 
+#' \item{\code{delta}}{diferença de voltagem..}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (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 = "Interação entre 
+#'                                   Concentração e PH",
+#'                                   col = "green"))
+#'
+#' with(NetoTb3A.2, interaction.plot(f1, f3, delta,
+#'                                   xlab = "Concentração", 
+#'                                   ylab = "Sílica Modificada",
+#'                                   main = "Interação entre 
+#'                                   Concentração e Sílica Modificada",
+#'                                   col = "blue"))
+#'
+#'  with(NetoTb3A.2, interaction.plot(f2, f3, delta,
+#'                                    xlab = "PH", 
+#'                                    ylab = "Sílica Modificada",
+#'                                    main = "Interação entre 
+#'                                    PH e Sílica Modificada",
+#'                                    col = "red"))
+#'                                    
+NULL
diff --git a/data-raw/NetoTb3A.2.txt b/data-raw/NetoTb3A.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..74acb4b57120661f36949b209b3a4fcd072fc3b8
--- /dev/null
+++ b/data-raw/NetoTb3A.2.txt
@@ -0,0 +1,9 @@
+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	
diff --git a/data/NetoTb3A.2.rda b/data/NetoTb3A.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5cdad28a4b74fcfb10e67c57832c0fdea99f1289
Binary files /dev/null and b/data/NetoTb3A.2.rda differ
diff --git a/man/NetoTb3A.2.Rd b/man/NetoTb3A.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..89c3251ae2b1d81ca7762ceeb1bf33efdeb03100
--- /dev/null
+++ b/man/NetoTb3A.2.Rd
@@ -0,0 +1,59 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.2.R
+\name{NetoTb3A.2}
+\alias{NetoTb3A.2}
+\title{Voltametria Cíclica do Azul de Metileno}
+\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, concentração.}
+
+\item{\code{f2}}{Fator 2, ph.}
+
+\item{\code{f3}}{Fator 3, sílica modificada.}
+
+\item{\code{delta}}{diferença de voltagem..}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.2, pág.147)
+}
+\description{
+As propriedades eletroquímicas do azul de metileno foram
+    investigadas com o objetivo de determinar as condições 
+    experimentais que minimizam a diferença de voltagem (delta).
+}
+\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 = "Interação entre 
+                                  Concentração e PH",
+                                  col = "green"))
+
+with(NetoTb3A.2, interaction.plot(f1, f3, delta,
+                                  xlab = "Concentração", 
+                                  ylab = "Sílica Modificada",
+                                  main = "Interação entre 
+                                  Concentração e Sílica Modificada",
+                                  col = "blue"))
+
+ with(NetoTb3A.2, interaction.plot(f2, f3, delta,
+                                   xlab = "PH", 
+                                   ylab = "Sílica Modificada",
+                                   main = "Interação entre 
+                                   PH e Sílica Modificada",
+                                   col = "red"))
+                                   
+}
+\keyword{DBC}
+