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