diff --git a/R/NetoTb4A.8.R b/R/NetoTb4A.8.R new file mode 100644 index 0000000000000000000000000000000000000000..ee2901434ab5f693774363e15d9608c4d8e92f23 --- /dev/null +++ b/R/NetoTb4A.8.R @@ -0,0 +1,46 @@ +#' @name NetoTb4A.8 +#' @title Cura de Uma Resina de Poliéster. +#' @description Investigação da influência de cinco aditivos usados no +#' processo da produção de uma resina sobre seu tempo de gel, +#' utilizou-se um planejamento fracionário 2^(5-1). +#' @format Um \code{data.frame} com 16 observações e 8 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{ens}}{Número do ensaio correspondente.} +#' +#' \item{\code{o}}{Ordem.} +#' +#' \item{\code{f1}}{Hidroquinona.} +#' +#' \item{\code{f2}}{Benzoquinona.} +#' +#' \item{\code{f3}}{Octanoato de cobre.} +#' +#' \item{\code{f4}}{Octanoalto de cobalto.} +#' +#' \item{\code{f5}}{Dimetilanilina.} +#' +#' \item{\code{tem}}{Tempo em gel.} +#' +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 4A.8, pág. 213) +#' @examples +#' +#' data(NetoTb4A.8) +#' str(NetoTb4A.8) +#' +#' tab <- model.matrix(~ f1*f2*f3*f4*f5, data = NetoTb4A.8) +#' +#' y <- NetoTb4A.8$tem +#' +#' contr <- t(tab[, -1]) %*% y +#' +#' ef <- contr/(5 - 1) +#' +#' qqaux<- qqnorm(ef, col = 2, pch = 19); qqline(ef) +#' text(qqaux$x, qqaux$y, rownames(qqaux$y), cex = 0.8, pos = 3) +#' +NULL \ No newline at end of file diff --git a/data-raw/NetoTb4A.8.txt b/data-raw/NetoTb4A.8.txt new file mode 100644 index 0000000000000000000000000000000000000000..9c57166180e6e05be7d6bebc61277d0328102d75 --- /dev/null +++ b/data-raw/NetoTb4A.8.txt @@ -0,0 +1,17 @@ +ens o f1 f2 f3 f4 f5 tem +1 11 -1 -1 -1 -1 1 14.02 +2 4 1 -1 -1 -1 -1 29.42 +3 1 -1 1 -1 -1 -1 26.07 +4 12 1 1 -1 -1 1 17.58 +5 2 -1 -1 1 -1 -1 25.18 +6 13 1 -1 1 -1 1 17.03 +7 14 -1 1 1 -1 1 15.24 +8 16 1 1 1 -1 -1 33.54 +9 3 -1 -1 -1 1 -1 18.3 +10 9 1 -1 -1 1 1 12.17 +11 10 -1 1 -1 1 1 10.57 +12 5 1 1 -1 1 -1 22.2 +13 15 -1 -1 1 1 1 10.19 +14 8 1 -1 1 1 -1 23.52 +15 6 -1 1 1 1 -1 21.14 +16 7 1 1 1 1 1 13.1 diff --git a/data/NetoTb4A.8.rda b/data/NetoTb4A.8.rda new file mode 100644 index 0000000000000000000000000000000000000000..d4f343faf0a06811485a565c4f98157f5aa2262c Binary files /dev/null and b/data/NetoTb4A.8.rda differ diff --git a/man/NetoTb4A.8.Rd b/man/NetoTb4A.8.Rd new file mode 100644 index 0000000000000000000000000000000000000000..e63f45127622e9219305e481c46d41b68afb3477 --- /dev/null +++ b/man/NetoTb4A.8.Rd @@ -0,0 +1,54 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb4A.8.R +\name{NetoTb4A.8} +\alias{NetoTb4A.8} +\title{Cura de Uma Resina de Poliéster.} +\format{Um \code{data.frame} com 16 observações e 8 variáveis, em que + +\describe{ + +\item{\code{ens}}{Número do ensaio correspondente.} + +\item{\code{o}}{Ordem.} + +\item{\code{f1}}{Hidroquinona.} + +\item{\code{f2}}{Benzoquinona.} + +\item{\code{f3}}{Octanoato de cobre.} + +\item{\code{f4}}{Octanoalto de cobalto.} + +\item{\code{f5}}{Dimetilanilina.} + +\item{\code{tem}}{Tempo em gel.} + + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 4A.8, pág. 213) +} +\description{ +Investigação da influência de cinco aditivos usados no + processo da produção de uma resina sobre seu tempo de gel, + utilizou-se um planejamento fracionário 2^(5-1). +} +\examples{ + +data(NetoTb4A.8) +str(NetoTb4A.8) + +tab <- model.matrix(~ f1*f2*f3*f4*f5, data = NetoTb4A.8) + +y <- NetoTb4A.8$tem + +contr <- t(tab[, -1]) \%*\% y + +ef <- contr/(5 - 1) + +qqaux<- qqnorm(ef, col = 2, pch = 19); qqline(ef) +text(qqaux$x, qqaux$y, rownames(qqaux$y), cex = 0.8, pos = 3) + +} +\keyword{DBC} +