From 4a1a9c7b7cbea04e8c51a09026521aa74fd2ddf4 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 10 Oct 2016 19:46:43 -0300
Subject: [PATCH] Adiciona Tabela 6.1

---
 R/NetoTb6.1.R          |  32 ++++++++++++++++++++++++++++++++
 data-raw/NetoTb6.1.txt |   8 ++++++++
 data/NetoTb6.1.rda     | Bin 0 -> 179 bytes
 man/NetoTb6.1.Rd       |  40 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 80 insertions(+)
 create mode 100644 R/NetoTb6.1.R
 create mode 100644 data-raw/NetoTb6.1.txt
 create mode 100644 data/NetoTb6.1.rda
 create mode 100644 man/NetoTb6.1.Rd

diff --git a/R/NetoTb6.1.R b/R/NetoTb6.1.R
new file mode 100644
index 00000000..8233d6c3
--- /dev/null
+++ b/R/NetoTb6.1.R
@@ -0,0 +1,32 @@
+#' @name NetoTb6.1
+#' @title Resultados de Um Planejamento 2^2
+#' @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.1, pág. 267)
+#' @examples
+#'
+#' data(NetoTb6.1)
+#' str(NetoTb6.1)
+#'
+#' par(mfrow = c(1,2))
+#'
+#' plot(y ~ x1, data = NetoTb6.1)
+#'
+#' abline(lm(y ~ x1, data = NetoTb6.1), col = 2)
+#'
+#' plot(y ~ x2, data = NetoTb6.1)
+#'
+#' abline(lm(y ~ x2, data = NetoTb6.1), col = 3)
+#'
+NULL
diff --git a/data-raw/NetoTb6.1.txt b/data-raw/NetoTb6.1.txt
new file mode 100644
index 00000000..8a557142
--- /dev/null
+++ b/data-raw/NetoTb6.1.txt
@@ -0,0 +1,8 @@
+x1	x2	y
+-1	-1	69
+1	-1	59
+-1	1	78
+1	1	67
+0	0	68
+0	0	66
+0	0	69
diff --git a/data/NetoTb6.1.rda b/data/NetoTb6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ec5621b50e30edcb4bfbab1690cdedc637bb2fd5
GIT binary patch
literal 179
zcmZ>Y%CIzaj8qGbv~`qkV_+z&Kk#pt2Ll76A%`5Jh=V=*oCgjJ42laFx_E_B=5@Z}
zWjn=_YQnzkDofX5UnxnRhRaMDCsGswHM<$F>0M>dNnOpYtaW_rjOvHn3%Qgm7_5|6
zeY(WF*xlS^*A^ufS%)MSUY!FMxs5k(R$>)f!S^gpvS+1;SY?Lf%;dV6Pdb`r`Q<wO
kJT`sO>f%W+eQxo$Ik}5BE3t<^{1bap<e`(pSC%>n07+0nt^fc4

literal 0
HcmV?d00001

diff --git a/man/NetoTb6.1.Rd b/man/NetoTb6.1.Rd
new file mode 100644
index 00000000..b4fe86fe
--- /dev/null
+++ b/man/NetoTb6.1.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb6.1.R
+\name{NetoTb6.1}
+\alias{NetoTb6.1}
+\title{Resultados de Um Planejamento 2^2}
+\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.1, pág. 267)
+}
+\description{
+Resultados de Um Planejamento 2^2 com ponto central.
+}
+\examples{
+
+data(NetoTb6.1)
+str(NetoTb6.1)
+
+par(mfrow = c(1,2))
+
+plot(y ~ x1, data = NetoTb6.1)
+
+abline(lm(y ~ x1, data = NetoTb6.1), col = 2)
+
+plot(y ~ x2, data = NetoTb6.1)
+
+abline(lm(y ~ x2, data = NetoTb6.1), col = 3)
+
+}
+\keyword{DBC}
+
-- 
GitLab