diff --git a/R/NetoTb4.10.R b/R/NetoTb4.10.R
new file mode 100644
index 0000000000000000000000000000000000000000..748a46039d726376777a56c20ef8f951e4f4e51c
--- /dev/null
+++ b/R/NetoTb4.10.R
@@ -0,0 +1,53 @@
+#' @name NetoTb4.10
+#' @title Saque de um Tenista amador
+#' @description Planejamento fracionário saturado de 8 ensaios para 
+#'     verificar como sete variáveis afetam o saque de um tenista amador
+#' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ensaio}}{Número correspondente ao ensaio.}
+#'
+#' \item{\code{f1}}{Fator 1: técnica.}
+#' 
+#' \item{\code{f2}}{Fator 2: frequência.}
+#' 
+#' \item{\code{f3}}{Fator 3: hora.}
+#' 
+#' \item{\code{f4}}{Fator 4: revestimento.}
+#' 
+#' \item{\code{f5}}{Fator 5: lado.}
+#' 
+#' \item{\code{f6}}{Fator 6: camisa.}
+#' 
+#' \item{\code{f7}}{Fator 7: raquete.}
+#'
+#' \item{acert}{percentual de acertos.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.10, pág.186)
+#' @examples
+#'
+#' data(NetoTb4.10)
+#' str(NetoTb4.10)
+#'
+#' par(mfrow = c(2,2))
+#'
+#' plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica", 
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
+#'
+#' plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
+#'
+#' plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+#'
+#' plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.10.txt b/data-raw/NetoTb4.10.txt
new file mode 100644
index 0000000000000000000000000000000000000000..098f93b2cad087059d22fffc1275cadbf55c8436
--- /dev/null
+++ b/data-raw/NetoTb4.10.txt
@@ -0,0 +1,9 @@
+ensaio	f1	f2	f3	f4	f5	f6	f7	acert
+1	-1	-1	-1	+1	+1	+1	-1	56
+2	+1	-1	-1	-1	-1	+1	+1	66
+3	-1	+1	-1	-1	+1	-1	+1	51
+4	+1	+1	-1	+1	-1	-1	-1	52
+5	-1	-1	+1	+1	-1	-1	+1	54
+6	+1	-1	+1	-1	+1	-1	-1	70
+7	-1	+1	+1	-1	-1	+1	-1	42
+8	+1	+1	+1	+1	+1	+1	+1	64
diff --git a/data/NetoTb4.10.rda b/data/NetoTb4.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d104a238cdec3d512dddfee0da0263ee05faa04f
Binary files /dev/null and b/data/NetoTb4.10.rda differ
diff --git a/man/NetoTb4.10.Rd b/man/NetoTb4.10.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c1ff282fa31dd73f428a795888535adec6618bd2
--- /dev/null
+++ b/man/NetoTb4.10.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.10.R
+\name{NetoTb4.10}
+\alias{NetoTb4.10}
+\title{Saque de um Tenista amador}
+\format{Um \code{data.frame} com 8 observações e 9 variáveis, em que
+
+\describe{
+
+\item{\code{ensaio}}{Número correspondente ao ensaio.}
+
+\item{\code{f1}}{Fator 1: técnica.}
+
+\item{\code{f2}}{Fator 2: frequência.}
+
+\item{\code{f3}}{Fator 3: hora.}
+
+\item{\code{f4}}{Fator 4: revestimento.}
+
+\item{\code{f5}}{Fator 5: lado.}
+
+\item{\code{f6}}{Fator 6: camisa.}
+
+\item{\code{f7}}{Fator 7: raquete.}
+
+\item{acert}{percentual de acertos.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.10, pág.186)
+}
+\description{
+Planejamento fracionário saturado de 8 ensaios para 
+    verificar como sete variáveis afetam o saque de um tenista amador
+}
+\examples{
+
+data(NetoTb4.10)
+str(NetoTb4.10)
+
+par(mfrow = c(2,2))
+
+plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica", 
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
+
+plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
+
+plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+
+plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+
+}
+\keyword{DBC}
+