diff --git a/R/NetoTb4.18.R b/R/NetoTb4.18.R
new file mode 100644
index 0000000000000000000000000000000000000000..3c001c816d7dea481afd026c0c0b7b7bfb8daebd
--- /dev/null
+++ b/R/NetoTb4.18.R
@@ -0,0 +1,67 @@
+#' @name NetoTb4.18
+#' @title Técnicas de Taguchi
+#' @description Planejamento de Taguchi para o desenvolvimento de uma 
+#'     mistura de bolo.'
+#' @format Um \code{data.frame} com 8 observações e 8 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{F}}{Farinha.}
+#'
+#' \item{\code{G}}{Gordura.}
+#' 
+#' \item{\code{A}}{Açúcar.}
+#' 
+#' \item{\code{O}}{Ovos.}
+#' 
+#' \item{\code{f1}}{Temperatura.}
+#' 
+#' \item{\code{f2}}{Leite.}
+#' 
+#' \item{\code{f3}}{Tempo.}
+#' 
+#' \item{\code{f4}}{Tempo + Leite + Temperatura.}
+#' 
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.18, pág.196)
+#' @examples
+#'
+#' data(NetoTb4.18)
+#' str(NetoTb4.18)
+#'
+#' par(mfrow = c(2,4))
+#'
+#' plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Farinha")
+#' abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Gordura")
+#' abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Açúcar")
+#' abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Ovos")
+#' abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Temperatura")
+#' abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Leite")
+#' abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Tempo")
+#' abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra", 
+#'      xlab = "Temperatura + Leite + Tempo")
+#' abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.18.txt b/data-raw/NetoTb4.18.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f36fba8f0fa3d8e6614ce404c97b4b84370b6b11
--- /dev/null
+++ b/data-raw/NetoTb4.18.txt
@@ -0,0 +1,9 @@
+F	G	A	O	f1	f2	f3	f4	ybar
+-1	-1	-1	-1	85	96	97	92	92.5
+-1	-1	-1	1	82	81	78	79	80
+-1	1	1	-1	75	80	70	73	74.5
+-1	1	1	1	66	75	83	70	73.5
+1	-1	1	-1	84	91	95	90	90
+1	-1	1	1	78	72	80	69	74.8
+1	1	-1	-1	86	85	90	91	88
+1	1	-1	1	86	82	77	75	80
diff --git a/data/NetoTb4.18.rda b/data/NetoTb4.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..afb103f06c80edbe42a343aba73580d609cfcade
Binary files /dev/null and b/data/NetoTb4.18.rda differ
diff --git a/man/NetoTb4.18.Rd b/man/NetoTb4.18.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..6f99c0e283d57847c6b2a1f1ba42c47139133ce2
--- /dev/null
+++ b/man/NetoTb4.18.Rd
@@ -0,0 +1,75 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.18.R
+\name{NetoTb4.18}
+\alias{NetoTb4.18}
+\title{Técnicas de Taguchi}
+\format{Um \code{data.frame} com 8 observações e 8 variáveis, em que
+
+\describe{
+
+\item{\code{F}}{Farinha.}
+
+\item{\code{G}}{Gordura.}
+
+\item{\code{A}}{Açúcar.}
+
+\item{\code{O}}{Ovos.}
+
+\item{\code{f1}}{Temperatura.}
+
+\item{\code{f2}}{Leite.}
+
+\item{\code{f3}}{Tempo.}
+
+\item{\code{f4}}{Tempo + Leite + Temperatura.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.18, pág.196)
+}
+\description{
+Planejamento de Taguchi para o desenvolvimento de uma 
+    mistura de bolo.'
+}
+\examples{
+
+data(NetoTb4.18)
+str(NetoTb4.18)
+
+par(mfrow = c(2,4))
+
+plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Farinha")
+abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Gordura")
+abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Açúcar")
+abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Ovos")
+abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Temperatura")
+abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Leite")
+abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Tempo")
+abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra", 
+     xlab = "Temperatura + Leite + Tempo")
+abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+
+}
+\keyword{DBC}
+