diff --git a/R/NetoEx7A.6.R b/R/NetoEx7A.6.R
new file mode 100644
index 0000000000000000000000000000000000000000..7fce597cde5f3ea4b4a833d8af4631b67d971f15
--- /dev/null
+++ b/R/NetoEx7A.6.R
@@ -0,0 +1,34 @@
+#' @name NetoTb7A.6
+#' @title Condutividade de Uma Blenda Polimérica
+#' @description Planejamento para a determinação catalítica de Cr(VI)
+#' @format Um \code{data.frame} com 20 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio.}
+#'
+#' \item{\code{c1}}{Proporção de polímero.}
+#' 
+#' \item{\code{c2}}{Sal.}
+#' 
+#' \item{\code{c3}}{Plastificante.}
+#' 
+#' \item{\code{lc}}{Log da condutividade iônica.}
+#' 
+#' \item{\code{t}}{Temperatura de transição vítra.}
+#' 
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 7A.6, pág. 356)
+#' @examples
+#'
+#' data(NetoTb7A.6)
+#' str(NetoTb7A.6)
+#' 
+#' x <- NetoTb7A.6[,-1]
+#'
+#' library(car)
+#'
+#' scatterplotMatrix(x, pch = 20, cex.labels = 1.25) 
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb7A.6.txt b/data-raw/NetoTb7A.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a8135fee7f477183497c1fd039f9e4c3e36dc559
--- /dev/null
+++ b/data-raw/NetoTb7A.6.txt
@@ -0,0 +1,16 @@
+ens	c1	c2	c3	lc	t
+1	0.86	0.07	0.07	-6	-47
+2	0.75	0.18	0.07	-4.699	-48
+3	0.64	0.29	0.07	-4.523	-67
+4	0.5	0.29	0.21	-3.523	-67
+5	0.5	0.21	0.29	-3.398	-68
+6	0.64	0.07	0.29	-4.398	-64
+7	0.75	0.07	0.18	-6	-45
+8	0.66	0.17	0.17	-4.155	-56
+9	0.66	0.17	0.17	-4.097	-63
+10	0.76	0.12	0.12	-5	-51
+11	0.76	0.12	0.12	-4.699	-50
+12	0.6	0.25	0.15	-4.155	-71
+13	0.6	0.25	0.15	-4	-69
+14	0.6	0.15	0.25	-3.699	-50
+15	0.6	0.15	0.25	-3.699	-49
diff --git a/data/NetoTb7A.6.rda b/data/NetoTb7A.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..002248b08cf0e56b03e4eae04abb45fc1c0bfffb
Binary files /dev/null and b/data/NetoTb7A.6.rda differ
diff --git a/man/NetoTb7A.6.Rd b/man/NetoTb7A.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..94c3f038ebf90dbaade9d95f0daf1027d8d5a655
--- /dev/null
+++ b/man/NetoTb7A.6.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx7A.6.R
+\name{NetoTb7A.6}
+\alias{NetoTb7A.6}
+\title{Condutividade de Uma Blenda Polimérica}
+\format{Um \code{data.frame} com 20 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio.}
+
+\item{\code{c1}}{Proporção de polímero.}
+
+\item{\code{c2}}{Sal.}
+
+\item{\code{c3}}{Plastificante.}
+
+\item{\code{lc}}{Log da condutividade iônica.}
+
+\item{\code{t}}{Temperatura de transição vítra.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 7A.6, pág. 356)
+}
+\description{
+Planejamento para a determinação catalítica de Cr(VI)
+}
+\examples{
+
+data(NetoTb7A.6)
+str(NetoTb7A.6)
+
+x <- NetoTb7A.6[,-1]
+
+library(car)
+
+scatterplotMatrix(x, pch = 20, cex.labels = 1.25) 
+
+}
+\keyword{DBC}
+