Adiciona Tabela 6.3

R/NetoTb6.3.R

+#' @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

data-raw/NetoTb6.3.txt

+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

man/NetoTb6.3.Rd

+% 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}
+