From 97dcb9cc88c724250c8e2ec629c3f8dbf5265e68 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 9 Oct 2016 20:46:01 -0300
Subject: [PATCH] Adiciona Tabela 5.4
---
R/NetoTb5.4.R | 35 +++++++++++++++++++++++++++++++++
data-raw/NetoTb5.4.txt | 10 ++++++++++
data/NetoTb5.4.rda | Bin 0 -> 184 bytes
man/NetoTb5.4.Rd | 43 +++++++++++++++++++++++++++++++++++++++++
4 files changed, 88 insertions(+)
create mode 100644 R/NetoTb5.4.R
create mode 100644 data-raw/NetoTb5.4.txt
create mode 100644 data/NetoTb5.4.rda
create mode 100644 man/NetoTb5.4.Rd
diff --git a/R/NetoTb5.4.R b/R/NetoTb5.4.R
new file mode 100644
index 00000000..09f00eda
--- /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 00000000..87b45d73
--- /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
GIT binary patch
literal 184
zcmZ>Y%CIzaj8qGbe6Je5kAb1||ABu-9*!K&VlAr7q8|3_cN!cR7#bHabn*HGWxiZ-
z*;i6Ja4WO3e}M5-W|d&K8NNm-2LukVm`Dg)C6|RWB+PvK)}Yx{By)M(k=u#s4^Le_
z8g`74`<+j~1XoR^>Yx)5Oq&8GWjKj22_DR1nEiW&h{EahA=9@6a7?zmQX%kOI5e>P
q{wL3=YYkg1uANZsU7K|~WWVPj=T-8nS-5}fo}_uGrM*&X?*{-88B6N`
literal 0
HcmV?d00001
diff --git a/man/NetoTb5.4.Rd b/man/NetoTb5.4.Rd
new file mode 100644
index 00000000..2d323a66
--- /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}
+
--
GitLab