Adiciona Tabela 4.10

R/NetoTb4.10.R

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

data-raw/NetoTb4.10.txt

+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

man/NetoTb4.10.Rd

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