diff --git a/R/NetoTb4.2.R b/R/NetoTb4.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..9ffd810a17c7a4123ba5e9f7258b6361162ea0f4
--- /dev/null
+++ b/R/NetoTb4.2.R
@@ -0,0 +1,34 @@
+#' @name NetoTb4.2
+#' @title Ação Catalítica do Mo(VI)
+#' @description Resultados de um experimento fatorial 2^4 completo, 
+#'     realizado para estudar a ação catalítica do Mo(VI).
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1: H2S04.}
+#' 
+#' \item{\code{f2}}{Fator 2: KI.}
+#' 
+#' \item{\code{f3}}{Fator 3: H2O2.}
+#' 
+#' \item{\code{f4}}{Fator 4: Tempo.}
+#'
+#' \item{resp}{Traços de molibdênio.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.2, pág.167)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb4.2)
+#' str(NetoTb4.2)
+#'
+#' xyplot(resp ~ f1 | f2 + f3, groups = f4, data = NetoTb4.2,
+#'        type = c("p", "a"), auto.key = TRUE)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.2.txt b/data-raw/NetoTb4.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c9404e27cdecf7d02f63c39ee3ac3888e0dcbbaa
--- /dev/null
+++ b/data-raw/NetoTb4.2.txt
@@ -0,0 +1,17 @@
+ensaio	f1	f2	f3	f4	resp
+1	-1	-1	-1	-1	52
+2	+1	-1	-1	-1	61
+3	-1	+1	-1	-1	124
+4	+1	+1	-1	-1	113
+5	-1	-1	+1	-1	85
+6	+1	-1	+1	-1	66
+7	-1	+1	+1	-1	185
+8	+1	+1	+1	-1	192
+9	-1	-1	-1	+1	98
+10	+1	-1	-1	+1	86
+11	-1	+1	-1	+1	201
+12	+1	+1	-1	+1	194
+13	-1	-1	+1	+1	122
+14	+1	-1	+1	+1	139
+15	-1	+1	+1	+1	289
+16	+1	+1	+1	+1	286
diff --git a/data/NetoTb4.2.rda b/data/NetoTb4.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..461728aae85de62bcc17fa9ced02ff2b151cd316
Binary files /dev/null and b/data/NetoTb4.2.rda differ
diff --git a/man/NetoTb4.2.Rd b/man/NetoTb4.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e96d231d7011211bf0b02578b42c9e5884845f72
--- /dev/null
+++ b/man/NetoTb4.2.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.2.R
+\name{NetoTb4.2}
+\alias{NetoTb4.2}
+\title{Ação Catalítica do Mo(VI)}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ensaio}}{Número do ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1: H2S04.}
+
+\item{\code{f2}}{Fator 2: KI.}
+
+\item{\code{f3}}{Fator 3: H2O2.}
+
+\item{\code{f4}}{Fator 4: Tempo.}
+
+\item{resp}{Traços de molibdênio.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.2, pág.167)
+}
+\description{
+Resultados de um experimento fatorial 2^4 completo, 
+    realizado para estudar a ação catalítica do Mo(VI).
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb4.2)
+str(NetoTb4.2)
+
+xyplot(resp ~ f1 | f2 + f3, groups = f4, data = NetoTb4.2,
+       type = c("p", "a"), auto.key = TRUE)
+
+}
+\keyword{DBC}
+