From b43cc22960b98f62798bbcc8a8945716c0534906 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 10 Oct 2016 19:57:14 -0300
Subject: [PATCH] Adiciona Tabela 6.5 & modifica Tabela 6.3

---
 R/NetoTb6.5.R          |  32 ++++++++++++++++++++++++++++++++
 data-raw/NetoTb6.5.txt |   8 ++++++++
 data/NetoTb6.3.rda     | Bin 182 -> 243 bytes
 data/NetoTb6.5.rda     | Bin 0 -> 181 bytes
 man/NetoTb6.5.Rd       |  40 ++++++++++++++++++++++++++++++++++++++++
 5 files changed, 80 insertions(+)
 create mode 100644 R/NetoTb6.5.R
 create mode 100644 data-raw/NetoTb6.5.txt
 create mode 100644 data/NetoTb6.5.rda
 create mode 100644 man/NetoTb6.5.Rd

diff --git a/R/NetoTb6.5.R b/R/NetoTb6.5.R
new file mode 100644
index 00000000..ff068b79
--- /dev/null
+++ b/R/NetoTb6.5.R
@@ -0,0 +1,32 @@
+#' @name NetoTb6.5
+#' @title Resultados de Um Novo Planejamento 2^2 com Ponto Central
+#' @description Resultados de um planejamento 2^2 com ponto central.
+#' @format Um \code{data.frame} com 7 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x1}}{Valores do fator 1.}
+#' 
+#' \item{\code{x2}}{Valores do fator 2.}
+#' 
+#' \item{\code{y}}{Resposta.}
+#' 
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 6.5, pág. 273)
+#' @examples
+#'
+#' data(NetoTb6.5)
+#' str(NetoTb6.5)
+#'
+#' par(mfrow = c(1,2))
+#'
+#' plot(y ~ x1, data = NetoTb6.5)
+#'
+#' abline(lm(y ~ x1, data = NetoTb6.5), col = 2)
+#'
+#' plot(y ~ x2, data = NetoTb6.5)
+#'
+#' abline(lm(y ~ x2, data = NetoTb6.5), col = 3)
+#'
+NULL
diff --git a/data-raw/NetoTb6.5.txt b/data-raw/NetoTb6.5.txt
new file mode 100644
index 00000000..f35ae8eb
--- /dev/null
+++ b/data-raw/NetoTb6.5.txt
@@ -0,0 +1,8 @@
+x1	x2	y
+-1	-1	86
+1	-1	85
+-1	1	78
+1	1	84
+0	0	90
+0	0	88
+0	0	89
diff --git a/data/NetoTb6.3.rda b/data/NetoTb6.3.rda
index f2cb5fe9155c4bc46e8f161232673cf93332c557..ec0f98204e7093ebcfa65f5903e06d43611c44c0 100644
GIT binary patch
literal 243
zcmZ>Y%CIzaj8qGb+&m|{ih-f}|LuRpK8y^EmQ2@~OC9Xl|2%MF;9y{IU}#{_VaVUW
zu<b;zrpblNzKjc`GMFziE|3;9VhIjD$se34l_(+XE7vF`mDw<hL8#R~fI*6Zt$~4o
zK`NQCL3PR^o@0t0ECyXB>Mr}*IJTwTFL^)z{OuqH=hWr$iX5z^j!)|*f4ET4x<Hgg
zW|4tMiqeXw1_zEf7#2mnX*lhpk^5+>aKSFqFL!yKOfFe$&^*IomTRQYsZBvC??aP(
xxK2rA9#@!{@A}}jawV(aIkkwNCSM{JxceL{eC8tkMf~r7@gi4?fC(T^0sxM;UL61c

literal 182
zcmZ>Y%CIzaj8qGbJQp1~fq|i{{=mOo9t;eOmK<`7A`bTKa~?P_Feoly=;9ShnYV1-
zg0IY`ytXE@m@j8FxdwJlT-Gzw<iZ6LBeo6^ucQNIQ*SJIo3k-7B{kyPX7N}KJAp;Y
z4a}>o*7GW8XWV+b=tdwDH$##OuTH~7VWZ8}N~~%txX+w1vbe}x`00X?QSZ*DO-fwp
pmRq?WzdSQFdQSh8vkSf-@%XSsQow3I|D$&v%ejOkPiGr3003wvNnii~

diff --git a/data/NetoTb6.5.rda b/data/NetoTb6.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e489df3413c8eec0ce343d02bd7f9347022697c4
GIT binary patch
literal 181
zcmZ>Y%CIzaj8qGbylM73n}MOY{=mOo9t;eO#tbZs;sy5Xa~?P_Feoly=;Gx{ndkXR
zimmyIvBza+vlS|#5^Zg5jT17GQVwwmOkBgnpX#Bwa;t$s&q|36$E~fxZyC;7!@#6n
zDtF7l=i=Fm`#J)d_!<nA*rqvTbk2;tI+1DZ3HD-R-fcful>SKgU8$B9w|7Bkpv}|C
nS2o_Z=G1HvFWF?yd_QC2-6N6$R(Ac5-gzwN5|UQCpPK*x&;Upg

literal 0
HcmV?d00001

diff --git a/man/NetoTb6.5.Rd b/man/NetoTb6.5.Rd
new file mode 100644
index 00000000..15642f2a
--- /dev/null
+++ b/man/NetoTb6.5.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb6.5.R
+\name{NetoTb6.5}
+\alias{NetoTb6.5}
+\title{Resultados de Um Novo Planejamento 2^2 com Ponto Central}
+\format{Um \code{data.frame} com 7 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{x1}}{Valores do fator 1.}
+
+\item{\code{x2}}{Valores do fator 2.}
+
+\item{\code{y}}{Resposta.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 6.5, pág. 273)
+}
+\description{
+Resultados de um planejamento 2^2 com ponto central.
+}
+\examples{
+
+data(NetoTb6.5)
+str(NetoTb6.5)
+
+par(mfrow = c(1,2))
+
+plot(y ~ x1, data = NetoTb6.5)
+
+abline(lm(y ~ x1, data = NetoTb6.5), col = 2)
+
+plot(y ~ x2, data = NetoTb6.5)
+
+abline(lm(y ~ x2, data = NetoTb6.5), col = 3)
+
+}
+\keyword{DBC}
+
-- 
GitLab