From 98ca1bc044436f73b35968cde594b6ef7f225dbc Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 10 Oct 2016 19:50:07 -0300
Subject: [PATCH] Adiciona Tabela 6.3

---
 R/NetoTb6.3.R          |  33 +++++++++++++++++++++++++++++++++
 data-raw/NetoTb6.3.txt |   9 +++++++++
 data/NetoTb6.3.rda     | Bin 0 -> 182 bytes
 man/NetoTb6.3.Rd       |  41 +++++++++++++++++++++++++++++++++++++++++
 4 files changed, 83 insertions(+)
 create mode 100644 R/NetoTb6.3.R
 create mode 100644 data-raw/NetoTb6.3.txt
 create mode 100644 data/NetoTb6.3.rda
 create mode 100644 man/NetoTb6.3.Rd

diff --git a/R/NetoTb6.3.R b/R/NetoTb6.3.R
new file mode 100644
index 00000000..778390e9
--- /dev/null
+++ b/R/NetoTb6.3.R
@@ -0,0 +1,33 @@
+#' @name NetoTb6.3
+#' @title Caminho de Máxima Inclinação
+#' @description O caminho de máxima inclinação pode ser determinado 
+#'     algebricamente a partir dos coeficientes do modelo.
+#' @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.3, pág. 271)
+#' @examples
+#'
+#' data(NetoTb6.3)
+#' str(NetoTb6.3)
+#'
+#' par(mfrow = c(1,2))
+#'
+#' plot(y ~ x1, data = NetoTb6.3)
+#'
+#' abline(lm(y ~ x1, data = NetoTb6.3), col = 2)
+#'
+#' plot(y ~ x2, data = NetoTb6.3)
+#'
+#' abline(lm(y ~ x2, data = NetoTb6.3), col = 3)
+#'
+NULL
diff --git a/data-raw/NetoTb6.3.txt b/data-raw/NetoTb6.3.txt
new file mode 100644
index 00000000..1faabbc2
--- /dev/null
+++ b/data-raw/NetoTb6.3.txt
@@ -0,0 +1,9 @@
+x1	x2	y
+0	0	68
+0	0	66
+0	0	69
+-1	0.81	77
+-2	1.62	86
+-3	2.43	88
+-4	3.24	80
+-5	4.05	70
diff --git a/data/NetoTb6.3.rda b/data/NetoTb6.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f2cb5fe9155c4bc46e8f161232673cf93332c557
GIT binary patch
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~

literal 0
HcmV?d00001

diff --git a/man/NetoTb6.3.Rd b/man/NetoTb6.3.Rd
new file mode 100644
index 00000000..3ff9aaed
--- /dev/null
+++ b/man/NetoTb6.3.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb6.3.R
+\name{NetoTb6.3}
+\alias{NetoTb6.3}
+\title{Caminho de Máxima Inclinação}
+\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.3, pág. 271)
+}
+\description{
+O caminho de máxima inclinação pode ser determinado 
+    algebricamente a partir dos coeficientes do modelo.
+}
+\examples{
+
+data(NetoTb6.3)
+str(NetoTb6.3)
+
+par(mfrow = c(1,2))
+
+plot(y ~ x1, data = NetoTb6.3)
+
+abline(lm(y ~ x1, data = NetoTb6.3), col = 2)
+
+plot(y ~ x2, data = NetoTb6.3)
+
+abline(lm(y ~ x2, data = NetoTb6.3), col = 3)
+
+}
+\keyword{DBC}
+
-- 
GitLab