Adiciona Tabela 5.7

R/NetoTb5.7.R

+#' @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

data-raw/NetoTb5.7.txt

+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

man/NetoTb5.7.Rd

+% 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}
+