diff --git a/R/NetoTb2.4.R b/R/NetoTb2.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..a3c88034ea6f07ee09775b27e3fd57561096bdbb
--- /dev/null
+++ b/R/NetoTb2.4.R
@@ -0,0 +1,32 @@
+#' @name NetoTb2.4
+#' @title Comparação de resultados obtidos por 2 químicos
+#' @description Dois químicos, Arrhenius e Berzelius foram encarregados
+#'    de analisar lotes de vinagre de 5 diferentes fabricantes, cada
+#'    um obteve 5 diferentes resultados. O experimento contém um único
+#'    fator com dois níveis (os químicos) e uma resposta (a
+#'    concentração).
+#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{fator}}{Fator de 2 níveis qualitativos.}
+#'
+#' \item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
+#'    diferentes fabricantes de vinagre.}
+#'
+#' \item{\code{concentração}}{Concentração de vinagre obtida.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb2.4)
+#' str(NetoTb2.4)
+#'
+#' xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
+#'        xlab = "Amostra", ylab = "Resposta ")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb2.4.txt b/data-raw/NetoTb2.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..2baf3c2a78381bf6103753cadb5b414b4ebf90c5
--- /dev/null
+++ b/data-raw/NetoTb2.4.txt
@@ -0,0 +1,6 @@
+Amo	Arrh	Ber	d
+1	3.77	3.62	0.15
+2	3.85	3.69	0.16
+3	4.07	4.10	-0.03
+4	4.83	4.70	0.13
+5	5.05	4.89	0.16
diff --git a/data/NetoTb2.4.rda b/data/NetoTb2.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0ae74aedc5e8cb5e6c772dab3b7df22340e81d9f
Binary files /dev/null and b/data/NetoTb2.4.rda differ
diff --git a/man/NetoTb2.4.Rd b/man/NetoTb2.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..9908034dd3102d9e9d617806200e48b29dc4162b
--- /dev/null
+++ b/man/NetoTb2.4.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2.4.R
+\name{NetoTb2.4}
+\alias{NetoTb2.4}
+\title{Comparação de resultados obtidos por 2 químicos}
+\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{fator}}{Fator de 2 níveis qualitativos.}
+
+\item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
+   diferentes fabricantes de vinagre.}
+
+\item{\code{concentração}}{Concentração de vinagre obtida.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+}
+\description{
+Dois químicos, Arrhenius e Berzelius foram encarregados
+   de analisar lotes de vinagre de 5 diferentes fabricantes, cada
+   um obteve 5 diferentes resultados. O experimento contém um único
+   fator com dois níveis (os químicos) e uma resposta (a
+   concentração).
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb2.4)
+str(NetoTb2.4)
+
+xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
+       xlab = "Amostra", ylab = "Resposta ")
+
+}
+\keyword{DBC}
+