diff --git a/R/NetoTb3A.1.R b/R/NetoTb3A.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..ef28cc600557f4982c8d74b5feba5e09744fe751
--- /dev/null
+++ b/R/NetoTb3A.1.R
@@ -0,0 +1,35 @@
+#' @name NetoTb3A.1
+#' @title Hidrólise de Resinas
+#' @description Planejamento 2^3 em duplicata para estudar o efeito de 3
+#'     fatores no grau de substituição numa resina clorometilada. 
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, tempo de hidrólise.}
+#' 
+#' \item{\code{f2}}{Fator 2, temperatura.}
+#' 
+#' \item{\code{f3}}{Fator 3, catalisador.}
+#'
+#' \item{grau}{grau de substituição.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3A.1)
+#' str(NetoTb3A.1)
+#'
+#' xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
+#'        type = c("p", "a"), auto.key = TRUE,
+#'        xlab = "Tempo de Hidrólise",
+#'        ylab = "Grau de Substituição")
+#'
+#'
+NULL
diff --git a/data-raw/NetoTb3A.1.txt b/data-raw/NetoTb3A.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3f8351c295e8950caa94a7c8673b80ca9ab83aac
--- /dev/null
+++ b/data-raw/NetoTb3A.1.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	grau
+1	-1	-1	-1	0.52
+2	1	-1	-1	0.57
+3	-1	1	-1	0.55
+4	1	1	-1	0.58
+5	-1	-1	1	0.47
+6	1	-1	1	0.53
+7	-1	1	1	0.52
+8	1	1	1	0.54
+9	-1	-1	-1	0.54
+10	1	-1	-1	0.58
+11	-1	1	-1	0.54
+12	1	1	-1	0.56
+13	-1	-1	1	0.45
+14	1	-1	1	0.56
+15	-1	1	1	0.53
+16	1	1	1	0.52
\ No newline at end of file
diff --git a/data/NetoTb3A.1.rda b/data/NetoTb3A.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0e564db78adb4006a16a9d6096c98245450d3f7a
Binary files /dev/null and b/data/NetoTb3A.1.rda differ
diff --git a/man/NetoTb3A.1.Rd b/man/NetoTb3A.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..69293c25e834a482df9c48b1c2f76bb8feec9734
--- /dev/null
+++ b/man/NetoTb3A.1.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.1.R
+\name{NetoTb3A.1}
+\alias{NetoTb3A.1}
+\title{Hidrólise de Resinas}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, tempo de hidrólise.}
+
+\item{\code{f2}}{Fator 2, temperatura.}
+
+\item{\code{f3}}{Fator 3, catalisador.}
+
+\item{grau}{grau de substituição.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+}
+\description{
+Planejamento 2^3 em duplicata para estudar o efeito de 3
+    fatores no grau de substituição numa resina clorometilada.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.1)
+str(NetoTb3A.1)
+
+xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
+       type = c("p", "a"), auto.key = TRUE,
+       xlab = "Tempo de Hidrólise",
+       ylab = "Grau de Substituição")
+
+
+}
+\keyword{DBC}
+