diff --git a/R/NetoTb5.4.R b/R/NetoTb5.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..09f00edaf91decf5b7d88fe8793d063db894b640
--- /dev/null
+++ b/R/NetoTb5.4.R
@@ -0,0 +1,35 @@
+#' @name NetoTb5.4
+#' @title Variação do Rendimento de um Experimento em Função da
+#'    Temperatura
+#' @description Variação do Rendimento de um Experimento em Função da
+#'    Temperatura, na faixa 30 - 70º.
+#' @format Um \code{data.frame} com 9 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{temp}}{Temperatura.}
+#' 
+#' \item{\code{rend}}{Rendimento da reação.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 5.4, pág. 238)
+#' @examples
+#'
+#' data(NetoTb5.4)
+#' str(NetoTb5.4)
+#'
+#' plot(rend ~ temp, data = NetoTb5.4,
+#'      xlab = "Temperatura",
+#'      ylab = "Rendimento",
+#'      main = "Variação do Rendimento em Função da Temperatura",
+#'      type = c("b"), col = 3, lwd = 2)
+#'
+#' abline(lm(rend ~ temp, data = NetoTb5.4), col = 2, lwd = 2)
+#'
+#' legend("topleft",
+#'        legend = c("Modelo Saturado", "Modelo Linear"), 
+#'        col = c(3, 2),
+#'        pch = 1, bty = "n")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb5.4.txt b/data-raw/NetoTb5.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..87b45d7390ba8d87d434eb93d0465b5ad9b0f75e
--- /dev/null
+++ b/data-raw/NetoTb5.4.txt
@@ -0,0 +1,10 @@
+temp	rend
+30	24
+35	40
+40	60
+45	70
+50	77
+55	86
+60	91
+65	86
+70	84
diff --git a/data/NetoTb5.4.rda b/data/NetoTb5.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a01a70ccd5ee2829fbe735ac4de6a1ebf173260a
Binary files /dev/null and b/data/NetoTb5.4.rda differ
diff --git a/man/NetoTb5.4.Rd b/man/NetoTb5.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..2d323a661d137cf67f787a214be1b5c3e98e01ea
--- /dev/null
+++ b/man/NetoTb5.4.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb5.4.R
+\name{NetoTb5.4}
+\alias{NetoTb5.4}
+\title{Variação do Rendimento de um Experimento em Função da
+   Temperatura}
+\format{Um \code{data.frame} com 9 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{temp}}{Temperatura.}
+
+\item{\code{rend}}{Rendimento da reação.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 5.4, pág. 238)
+}
+\description{
+Variação do Rendimento de um Experimento em Função da
+   Temperatura, na faixa 30 - 70º.
+}
+\examples{
+
+data(NetoTb5.4)
+str(NetoTb5.4)
+
+plot(rend ~ temp, data = NetoTb5.4,
+     xlab = "Temperatura",
+     ylab = "Rendimento",
+     main = "Variação do Rendimento em Função da Temperatura",
+     type = c("b"), col = 3, lwd = 2)
+
+abline(lm(rend ~ temp, data = NetoTb5.4), col = 2, lwd = 2)
+
+legend("topleft",
+       legend = c("Modelo Saturado", "Modelo Linear"), 
+       col = c(3, 2),
+       pch = 1, bty = "n")
+
+}
+\keyword{DBC}
+