diff --git a/R/NetoTb5.7.R b/R/NetoTb5.7.R
new file mode 100644
index 0000000000000000000000000000000000000000..041417f5d79b1b81df15bec752e1bfdd04035187
--- /dev/null
+++ b/R/NetoTb5.7.R
@@ -0,0 +1,53 @@
+#' @name NetoTb5.7
+#' @title Variação do Rendimento de um Experimento em Função da
+#'    Temperatura, ensaios em duplicata
+#' @description Variação do Rendimento de um Experimento em Função da
+#'    Temperatura, na faixa 30 - 70º com duas medições.
+#' @format Um \code{data.frame} com 9 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{temp}}{Temperatura.}
+#' 
+#' \item{\code{rend}}{Rendimento da reação na primeira medição.}
+#' 
+#' \item{\code{rend}}{Rendimento da reação na segunda medição.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 5.7, pág. 242)
+#' @examples
+#'
+#' data(NetoTb5.7)
+#' str(NetoTb5.7)
+#'
+#' par(mfrow=c(1,2))
+#'
+#' plot(rend ~ temp, data = NetoTb5.7,
+#'      xlab = "Temperatura",
+#'      ylab = "Rendimento",
+#'      main = "Primeira Medição",
+#'      type = c("b"), col = 3, lwd = 2)
+#'
+#' abline(lm(rend ~ temp, data = NetoTb5.7), col = 2, lwd = 2)
+#'
+#' legend("topleft",
+#'        legend = c("Modelo Saturado", "Modelo Linear"), 
+#'        col = c(3, 2),
+#'        pch = 1, bty = "n")
+#'        
+#'        
+#' plot(rend2 ~ temp, data = NetoTb5.7,
+#'      xlab = "Temperatura",
+#'      ylab = "Rendimento",
+#'      main = "Segunda Medição",
+#'      type = c("b"), col = 5, lwd = 2)
+#'
+#' abline(lm(rend2 ~ temp, data = NetoTb5.7), col = 6, lwd = 2)
+#'
+#' legend("topleft",
+#'        legend = c("Modelo Saturado", "Modelo Linear"), 
+#'        col = c(3, 2),
+#'        pch = 1, bty = "n")
+#'
+NULL
diff --git a/data-raw/NetoTb5.7.txt b/data-raw/NetoTb5.7.txt
new file mode 100644
index 0000000000000000000000000000000000000000..4a1124862c9444e7ca1528d29a443e1fa453cc9e
--- /dev/null
+++ b/data-raw/NetoTb5.7.txt
@@ -0,0 +1,10 @@
+temp	rend	rend2
+30	24	20
+35	40	43
+40	60	57
+45	70	72
+50	77	80
+55	86	89
+60	91	88
+65	86	89
+70	84	80
diff --git a/data/NetoTb5.7.rda b/data/NetoTb5.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..01b3cee310470bb8d0635a9b23e2476e2691b06c
Binary files /dev/null and b/data/NetoTb5.7.rda differ
diff --git a/man/NetoTb5.7.Rd b/man/NetoTb5.7.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..767e7c6f8fc802cc7e46a8d9d42e1aa3bf674ead
--- /dev/null
+++ b/man/NetoTb5.7.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb5.7.R
+\name{NetoTb5.7}
+\alias{NetoTb5.7}
+\title{Variação do Rendimento de um Experimento em Função da
+   Temperatura, ensaios em duplicata}
+\format{Um \code{data.frame} com 9 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{temp}}{Temperatura.}
+
+\item{\code{rend}}{Rendimento da reação na primeira medição.}
+
+\item{\code{rend}}{Rendimento da reação na segunda medição.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 5.7, pág. 242)
+}
+\description{
+Variação do Rendimento de um Experimento em Função da
+   Temperatura, na faixa 30 - 70º com duas medições.
+}
+\examples{
+
+data(NetoTb5.7)
+str(NetoTb5.7)
+
+par(mfrow=c(1,2))
+
+plot(rend ~ temp, data = NetoTb5.7,
+     xlab = "Temperatura",
+     ylab = "Rendimento",
+     main = "Primeira Medição",
+     type = c("b"), col = 3, lwd = 2)
+
+abline(lm(rend ~ temp, data = NetoTb5.7), col = 2, lwd = 2)
+
+legend("topleft",
+       legend = c("Modelo Saturado", "Modelo Linear"), 
+       col = c(3, 2),
+       pch = 1, bty = "n")
+       
+       
+plot(rend2 ~ temp, data = NetoTb5.7,
+     xlab = "Temperatura",
+     ylab = "Rendimento",
+     main = "Segunda Medição",
+     type = c("b"), col = 5, lwd = 2)
+
+abline(lm(rend2 ~ temp, data = NetoTb5.7), col = 6, lwd = 2)
+
+legend("topleft",
+       legend = c("Modelo Saturado", "Modelo Linear"), 
+       col = c(3, 2),
+       pch = 1, bty = "n")
+
+}
+\keyword{DBC}
+