diff --git a/R/NetoTb3.3.R b/R/NetoTb3.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..f4beb05ddc661b0f901d9e612447a41b3aa9a06e
--- /dev/null
+++ b/R/NetoTb3.3.R
@@ -0,0 +1,48 @@
+#' @name NetoTb3.3
+#' @title Um planejamento fatorial 2^3
+#' @description Resultado de um planejamento fatorial 2^3
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio.}
+#'
+#' \item{\code{f1}}{Níveis do fator temperatura.}
+#'
+#' \item{\code{f2}}{Níveis do fator catalisador.}
+#' 
+#' \item{\code{f3}}{Níveis do fator concentração.}
+#' 
+#' \item{\code{rend}}{Percentual de rendimento observado.}
+#' 
+#' \item{\code{ord}}{Ordem da realização do estudo.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+#' @examples
+#'
+#' data(NetoTb3.3)
+#' str(NetoTb3.3)
+#'
+#' par(mfrow=c(1,3))
+#'
+#' attach(NetoTb3.3)
+#' 
+#' interaction.plot(f1, f2, rend,
+#'                  ylab = "Rendimento Médio",
+#'                  main = "Interação entre os Fatores 1 e 2",
+#'                  col = "blue")
+#'
+#' interaction.plot(f1, f3, rend,
+#'                  ylab = "Rendimento Médio",
+#'                  main = "Interação entre os Fatores 1 e 3",
+#'                  col = "green")
+#'
+#' interaction.plot(f2, f3, rend,
+#'                  ylab = "Rendimento Médio",
+#'                  main = "Interação entre os Fatores 2 e 3",
+#'                  col = "red")
+#' 
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb3.3.txt b/data-raw/NetoTb3.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e115b35edf290b8e39cd33460c71e323ac6c3774
--- /dev/null
+++ b/data-raw/NetoTb3.3.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	rend	ord
+1	-1	-1	-1	56	(7)
+2	1	-1	-1	85	(9)
+3	-1	1	-1	49	(11)
+4	1	1	-1	64	(2)
+5	-1	-1	1	65	(13)
+6	1	-1	1	92	(6)
+7	-1	1	1	57	(14)
+8	1	1	1	70	(8)
+9	-1	-1	-1	52	(12)
+10	1	-1	-1	88	(10)
+11	-1	1	-1	47	(15)
+12	1	1	-1	62	(1)
+13	-1	-1	1	61	(5)
+14	1	-1	1	95	(16)
+15	-1	1	1	60	(3)
+16	1	1	1	74	(4)
diff --git a/data/NetoTb3.3.rda b/data/NetoTb3.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e3d98e6edcd78cde83228568f39f2e9b806d3689
Binary files /dev/null and b/data/NetoTb3.3.rda differ
diff --git a/man/NetoTb3.3.Rd b/man/NetoTb3.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ba2ef129e847f08a146ce7f57e5dd6936fd3f64c
--- /dev/null
+++ b/man/NetoTb3.3.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3.3.R
+\name{NetoTb3.3}
+\alias{NetoTb3.3}
+\title{Um planejamento fatorial 2^3}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio.}
+
+\item{\code{f1}}{Níveis do fator temperatura.}
+
+\item{\code{f2}}{Níveis do fator catalisador.}
+
+\item{\code{f3}}{Níveis do fator concentração.}
+
+\item{\code{rend}}{Percentual de rendimento observado.}
+
+\item{\code{ord}}{Ordem da realização do estudo.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+}
+\description{
+Resultado de um planejamento fatorial 2^3
+}
+\examples{
+
+data(NetoTb3.3)
+str(NetoTb3.3)
+
+par(mfrow=c(1,3))
+
+attach(NetoTb3.3)
+
+interaction.plot(f1, f2, rend,
+                 ylab = "Rendimento Médio",
+                 main = "Interação entre os Fatores 1 e 2",
+                 col = "blue")
+
+interaction.plot(f1, f3, rend,
+                 ylab = "Rendimento Médio",
+                 main = "Interação entre os Fatores 1 e 3",
+                 col = "green")
+
+interaction.plot(f2, f3, rend,
+                 ylab = "Rendimento Médio",
+                 main = "Interação entre os Fatores 2 e 3",
+                 col = "red")
+
+
+}
+\keyword{DBC}
+