diff --git a/R/NetoTb3A.6.R b/R/NetoTb3A.6.R
new file mode 100644
index 0000000000000000000000000000000000000000..3e8d4437d1682e6a44b06ef4b8cbd12d2177d216
--- /dev/null
+++ b/R/NetoTb3A.6.R
@@ -0,0 +1,37 @@
+#' @name NetoTb3A.6
+#' @title Desempenho de Eletrodos
+#' @description O planejamento em fatorial foi usado para investigar 
+#'     como cinco fatores influenciam o desempenho de eletrodos na 
+#'     eletroredução de nitrobenzeno.
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, solução precursora.}
+#' 
+#' \item{\code{f2}}{Fator 2, número de camadas.}
+#' 
+#' \item{\code{f3}}{Fator 3, temperatura.}
+#' 
+#' \item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
+#' 
+#' \item{\code{f5}}{Fator 5, velocidade de varredura.}
+#' 
+#' \item{\code{des}}{Desempenho.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+#' @examples
+#'
+#' library(lattice)
+#' 
+#' data(NetoTb3A.6)
+#' str(NetoTb3A.6)
+#'
+#' xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
+#'        data = NetoTb3A.6, type = c("p", "a"))
+#'                                    
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb3A.6.txt b/data-raw/NetoTb3A.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..5be1295865f7a4840effe12cec89e04d0d3ac1e2
--- /dev/null
+++ b/data-raw/NetoTb3A.6.txt
@@ -0,0 +1,33 @@
+ens	f1	f2	f3	f4	f5	des
+1	-1	-1	-1	-1	-1	2.02
+2	+1	-1	-1	-1	-1	2.03
+3	-1	+1	-1	-1	-1	4.71
+4	+1	+1	-1	-1	-1	7.01
+5	-1	-1	+1	-1	-1	1.71
+6	+1	-1	+1	-1	-1	2.10
+7	-1	+1	+1	-1	-1	4.36
+8	+1	+1	+1	-1	-1	3.71
+9	-1	-1	-1	+1	-1	7.15
+10	+1	-1	-1	+1	-1	4.87
+11	-1	+1	-1	+1	-1	8.96
+12	+1	+1	-1	+1	-1	12.25
+13	-1	-1	+1	+1	-1	4.28
+14	+1	-1	+1	+1	-1	3.13
+15	-1	+1	+1	+1	-1	9.42
+16	+1	+1	+1	+1	-1	8.68
+17	-1	-1	-1	-1	+1	1.7
+18	+1	-1	-1	-1	+1	1.39
+19	-1	+1	-1	-1	+1	4.5
+20	+1	+1	-1	-1	+1	5.92
+21	-1	-1	+1	-1	+1	0.73
+22	+1	-1	+1	-1	+1	0.77
+23	-1	+1	+1	-1	+1	3.2
+24	+1	+1	+1	-1	+1	3.08
+25	-1	-1	-1	+1	+1	2.51
+26	+1	-1	-1	+1	+1	1.82
+27	-1	+1	-1	+1	+1	5.6
+28	+1	+1	-1	+1	+1	7.61
+29	-1	-1	+1	+1	+1	1.55
+30	+1	-1	+1	+1	+1	1.05
+31	-1	+1	+1	+1	+1	4.25
+32	+1	+1	+1	+1	+1	4.38
diff --git a/data/NetoTb3A.6.rda b/data/NetoTb3A.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7fe77d4a638504ef13e58a9f829104d308c852ff
Binary files /dev/null and b/data/NetoTb3A.6.rda differ
diff --git a/man/NetoTb3A.6.Rd b/man/NetoTb3A.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b5f9ad35856f87de34d2ae2ea79b735493b5fd64
--- /dev/null
+++ b/man/NetoTb3A.6.Rd
@@ -0,0 +1,45 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.6.R
+\name{NetoTb3A.6}
+\alias{NetoTb3A.6}
+\title{Desempenho de Eletrodos}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, solução precursora.}
+
+\item{\code{f2}}{Fator 2, número de camadas.}
+
+\item{\code{f3}}{Fator 3, temperatura.}
+
+\item{\code{f4}}{Fator 4, concentração de nitrobenzeno.}
+
+\item{\code{f5}}{Fator 5, velocidade de varredura.}
+
+\item{\code{des}}{Desempenho.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.6, pág.156)
+}
+\description{
+O planejamento em fatorial foi usado para investigar 
+    como cinco fatores influenciam o desempenho de eletrodos na 
+    eletroredução de nitrobenzeno.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.6)
+str(NetoTb3A.6)
+
+xyplot(des ~ f1 | f2 * f3, groups = interaction(f4, f5),
+       data = NetoTb3A.6, type = c("p", "a"))
+                                   
+}
+\keyword{DBC}
+