Merge branch 'lineu182' into devel

R/NetoEx4.8.R

+#' @name NetoEx4.8
+#' @title Otimização de Reação Orgânica com Fatorial Fracionado
+#' @description Resultados de um experimento fatorial \eqn{2^4} com uma
+#'     fração 1/2 cujo objetivo era a otimização de uma reação orgânica.
+#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{f1}}{Temperatura: ambiente e refluxo.}
+#'
+#' \item{\code{f2}}{Base: \eqn{K_2CO_3/NaOH} e \eqn{K_2CO_3}.}
+#'
+#' \item{\code{f3}}{Solvente: \eqn{CH_2Cl_2} e \eqn{CH_3CN}.}
+#'
+#' \item{\code{f4}}{Catalisador: nenhum e TEBA.}
+#'
+#' \item{\code{resp}}{Rendimento da reação (\%).}
+#'
+#' }
+#' @keywords FRAC
+#' @source NETO et al. (2010), Exercício 4.8, pág. 176.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoEx4.8)
+#' str(NetoEx4.8)
+#'
+#' xyplot(rend ~ f1 | f2, groups = f4, data = NetoEx4.8,
+#'        type = c("p", "a"), auto.key = TRUE)
+#'
+NULL

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. As 8 corridas são um ensaio completo \eqn{2^3} para os 3
+#'     primeiros fatores. Foram usadas as relações de definição ABD,
+#'     ACE, BDC e ABCG.
+#' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{A}}{Técnica: chapada e cortada.}
+#'
+#' \item{\code{B}}{Frequência: baixa e alta.}
+#'
+#' \item{\code{C}}{Hora: dia e noite.}
+#'
+#' \item{\code{D}}{Revestimento: saibro e concreto.}
+#'
+#' \item{\code{E}}{Lado: direito e esquerdo.}
+#'
+#' \item{\code{F}}{Camisa: com e sem.}
+#'
+#' \item{\code{G}}{Raquete: média e grande.}
+#'
+#' \item{\code{acert}}{Percentual de acertos do tenista.}
+#'
+#' }
+#' @keywords FRAC
+#' @source NETO et al. (2010), Tabela 4.10, pág. 186.
+#' @examples
+#'
+#' data(NetoTb4.10)
+#' str(NetoTb4.10)
+#' NetoTb4.10
+#'
+#' library(lattice)
+#'
+#' xyplot(acert ~ A + B + C + D + E + F + G,
+#'        outer = TRUE,
+#'        data = NetoTb4.10,
+#'        as.table = TRUE,
+#'        type = c("p", "a"))
+#'
+NULL

R/NetoTb4.12.R

+#' @name NetoTb4.12
+#' @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, idêntico à \code{link{tabela 4.10}}, porém com os sinais
+#'     do fator E invertidos.
+#' @format Um \code{data.frame} com 8 observações e 9 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{A}}{Técnica: chapada e cortada.}
+#'
+#' \item{\code{B}}{Frequência: baixa e alta.}
+#'
+#' \item{\code{C}}{Hora: dia e noite.}
+#'
+#' \item{\code{D}}{Revestimento: saibro e concreto.}
+#'
+#' \item{\code{E}}{Lado: direito e esquerdo.}
+#'
+#' \item{\code{F}}{Camisa: com e sem.}
+#'
+#' \item{\code{G}}{Raquete: média e grande.}
+#'
+#' \item{\code{acert}}{Percentual de acertos do tenista.}
+#'
+#' }
+#' @keywords FRAC
+#' @source NETO et al. (2010), Tabela 4.10, pág. 186.
+#' @examples
+#'
+#' data(NetoTb4.12)
+#' str(NetoTb4.12)
+#'
+#' library(lattice)
+#'
+#' xyplot(acert ~ A + B + C + D + E + F + G,
+#'        outer = TRUE,
+#'        data = NetoTb4.12,
+#'        as.table = TRUE,
+#'        type = c("p", "a"))
+#'
+NULL

R/NetoTb4.18.R

+#' @name NetoTb4.18
+#' @title Planejamento de Taguchi
+#' @description Planejamento de Taguchi para o desenvolvimento de uma
+#'     mistura de bolo.
+#' @format Um \code{data.frame} com 8 observações e 8 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Farin}}{Farinha.}
+#'
+#' \item{\code{Gordu}}{Gordura.}
+#'
+#' \item{\code{Acucar}}{Açúcar.}
+#'
+#' \item{\code{Ovos}}{Ovos.}
+#'
+#' \item{\code{Temper}}{Temperatura.}
+#'
+#' \item{\code{Leite}}{Leite.}
+#'
+#' \item{\code{Tempo}}{Tempo.}
+#'
+#' \item{\code{textura}}{Textura do bolo.}
+#'
+#' }
+#' @keywords Taguchi
+#' @source NETO et al. (2010), tabela 4.18, pág. 196.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb4.18)
+#' str(NetoTb4.18)
+#'
+#' aggregate(textura ~ Ovos + Acucar + Gordu + Farin,
+#'           data = NetoTb4.18,
+#'           FUN = function(y) c(m = mean(y), s = sd(y)))
+#'
+#' xyplot(textura ~ Ovos + Acucar + Gordu + Farin + Tempo + Temper + Leite,
+#'        outer = TRUE,
+#'        data = NetoTb4.18, type = c("p", "a"),
+#'        as.table = TRUE)
+#'
+NULL

R/NetoTb4.2.R

+#' @name NetoTb4.2
+#' @title Ação Catalítica do Mo(VI)
+#' @description Resultados de um experimento fatorial \eqn{2^4}
+#'     completo, realizado para estudar a resposta catalítica do Mo(VI).
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f4}}{Tempo: 90 e 130 segundos.}
+#'
+#' \item{resp}{Sinal analítico.}
+#'
+#' }
+#' @keywords FRAC
+#' @source NETO et al. (2010), tabela 4.2, pág. 167.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb4.2)
+#' str(NetoTb4.2)
+#'
+#' xyplot(resp ~ f1 | f2 + f3,
+#'        groups = f4,
+#'        data = NetoTb4.2,
+#'        type = c("p", "a"),
+#'        auto.key = TRUE)
+#'
+NULL

R/NetoTb4.6.R

+#' @name NetoTb4.6
+#' @title Fatorial Fracionado para o Estudo da Resposta Catalítica do
+#'     Mo(VI)
+#' @description Resultados de um experimento fatorial fracionado
+#'     \eqn{2^{5-1}}, realizado para estudar a ação catalítica do
+#'     Mo(VI).
+#' @format Um \code{data.frame} com 16 observações e 7 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{f1}}{Concentração de \eqn{H_2SO_4}: 0.16 e 0.32 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f2}}{Concentração de \eqn{KI}: 0.015 e 0.030 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f3}}{Concentração de \eqn{H_2O_2}: 0.0020 e 0.0040 mol
+#'     L\eqn{^{-1}}.}
+#'
+#' \item{\code{f4}}{Tempo: 90 e 130 segundos.}
+#'
+#' \item{\code{f5}}{Fluxo: 1.2 e 3.0 mL min\eqn{^{-1}}.}
+#'
+#' \item{resp}{Sinal analítico.}
+#'
+#' }
+#' @keywords FRAC
+#' @source NETO et al. (2010), tabela 4.6, pág. 177.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb4.6)
+#' str(NetoTb4.6)
+#'
+#' xyplot(resp ~ f1 + f2 + f3 + f4 + f5,
+#'        type = c("p", "a"),
+#'        outer = TRUE,
+#'        data = NetoTb4.6,
+#'        as.table = TRUE)
+#'
+NULL

data-raw/NetoEx4.8.txt

+ensaio	f1	f2	f3	f4	rend
+1	-1	-1	-1	-1	0
+2	+1	-1	-1	+1	70
+3	-1	+1	-1	+1	65
+4	+1	+1	-1	-1	0
+5	-1	-1	+1	+1	100
+6	+1	-1	+1	-1	85
+7	-1	+1	+1	-1	50
+8	+1	+1	+1	+1	95

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

data-raw/NetoTb4.12.txt

+ensaio	f1	f2	f3	f4	f5	f6	f7	acert
+1	-1	-1	-1	+1	-1	+1	-1	52
+2	+1	-1	-1	-1	+1	+1	+1	74
+3	-1	+1	-1	-1	-1	-1	+1	50
+4	+1	+1	-1	+1	+1	-1	-1	60
+5	-1	-1	+1	+1	+1	-1	+1	54
+6	+1	-1	+1	-1	-1	-1	-1	62
+7	-1	+1	+1	-1	+1	+1	-1	50
+8	+1	+1	+1	+1	-1	+1	+1	63

data-raw/NetoTb4.18.txt

+F	G	A	O	f1	f2	f3	f4	ybar
+-1	-1	-1	-1	85	96	97	92	92.5
+-1	-1	-1	1	82	81	78	79	80
+-1	1	1	-1	75	80	70	73	74.5
+-1	1	1	1	66	75	83	70	73.5
+1	-1	1	-1	84	91	95	90	90
+1	-1	1	1	78	72	80	69	74.8
+1	1	-1	-1	86	85	90	91	88
+1	1	-1	1	86	82	77	75	80

data-raw/NetoTb4.2.txt

+ensaio	f1	f2	f3	f4	resp
+1	-1	-1	-1	-1	52
+2	+1	-1	-1	-1	61
+3	-1	+1	-1	-1	124
+4	+1	+1	-1	-1	113
+5	-1	-1	+1	-1	85
+6	+1	-1	+1	-1	66
+7	-1	+1	+1	-1	185
+8	+1	+1	+1	-1	192
+9	-1	-1	-1	+1	98
+10	+1	-1	-1	+1	86
+11	-1	+1	-1	+1	201
+12	+1	+1	-1	+1	194
+13	-1	-1	+1	+1	122
+14	+1	-1	+1	+1	139
+15	-1	+1	+1	+1	289
+16	+1	+1	+1	+1	286

data-raw/NetoTb4.6.txt

+ord	f1	f2	f3	f4	f5	resp
+5	-1	-1	-1	-1	+1	52
+13	+1	-1	-1	-1	-1	61
+12	-1	+1	-1	-1	-1	124
+4	+1	+1	-1	-1	+1	113
+11	-1	-1	+1	-1	-1	85
+3	+1	-1	+1	-1	+1	66
+6	-1	+1	+1	-1	+1	185
+14	+1	+1	+1	-1	-1	192
+10	-1	-1	-1	+1	-1	98
+2	+1	-1	-1	+1	+1	86
+7	-1	+1	-1	+1	+1	201
+15	+1	+1	-1	+1	-1	194
+8	-1	-1	+1	+1	+1	122
+16	+1	-1	+1	+1	-1	139
+9	-1	+1	+1	+1	-1	289
+1	+1	+1	+1	+1	+1	286

man/NetoEx4.8.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx4.8.R
+\name{NetoEx4.8}
+\alias{NetoEx4.8}
+\title{Otimização de Reação Orgânica com Fatorial Fracionado}
+\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{f1}}{Temperatura: ambiente e refluxo.}
+
+\item{\code{f2}}{Base: \eqn{K_2CO_3/NaOH} e \eqn{K_2CO_3}.}
+
+\item{\code{f3}}{Solvente: \eqn{CH_2Cl_2} e \eqn{CH_3CN}.}
+
+\item{\code{f4}}{Catalisador: nenhum e TEBA.}
+
+\item{\code{resp}}{Rendimento da reação (\%).}
+
+}}
+\source{
+NETO et al. (2010), Exercício 4.8, pág. 176.
+}
+\description{
+Resultados de um experimento fatorial \eqn{2^4} com uma
+    fração 1/2 cujo objetivo era a otimização de uma reação orgânica.
+}
+\examples{
+
+library(lattice)
+
+data(NetoEx4.8)
+str(NetoEx4.8)
+
+xyplot(rend ~ f1 | f2, groups = f4, data = NetoEx4.8,
+       type = c("p", "a"), auto.key = TRUE)
+
+}
+\keyword{FRAC}
+

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{A}}{Técnica: chapada e cortada.}
+
+\item{\code{B}}{Frequência: baixa e alta.}
+
+\item{\code{C}}{Hora: dia e noite.}
+
+\item{\code{D}}{Revestimento: saibro e concreto.}
+
+\item{\code{E}}{Lado: direito e esquerdo.}
+
+\item{\code{F}}{Camisa: com e sem.}
+
+\item{\code{G}}{Raquete: média e grande.}
+
+\item{\code{acert}}{Percentual de acertos do tenista.}
+
+}}
+\source{
+NETO et al. (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. As 8 corridas são um ensaio completo \eqn{2^3} para os 3
+    primeiros fatores. Foram usadas as relações de definição ABD,
+    ACE, BDC e ABCG.
+}
+\examples{
+
+data(NetoTb4.10)
+str(NetoTb4.10)
+NetoTb4.10
+
+library(lattice)
+
+xyplot(acert ~ A + B + C + D + E + F + G,
+       outer = TRUE,
+       data = NetoTb4.10,
+       as.table = TRUE,
+       type = c("p", "a"))
+
+}
+\keyword{FRAC}
+