From a744fed0cfc413509dcd0892beda2c24e291e838 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 25 Sep 2016 00:44:18 -0300
Subject: [PATCH] Adiciona Tabela 4.10

---
 R/NetoTb4.10.R          |  53 ++++++++++++++++++++++++++++++++++
 data-raw/NetoTb4.10.txt |   9 ++++++
 data/NetoTb4.10.rda     | Bin 0 -> 243 bytes
 man/NetoTb4.10.Rd       |  61 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 123 insertions(+)
 create mode 100644 R/NetoTb4.10.R
 create mode 100644 data-raw/NetoTb4.10.txt
 create mode 100644 data/NetoTb4.10.rda
 create mode 100644 man/NetoTb4.10.Rd

diff --git a/R/NetoTb4.10.R b/R/NetoTb4.10.R
new file mode 100644
index 00000000..748a4603
--- /dev/null
+++ b/R/NetoTb4.10.R
@@ -0,0 +1,53 @@
+#' @name NetoTb4.10
+#' @title Saque de um Tenista amador
+#' @description Planejamento fracionário saturado de 8 ensaios para 
+#'     verificar como sete variáveis afetam o saque de um tenista amador
+#' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ensaio}}{Número correspondente ao ensaio.}
+#'
+#' \item{\code{f1}}{Fator 1: técnica.}
+#' 
+#' \item{\code{f2}}{Fator 2: frequência.}
+#' 
+#' \item{\code{f3}}{Fator 3: hora.}
+#' 
+#' \item{\code{f4}}{Fator 4: revestimento.}
+#' 
+#' \item{\code{f5}}{Fator 5: lado.}
+#' 
+#' \item{\code{f6}}{Fator 6: camisa.}
+#' 
+#' \item{\code{f7}}{Fator 7: raquete.}
+#'
+#' \item{acert}{percentual de acertos.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.10, pág.186)
+#' @examples
+#'
+#' data(NetoTb4.10)
+#' str(NetoTb4.10)
+#'
+#' par(mfrow = c(2,2))
+#'
+#' plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica", 
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
+#'
+#' plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
+#'
+#' plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+#'
+#' plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
+#'      ylab = "Acertos (%)")
+#' abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.10.txt b/data-raw/NetoTb4.10.txt
new file mode 100644
index 00000000..098f93b2
--- /dev/null
+++ b/data-raw/NetoTb4.10.txt
@@ -0,0 +1,9 @@
+ensaio	f1	f2	f3	f4	f5	f6	f7	acert
+1	-1	-1	-1	+1	+1	+1	-1	56
+2	+1	-1	-1	-1	-1	+1	+1	66
+3	-1	+1	-1	-1	+1	-1	+1	51
+4	+1	+1	-1	+1	-1	-1	-1	52
+5	-1	-1	+1	+1	-1	-1	+1	54
+6	+1	-1	+1	-1	+1	-1	-1	70
+7	-1	+1	+1	-1	-1	+1	-1	42
+8	+1	+1	+1	+1	+1	+1	+1	64
diff --git a/data/NetoTb4.10.rda b/data/NetoTb4.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d104a238cdec3d512dddfee0da0263ee05faa04f
GIT binary patch
literal 243
zcmZ>Y%CIzaj8qGbEdE=#kAdO+{{#QOc`z^t)*lFE6mhUupVQ#Lz~H!n;p(=-F2ScV
z7hmEvxz*z<Wx~LJs#$2>%4M@E6&OqyOc*j$LK#k6$Y7jcBE>jyYJ;Le&@SP&bk8XZ
z0^Y?P@@x|9H1W;xdB(-hl&m<7Prp(k!6$Li-Hq3N>8uq^a_9)lEN^RKl$7FK^Y{3a
z!n6Hz)RrxDGVe4|DahbvIB?8O`k;$IR$vedV=3R(yI(K*r%w7XlcjpqmM7^|yW>^~
yf4^&y8sBkXnqaVU&rH?V^G(ey{EAO~&K20E*dhGgz-%_#Yw;pii+~9rPXYkXkz`;1

literal 0
HcmV?d00001

diff --git a/man/NetoTb4.10.Rd b/man/NetoTb4.10.Rd
new file mode 100644
index 00000000..c1ff282f
--- /dev/null
+++ b/man/NetoTb4.10.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.10.R
+\name{NetoTb4.10}
+\alias{NetoTb4.10}
+\title{Saque de um Tenista amador}
+\format{Um \code{data.frame} com 8 observações e 9 variáveis, em que
+
+\describe{
+
+\item{\code{ensaio}}{Número correspondente ao ensaio.}
+
+\item{\code{f1}}{Fator 1: técnica.}
+
+\item{\code{f2}}{Fator 2: frequência.}
+
+\item{\code{f3}}{Fator 3: hora.}
+
+\item{\code{f4}}{Fator 4: revestimento.}
+
+\item{\code{f5}}{Fator 5: lado.}
+
+\item{\code{f6}}{Fator 6: camisa.}
+
+\item{\code{f7}}{Fator 7: raquete.}
+
+\item{acert}{percentual de acertos.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.10, pág.186)
+}
+\description{
+Planejamento fracionário saturado de 8 ensaios para 
+    verificar como sete variáveis afetam o saque de um tenista amador
+}
+\examples{
+
+data(NetoTb4.10)
+str(NetoTb4.10)
+
+par(mfrow = c(2,2))
+
+plot(acert ~ f1, data = NetoTb4.10, xlab = "Técnica", 
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f1, data = NetoTb4.10), col = 2)
+
+plot(acert ~ f2, data = NetoTb4.10, xlab = "Frequência",
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f2, data = NetoTb4.10), col = 2)
+
+plot(acert ~ f6, data = NetoTb4.10, xlab = "Camisa",
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f6, data = NetoTb4.10), col = 2)
+
+plot(acert ~ f7, data = NetoTb4.10, xlab = "Raquete",
+     ylab = "Acertos (\%)")
+abline(lm(acert ~ f7, data = NetoTb4.10), col = 2)
+
+}
+\keyword{DBC}
+
-- 
GitLab