From 5f66f9d42d7e44595a4ed3b9947dcdfa6be00d7c Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 9 Oct 2016 20:59:31 -0300
Subject: [PATCH] Adiciona Tabela 5.7
---
R/NetoTb5.7.R | 53 +++++++++++++++++++++++++++++++++++
data-raw/NetoTb5.7.txt | 10 +++++++
data/NetoTb5.7.rda | Bin 0 -> 194 bytes
man/NetoTb5.7.Rd | 61 +++++++++++++++++++++++++++++++++++++++++
4 files changed, 124 insertions(+)
create mode 100644 R/NetoTb5.7.R
create mode 100644 data-raw/NetoTb5.7.txt
create mode 100644 data/NetoTb5.7.rda
create mode 100644 man/NetoTb5.7.Rd
diff --git a/R/NetoTb5.7.R b/R/NetoTb5.7.R
new file mode 100644
index 00000000..041417f5
--- /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 00000000..4a112486
--- /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
GIT binary patch
literal 194
zcmZ>Y%CIzaj8qGbG<20e#=y|`|G+;ZA4d*vp(U!$p&9n<cN!cR7#bHabn-d`S7}__
zDi>fJaB%_y?+PKUOlAiL1_oXeW+#S3!<93aaT%U{wQJgh#R1Q)r9U0E+H$F?(CzHC
zYqN7=FU=3)4%c+v>?C$<n|+nCT9%3Qfh0j`7l*52jtycdof-y~-Zm;rO{_M|Z2J~h
yFEuS=%BKmt`RlWICJH$GcD-N{bcIQ2YWRHf!&`Lu`(H3O{}(TEwFsC1ax(z>h)Rh7
literal 0
HcmV?d00001
diff --git a/man/NetoTb5.7.Rd b/man/NetoTb5.7.Rd
new file mode 100644
index 00000000..767e7c6f
--- /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}
+
--
GitLab