diff --git a/R/NetoTb4.10.R b/R/NetoTb4.10.R new file mode 100644 index 0000000000000000000000000000000000000000..748a46039d726376777a56c20ef8f951e4f4e51c --- /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 0000000000000000000000000000000000000000..098f93b2cad087059d22fffc1275cadbf55c8436 --- /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 Binary files /dev/null and b/data/NetoTb4.10.rda differ diff --git a/man/NetoTb4.10.Rd b/man/NetoTb4.10.Rd new file mode 100644 index 0000000000000000000000000000000000000000..c1ff282fa31dd73f428a795888535adec6618bd2 --- /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} +