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