diff --git a/R/NetoEx4.8.R b/R/NetoEx4.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..44b28aa10bedcb92d55fc84945686ab720bfba97
--- /dev/null
+++ b/R/NetoEx4.8.R
@@ -0,0 +1,34 @@
+#' @name NetoEx4.8
+#' @title Otimização de Reação Orgânica
+#' @description Resultados de um experimento fatorial 2^4 cujo objetivo, 
+#'     era a otimização de uma reação orgânic.
+#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1: Temperatura.}
+#' 
+#' \item{\code{f2}}{Fator 2: Base.}
+#' 
+#' \item{\code{f3}}{Fator 3: Solvente.}
+#' 
+#' \item{\code{f4}}{Fator 4: Catalisador.}
+#'
+#' \item{resp}{Rendimento da reação (%).}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Exercício 4.8, pág.176)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoEx4.8)
+#' str(NetoEx4.8)
+#'
+#' xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+#'        type = c("p", "a"), auto.key = TRUE)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoEx4.8.txt b/data-raw/NetoEx4.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..25babbae5404c79309d8f76d326589f09edc8070
--- /dev/null
+++ b/data-raw/NetoEx4.8.txt
@@ -0,0 +1,9 @@
+ensaio	f1	f2	f3	f4	rend
+1	-1	-1	-1	-1	0
+2	+1	-1	-1	+1	70
+3	-1	+1	-1	+1	65
+4	+1	+1	-1	-1	0
+5	-1	-1	+1	+1	100
+6	+1	-1	+1	-1	85
+7	-1	+1	+1	-1	50
+8	+1	+1	+1	+1	95
diff --git a/data/NetoEx4.8.rda b/data/NetoEx4.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ab60845052f03db6123b5208c02e9bb8484c0023
Binary files /dev/null and b/data/NetoEx4.8.rda differ
diff --git a/man/NetoEx4.8.Rd b/man/NetoEx4.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..aa92aba195c09d6ac9b1ff58a1cb361cb6b954a5
--- /dev/null
+++ b/man/NetoEx4.8.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx4.8.R
+\name{NetoEx4.8}
+\alias{NetoEx4.8}
+\title{Otimização de Reação Orgânica}
+\source{
+Barros Neto, Benício de (2010), (Exercício 4.8, pág.176)
+}
+\description{
+Resultados de um experimento fatorial 2^4 cujo objetivo, 
+    era a otimização de uma reação orgânic.
+}
+\examples{
+
+library(lattice)
+
+data(NetoEx4.8)
+str(NetoEx4.8)
+
+xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+       type = c("p", "a"), auto.key = TRUE)
+
+}
+\keyword{DBC}
+