diff --git a/R/NetoTb4.6.R b/R/NetoTb4.6.R
new file mode 100644
index 0000000000000000000000000000000000000000..db26e2d4bde37970ce93732e66e5df8544f07a57
--- /dev/null
+++ b/R/NetoTb4.6.R
@@ -0,0 +1,44 @@
+#' @name NetoTb4.6
+#' @title Fatorial Fracionado, Estudo da Resposta Catalítica do Mo(VI)
+#' @description Resultados de um experimento fatorial fracionado 2^(5-1) 
+#'     ,realizado para estudar a ação catalítica do Mo(VI).
+#' @format Um \code{data.frame} com 16 observações e 7 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+#'
+#' \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{\code{f5}}{Fator 5: Fluxo.}
+#'
+#' \item{resp}{Traços de molibdênio.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.6, pág.177)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb4.6)
+#' str(NetoTb4.6)
+#'
+#' wireframe(resp ~ f1 + f2 + f4 | factor(f5),
+#'           data = NetoTb4.6,
+#'           scales = list(arrows = FALSE),
+#'           col = "gray50",
+#'           as.table = TRUE,
+#'           col.contour = 1,
+#'           type = "on",
+#'           drape = TRUE,
+#'           alpha.regions = 0.5,
+#'           screen = list(z = 30, x = -60))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.6.txt b/data-raw/NetoTb4.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a3ea14d87b834a29918336f3a49df0bb16701b38
--- /dev/null
+++ b/data-raw/NetoTb4.6.txt
@@ -0,0 +1,17 @@
+ord	f1	f2	f3	f4	f5	resp
+5	-1	-1	-1	-1	+1	52
+13	+1	-1	-1	-1	-1	61
+12	-1	+1	-1	-1	-1	124
+4	+1	+1	-1	-1	+1	113
+11	-1	-1	+1	-1	-1	85
+3	+1	-1	+1	-1	+1	66
+6	-1	+1	+1	-1	+1	185
+14	+1	+1	+1	-1	-1	192
+10	-1	-1	-1	+1	-1	98
+2	+1	-1	-1	+1	+1	86
+7	-1	+1	-1	+1	+1	201
+15	+1	+1	-1	+1	-1	194
+8	-1	-1	+1	+1	+1	122
+16	+1	-1	+1	+1	-1	139
+9	-1	+1	+1	+1	-1	289
+1	+1	+1	+1	+1	+1	286
diff --git a/data/NetoTb4.6.rda b/data/NetoTb4.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2991828194201a439daba9833b1d28ffd0e94cd0
Binary files /dev/null and b/data/NetoTb4.6.rda differ
diff --git a/man/NetoTb4.6.Rd b/man/NetoTb4.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..2523126d396dd4262cffc74505d59c28cb1ecc64
--- /dev/null
+++ b/man/NetoTb4.6.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.6.R
+\name{NetoTb4.6}
+\alias{NetoTb4.6}
+\title{Fatorial Fracionado, Estudo da Resposta Catalítica do Mo(VI)}
+\format{Um \code{data.frame} com 16 observações e 7 variáveis, em que
+
+\describe{
+
+\item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+
+\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{\code{f5}}{Fator 5: Fluxo.}
+
+\item{resp}{Traços de molibdênio.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.6, pág.177)
+}
+\description{
+Resultados de um experimento fatorial fracionado 2^(5-1) 
+    ,realizado para estudar a ação catalítica do Mo(VI).
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb4.6)
+str(NetoTb4.6)
+
+wireframe(resp ~ f1 + f2 + f4 | factor(f5),
+          data = NetoTb4.6,
+          scales = list(arrows = FALSE),
+          col = "gray50",
+          as.table = TRUE,
+          col.contour = 1,
+          type = "on",
+          drape = TRUE,
+          alpha.regions = 0.5,
+          screen = list(z = 30, x = -60))
+
+}
+\keyword{DBC}
+