diff --git a/R/NetoTb6.3.R b/R/NetoTb6.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..778390e9a5f5ef6a8d02003db34b6b55437a6a0f
--- /dev/null
+++ b/R/NetoTb6.3.R
@@ -0,0 +1,33 @@
+#' @name NetoTb6.3
+#' @title Caminho de Máxima Inclinação
+#' @description O caminho de máxima inclinação pode ser determinado 
+#'     algebricamente a partir dos coeficientes do modelo.
+#' @format Um \code{data.frame} com 7 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x1}}{Valores do fator 1.}
+#' 
+#' \item{\code{x2}}{Valores do fator 2.}
+#' 
+#' \item{\code{y}}{Resposta.}
+#' 
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 6.3, pág. 271)
+#' @examples
+#'
+#' data(NetoTb6.3)
+#' str(NetoTb6.3)
+#'
+#' par(mfrow = c(1,2))
+#'
+#' plot(y ~ x1, data = NetoTb6.3)
+#'
+#' abline(lm(y ~ x1, data = NetoTb6.3), col = 2)
+#'
+#' plot(y ~ x2, data = NetoTb6.3)
+#'
+#' abline(lm(y ~ x2, data = NetoTb6.3), col = 3)
+#'
+NULL
diff --git a/data-raw/NetoTb6.3.txt b/data-raw/NetoTb6.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..1faabbc2ee42a79aa199f670a16ff9180bf43f9c
--- /dev/null
+++ b/data-raw/NetoTb6.3.txt
@@ -0,0 +1,9 @@
+x1	x2	y
+0	0	68
+0	0	66
+0	0	69
+-1	0.81	77
+-2	1.62	86
+-3	2.43	88
+-4	3.24	80
+-5	4.05	70
diff --git a/data/NetoTb6.3.rda b/data/NetoTb6.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f2cb5fe9155c4bc46e8f161232673cf93332c557
Binary files /dev/null and b/data/NetoTb6.3.rda differ
diff --git a/man/NetoTb6.3.Rd b/man/NetoTb6.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3ff9aaed7fb06953e641257a1b0367536a337c10
--- /dev/null
+++ b/man/NetoTb6.3.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb6.3.R
+\name{NetoTb6.3}
+\alias{NetoTb6.3}
+\title{Caminho de Máxima Inclinação}
+\format{Um \code{data.frame} com 7 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{x1}}{Valores do fator 1.}
+
+\item{\code{x2}}{Valores do fator 2.}
+
+\item{\code{y}}{Resposta.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 6.3, pág. 271)
+}
+\description{
+O caminho de máxima inclinação pode ser determinado 
+    algebricamente a partir dos coeficientes do modelo.
+}
+\examples{
+
+data(NetoTb6.3)
+str(NetoTb6.3)
+
+par(mfrow = c(1,2))
+
+plot(y ~ x1, data = NetoTb6.3)
+
+abline(lm(y ~ x1, data = NetoTb6.3), col = 2)
+
+plot(y ~ x2, data = NetoTb6.3)
+
+abline(lm(y ~ x2, data = NetoTb6.3), col = 3)
+
+}
+\keyword{DBC}
+