diff --git a/R/NetoTb3.6.R b/R/NetoTb3.6.R
new file mode 100644
index 0000000000000000000000000000000000000000..7ce37ae4b13ffaeca7ac1a9d7578771bfc874ba7
--- /dev/null
+++ b/R/NetoTb3.6.R
@@ -0,0 +1,34 @@
+#' @name NetoTb3.6
+#' @title Influência de quatro fatores no rendimento de uma reação
+#' @description Resultado de um fatorial 2^4
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator temperatura.}
+#' 
+#' \item{\code{f2}}{Fator catalisador.}
+#' 
+#' \item{\code{f3}}{Fator concentração.}
+#' 
+#' \item{\code{f1}}{Fator PH.}
+#'
+#' \item{res}{Resposta.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3.6)
+#' str(NetoTb3.6)
+#'
+#' xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+#'        data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
+
+#'
+NULL
diff --git a/data-raw/NetoTb3.6.txt b/data-raw/NetoTb3.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b750f0fafe1788de5c69a9bbd1f0137126e46115
--- /dev/null
+++ b/data-raw/NetoTb3.6.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	f4	res
+1	-1	-1	-1	-1	54
+2	+1	-1	-1	-1	85
+3	-1	+1	-1	-1	49
+4	+1	+1	-1	-1	62
+5	-1	-1	+1	-1	64
+6	+1	-1	+1	-1	94
+7	-1	+1	+1	-1	56
+8	+1	+1	+1	-1	70
+9	-1	-1	-1	+1	52
+10	+1	-1	-1	+1	87
+11	-1	+1	-1	+1	49
+12	+1	+1	-1	+1	64
+13	-1	-1	+1	+1	64
+14	+1	-1	+1	+1	94
+15	-1	+1	+1	+1	58
+16	+1	+1	+1	+1	73
diff --git a/data/NetoTb3.6.rda b/data/NetoTb3.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d9812838162bedcf9b19e21ba500aa221e646f06
Binary files /dev/null and b/data/NetoTb3.6.rda differ
diff --git a/man/NetoTb3.6.Rd b/man/NetoTb3.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e7f1bc13bb5d4353371253b0de631eae958534ea
--- /dev/null
+++ b/man/NetoTb3.6.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3.6.R
+\name{NetoTb3.6}
+\alias{NetoTb3.6}
+\title{Influência de quatro fatores no rendimento de uma reação}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio correspondente.}
+
+\item{\code{f1}}{Fator temperatura.}
+
+\item{\code{f2}}{Fator catalisador.}
+
+\item{\code{f3}}{Fator concentração.}
+
+\item{\code{f1}}{Fator PH.}
+
+\item{res}{Resposta.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+}
+\description{
+Resultado de um fatorial 2^4
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3.6)
+str(NetoTb3.6)
+
+xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+       data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
+
+}
+\keyword{DBC}
+