From a93aa7a37a5c60d79b72c92bd2c877d383c45eef Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sat, 24 Sep 2016 15:22:49 -0300
Subject: [PATCH] Adiciona Tabela 4.2

---
 R/NetoTb4.2.R          |  34 +++++++++++++++++++++++++++++++++
 data-raw/NetoTb4.2.txt |  17 +++++++++++++++++
 data/NetoTb4.2.rda     | Bin 0 -> 269 bytes
 man/NetoTb4.2.Rd       |  42 +++++++++++++++++++++++++++++++++++++++++
 4 files changed, 93 insertions(+)
 create mode 100644 R/NetoTb4.2.R
 create mode 100644 data-raw/NetoTb4.2.txt
 create mode 100644 data/NetoTb4.2.rda
 create mode 100644 man/NetoTb4.2.Rd

diff --git a/R/NetoTb4.2.R b/R/NetoTb4.2.R
new file mode 100644
index 00000000..9ffd810a
--- /dev/null
+++ b/R/NetoTb4.2.R
@@ -0,0 +1,34 @@
+#' @name NetoTb4.2
+#' @title Ação Catalítica do Mo(VI)
+#' @description Resultados de um experimento fatorial 2^4 completo, 
+#'     realizado para estudar a ação catalítica do Mo(VI).
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1: H2S04.}
+#' 
+#' \item{\code{f2}}{Fator 2: KI.}
+#' 
+#' \item{\code{f3}}{Fator 3: H2O2.}
+#' 
+#' \item{\code{f4}}{Fator 4: Tempo.}
+#'
+#' \item{resp}{Traços de molibdênio.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (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
\ No newline at end of file
diff --git a/data-raw/NetoTb4.2.txt b/data-raw/NetoTb4.2.txt
new file mode 100644
index 00000000..c9404e27
--- /dev/null
+++ b/data-raw/NetoTb4.2.txt
@@ -0,0 +1,17 @@
+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
diff --git a/data/NetoTb4.2.rda b/data/NetoTb4.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..461728aae85de62bcc17fa9ced02ff2b151cd316
GIT binary patch
literal 269
zcmZ>Y%CIzaj8qGbw4T&_l7Zp-|1<yppI}vBv|$oq6nC&!|1-sbgFzuc!GUoD!__G!
zT_(A1{hrI(W|_z>U|hiPaTTv`@K-m7TeFff5_#HYv~ip;WO8*i`Osp(z+sSSFyq4P
z!1)b4GdNk8mUyUfI&n3mwMa1qF}+G-?`bP5niVeVpmXP~Z0Smt-7D6pdU6;VuRDM5
z*7;dc@A%C(bck*C6!3X*mF2C<#MW+ajhk|J1m)hks2a50V8~A5U|cXwg16y-ySTQZ
zgz_nlPRsJw2Twh57P7f)v(?p(f8vblh55JHotWl2h(D|1)Ji<DQoP;f!hyF|%{wJu
bU7Xmf(mql1R_;93I}`mxRQR4O_~ZZpB$#XM

literal 0
HcmV?d00001

diff --git a/man/NetoTb4.2.Rd b/man/NetoTb4.2.Rd
new file mode 100644
index 00000000..e96d231d
--- /dev/null
+++ b/man/NetoTb4.2.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.2.R
+\name{NetoTb4.2}
+\alias{NetoTb4.2}
+\title{Ação Catalítica do Mo(VI)}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ensaio}}{Número do ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1: H2S04.}
+
+\item{\code{f2}}{Fator 2: KI.}
+
+\item{\code{f3}}{Fator 3: H2O2.}
+
+\item{\code{f4}}{Fator 4: Tempo.}
+
+\item{resp}{Traços de molibdênio.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.2, pág.167)
+}
+\description{
+Resultados de um experimento fatorial 2^4 completo, 
+    realizado para estudar a ação catalítica do Mo(VI).
+}
+\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)
+
+}
+\keyword{DBC}
+
-- 
GitLab