diff --git a/R/NetoTb3A.4.R b/R/NetoTb3A.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..6a6e98e5ed5ca742086582e849f181fdf75ddcaf
--- /dev/null
+++ b/R/NetoTb3A.4.R
@@ -0,0 +1,35 @@
+#' @name NetoTb3A.4
+#' @title Separação de Gases por Adsorção
+#' @description No desenvolvimento em laboratório de um processo de 
+#'     enriquecimento de gases por adsorção , investigou-se a influência
+#'     de quatro fatores. 
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, pressão de adsorção.}
+#' 
+#' \item{\code{f2}}{Fator 2, pressão de dessorção.}
+#' 
+#' \item{\code{f3}}{Fator 3, vazão de alimentação.}
+#' 
+#' \item{\code{f4}}{Fator 4, tempo de adsorção.}
+#' 
+#' \item{\code{p}}{Produtividade do adsorvente.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+#' @examples
+#'
+#' library(lattice)
+#' 
+#' data(NetoTb3A.4)
+#' str(NetoTb3A.4)
+#'
+#' xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+#'        data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
+#'                                    
+NULL
diff --git a/data-raw/NetoTb3A.4.txt b/data-raw/NetoTb3A.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..013d8f82402e7b409daba281d0a378aff2b136e3
--- /dev/null
+++ b/data-raw/NetoTb3A.4.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	f4	p
+1	-1	-1	-1	-1	2.75
+2	+1	-1	-1	-1	3.15
+3	-1	+1	-1	-1	2.85
+4	+1	+1	-1	-1	3.55
+5	-1	-1	+1	-1	4.65
+6	+1	-1	+1	-1	5.85
+7	-1	+1	+1	-1	5.4
+8	+1	+1	+1	-1	6.3
+9	-1	-1	-1	+1	5.95
+10	+1	-1	-1	+1	6.55
+11	-1	+1	-1	+1	5.6
+12	+1	+1	-1	+1	6.75
+13	-1	-1	+1	+1	11.5
+14	+1	-1	+1	+1	13
+15	-1	+1	+1	+1	12.5
+16	+1	+1	+1	+1	14
diff --git a/data/NetoTb3A.4.rda b/data/NetoTb3A.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..204e0b5a014c41298ed42fcfd54c65ad0a66cbd6
Binary files /dev/null and b/data/NetoTb3A.4.rda differ
diff --git a/man/NetoTb3A.4.Rd b/man/NetoTb3A.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..359f3ab29d84d7342114b1d1dda4a8f9a9248f65
--- /dev/null
+++ b/man/NetoTb3A.4.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.4.R
+\name{NetoTb3A.4}
+\alias{NetoTb3A.4}
+\title{Separação de Gases por Adsorção}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, pressão de adsorção.}
+
+\item{\code{f2}}{Fator 2, pressão de dessorção.}
+
+\item{\code{f3}}{Fator 3, vazão de alimentação.}
+
+\item{\code{f4}}{Fator 4, tempo de adsorção.}
+
+\item{\code{p}}{Produtividade do adsorvente.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+}
+\description{
+No desenvolvimento em laboratório de um processo de 
+    enriquecimento de gases por adsorção , investigou-se a influência
+    de quatro fatores.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.4)
+str(NetoTb3A.4)
+
+xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+       data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
+                                   
+}
+\keyword{DBC}
+