From b45089b7c8a0c8fdfb7bcf38a9c4c885cb14ba93 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Sun, 9 Oct 2016 20:14:52 -0300 Subject: [PATCH] Adiciona Tabela 4A.8 --- R/NetoTb4A.8.R | 46 ++++++++++++++++++++++++++++++++++ data-raw/NetoTb4A.8.txt | 17 +++++++++++++ data/NetoTb4A.8.rda | Bin 0 -> 381 bytes man/NetoTb4A.8.Rd | 54 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 117 insertions(+) create mode 100644 R/NetoTb4A.8.R create mode 100644 data-raw/NetoTb4A.8.txt create mode 100644 data/NetoTb4A.8.rda create mode 100644 man/NetoTb4A.8.Rd diff --git a/R/NetoTb4A.8.R b/R/NetoTb4A.8.R new file mode 100644 index 00000000..ee290143 --- /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 00000000..9c571661 --- /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 GIT binary patch literal 381 zcmZ>Y%CIzaj8qGb^l7{>mx0mk|NsC0->~w9+J8zpYI4Ay|IQ321{MY$Mg|8aHiiZT z9tXw^jK&geUBYV17s@r|hg^1>7jUe}glEPKUt3d#V;5~5S6pH-sSNhvNMK-KXk%bt zVCh=<O2Ws-O(Ao!k6Oba#*UMV)tucFzVOH|U~hO}RNQ)w^Q90U=LE5`)-$PR_%^c1 z86+&5;Sij7TAMw~qx!?o%hRL`oLjcf^vo=a6`aC1{X{{Ll9x&I_un!{T2>qEU;mhi zMdJ;Jlybt#@V+hQJXUlt?wfGTz;Wh6%{LwmlDxf3WnXT1=$tID*ueEz(VYtmCS6fn zsBLI>>dlq&Q**-Kx~G@^Z&NZTxfZoTKPLN7G3R9+hT=so55BwYT9mRg)Y3#DcZsCk zwGTG>S;<j}K1sH>OU!%sJ#9PQVgGmcO_symPYQ1?i0Yhk-1p##UGmd=lgg7qBA+rU oe>jrh$mzMtVZkElD}hElf`ZZq%D0%!{HOP%t6-tROy-4F04Y(Tn*aa+ literal 0 HcmV?d00001 diff --git a/man/NetoTb4A.8.Rd b/man/NetoTb4A.8.Rd new file mode 100644 index 00000000..e63f4512 --- /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} + -- GitLab