From ed62e5a1765f57ccafa0fdb6f6c3b4b0c5234402 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 12 Sep 2016 14:06:03 -0300
Subject: [PATCH] Adiciona Tabela 3A.3

---
 R/NetoTb3A.3.R          |  51 ++++++++++++++++++++++++++++++++++
 data-raw/NetoTb3A.3.txt |   9 ++++++
 data/NetoTb3A.3.rda     | Bin 0 -> 287 bytes
 man/NetoTb3A.3.Rd       |  59 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 119 insertions(+)
 create mode 100644 R/NetoTb3A.3.R
 create mode 100644 data-raw/NetoTb3A.3.txt
 create mode 100644 data/NetoTb3A.3.rda
 create mode 100644 man/NetoTb3A.3.Rd

diff --git a/R/NetoTb3A.3.R b/R/NetoTb3A.3.R
new file mode 100644
index 00000000..6bd32e21
--- /dev/null
+++ b/R/NetoTb3A.3.R
@@ -0,0 +1,51 @@
+#' @name NetoTb3A.3
+#' @title Tempo de Retenção em Cromatografia Líquida
+#' @description Um fatorial foi usado para investigar como o tempo de 
+#'     retenção de um pico obtido em um cromatógrafo líquido é afetado 
+#'     pela porcentagem de etanol, temperatura e fluxo de gás. 
+#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, temperatura.}
+#' 
+#' \item{\code{f2}}{Fator 2, porcentagem de etanol.}
+#' 
+#' \item{\code{f3}}{Fator 3, fluxo.}
+#' 
+#' \item{\code{temp}}{tempo de retenção.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+#' @examples
+#'
+#' data(NetoTb3A.3)
+#' str(NetoTb3A.3)
+#'
+#' par(mfrow = c(1,3))
+#'
+#' with(NetoTb3A.3, interaction.plot(f1, f2, temp, 
+#'                                   xlab = "Temperatura", 
+#'                                   ylab = "Tempo Médio",
+#'                                   main = "Interação entre 
+#'                                   Temperatura e % de etanol",
+#'                                   col = "green"))
+#'
+#' with(NetoTb3A.3, interaction.plot(f1, f3, temp,
+#'                                   xlab = "Temperatura", 
+#'                                   ylab = "Tempo Médio",
+#'                                   main = "Interação entre 
+#'                                   Temperatura e Fluxo",
+#'                                   col = "blue"))
+#'
+#'  with(NetoTb3A.3, interaction.plot(f2, f3, temp,
+#'                                    xlab = "% de etanol", 
+#'                                    ylab = "Tempo Médio",
+#'                                    main = "Interação entre % de 
+#'                                    etanol e Fluxo",
+#'                                    col = "red"))
+#'                                    
+NULL
diff --git a/data-raw/NetoTb3A.3.txt b/data-raw/NetoTb3A.3.txt
new file mode 100644
index 00000000..dd4cef15
--- /dev/null
+++ b/data-raw/NetoTb3A.3.txt
@@ -0,0 +1,9 @@
+ens	f1	f2	f3	temp	
+1	-1	-1	-1	49.26	
+2	+1	-1	-1	31.27	
+3	-1	+1	-1	42.2	
+4	+1	+1	-1	26.61	
+5	-1	-1	+1	23.81	
+6	+1	-1	+1	15.07	
+7	-1	+1	+1	19.57	
+8	+1	+1	+1	12.86	
diff --git a/data/NetoTb3A.3.rda b/data/NetoTb3A.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c8a434e13d3e5d3adf78071cc35ac2df550efb40
GIT binary patch
literal 287
zcmZ>Y%CIzaj8qGbEaz_&XJA-a|NsAYA4QHti%HK8nz-1r-<jaVu)suxk-<TLp`k&6
zgUN9N!?hF_6=@GC1_mPr2DS!%-=$^~GSye*y0v#QK!HlA$&7i+X3R25Nivd3$y_!o
z*Ky)924{OlmP;-6Ifon)C$?%#o3?<(;&q$I_A{l6a<-^;E6e}h_k2O<%+KpI1h`ul
zH3xjXK9gsPhd`jfC1Zn-SsaXwJc83b4!AFWlcz4*cyRM+<Jyl|yDESGe#N^feeq<$
z%D<AHjeEo*?Nz0`mmF%dax`&q)U4NbI=zhjlhBPFzBwkzXRKr%N@u2@;PnZ4ck9H4
oy*uV@Q}x$m3TUy{%x-;W<Rj%#dBu13(K{3UL{wxCKX5$&0HBm{x&QzG

literal 0
HcmV?d00001

diff --git a/man/NetoTb3A.3.Rd b/man/NetoTb3A.3.Rd
new file mode 100644
index 00000000..007589a8
--- /dev/null
+++ b/man/NetoTb3A.3.Rd
@@ -0,0 +1,59 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.3.R
+\name{NetoTb3A.3}
+\alias{NetoTb3A.3}
+\title{Tempo de Retenção em Cromatografia Líquida}
+\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, temperatura.}
+
+\item{\code{f2}}{Fator 2, porcentagem de etanol.}
+
+\item{\code{f3}}{Fator 3, fluxo.}
+
+\item{\code{temp}}{tempo de retenção.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149)
+}
+\description{
+Um fatorial foi usado para investigar como o tempo de 
+    retenção de um pico obtido em um cromatógrafo líquido é afetado 
+    pela porcentagem de etanol, temperatura e fluxo de gás.
+}
+\examples{
+
+data(NetoTb3A.3)
+str(NetoTb3A.3)
+
+par(mfrow = c(1,3))
+
+with(NetoTb3A.3, interaction.plot(f1, f2, temp, 
+                                  xlab = "Temperatura", 
+                                  ylab = "Tempo Médio",
+                                  main = "Interação entre 
+                                  Temperatura e \% de etanol",
+                                  col = "green"))
+
+with(NetoTb3A.3, interaction.plot(f1, f3, temp,
+                                  xlab = "Temperatura", 
+                                  ylab = "Tempo Médio",
+                                  main = "Interação entre 
+                                  Temperatura e Fluxo",
+                                  col = "blue"))
+
+ with(NetoTb3A.3, interaction.plot(f2, f3, temp,
+                                   xlab = "\% de etanol", 
+                                   ylab = "Tempo Médio",
+                                   main = "Interação entre \% de 
+                                   etanol e Fluxo",
+                                   col = "red"))
+                                   
+}
+\keyword{DBC}
+
-- 
GitLab