From e40abb3517e5374eafe51c248189310d7d7ee7dd Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sat, 24 Sep 2016 23:58:56 -0300
Subject: [PATCH] Adiciona Tabela 4.6
---
R/NetoTb4.6.R | 44 ++++++++++++++++++++++++++++++++++
data-raw/NetoTb4.6.txt | 17 ++++++++++++++
data/NetoTb4.6.rda | Bin 0 -> 275 bytes
man/NetoTb4.6.Rd | 52 +++++++++++++++++++++++++++++++++++++++++
4 files changed, 113 insertions(+)
create mode 100644 R/NetoTb4.6.R
create mode 100644 data-raw/NetoTb4.6.txt
create mode 100644 data/NetoTb4.6.rda
create mode 100644 man/NetoTb4.6.Rd
diff --git a/R/NetoTb4.6.R b/R/NetoTb4.6.R
new file mode 100644
index 00000000..db26e2d4
--- /dev/null
+++ b/R/NetoTb4.6.R
@@ -0,0 +1,44 @@
+#' @name NetoTb4.6
+#' @title Fatorial Fracionado, Estudo da Resposta Catalítica do Mo(VI)
+#' @description Resultados de um experimento fatorial fracionado 2^(5-1)
+#' ,realizado para estudar a ação catalítica do Mo(VI).
+#' @format Um \code{data.frame} com 16 observações e 7 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+#'
+#' \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{\code{f5}}{Fator 5: Fluxo.}
+#'
+#' \item{resp}{Traços de molibdênio.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.6, pág.177)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb4.6)
+#' str(NetoTb4.6)
+#'
+#' wireframe(resp ~ f1 + f2 + f4 | factor(f5),
+#' data = NetoTb4.6,
+#' scales = list(arrows = FALSE),
+#' col = "gray50",
+#' as.table = TRUE,
+#' col.contour = 1,
+#' type = "on",
+#' drape = TRUE,
+#' alpha.regions = 0.5,
+#' screen = list(z = 30, x = -60))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.6.txt b/data-raw/NetoTb4.6.txt
new file mode 100644
index 00000000..a3ea14d8
--- /dev/null
+++ b/data-raw/NetoTb4.6.txt
@@ -0,0 +1,17 @@
+ord f1 f2 f3 f4 f5 resp
+5 -1 -1 -1 -1 +1 52
+13 +1 -1 -1 -1 -1 61
+12 -1 +1 -1 -1 -1 124
+4 +1 +1 -1 -1 +1 113
+11 -1 -1 +1 -1 -1 85
+3 +1 -1 +1 -1 +1 66
+6 -1 +1 +1 -1 +1 185
+14 +1 +1 +1 -1 -1 192
+10 -1 -1 -1 +1 -1 98
+2 +1 -1 -1 +1 +1 86
+7 -1 +1 -1 +1 +1 201
+15 +1 +1 -1 +1 -1 194
+8 -1 -1 +1 +1 +1 122
+16 +1 -1 +1 +1 -1 139
+9 -1 +1 +1 +1 -1 289
+1 +1 +1 +1 +1 +1 286
diff --git a/data/NetoTb4.6.rda b/data/NetoTb4.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2991828194201a439daba9833b1d28ffd0e94cd0
GIT binary patch
literal 275
zcmZ>Y%CIzaj8qGbyzI7*gMm@#|C#^)Pp~R5+B1nTiaXe||C!>z!JrVJ;J~<n;p!BZ
zQ}ZTguE@B2h4~`m0tPl;Y5x!@CG{01UrjO>E=ZDMYgSyQaG=x6*W?H@3-1aOlann*
zCJbu?3KeuDxQuybIG9bEu)xshpfC%sM#L7!Z5NA9+9~*Kn8tnJ;FkS{P6r(fCVk+2
z<e<Ch$Nk?=jV^AQUcBOeHEZ?%70vVHD>XMU^hxYkyxFeTR<<rIxFGI9l0s_N6pq%N
zQC49b^R~SRQ&@IYhv}IW6Jx+D`Ov1ii8~eF6&rIcuDu-Ia3R!`QShOome}h1Rew*d
ie{{R;rS=W;N1+^Ary9O>D)WCVR|#(A<Tc5D&;S4<<#FEt
literal 0
HcmV?d00001
diff --git a/man/NetoTb4.6.Rd b/man/NetoTb4.6.Rd
new file mode 100644
index 00000000..2523126d
--- /dev/null
+++ b/man/NetoTb4.6.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.6.R
+\name{NetoTb4.6}
+\alias{NetoTb4.6}
+\title{Fatorial Fracionado, Estudo da Resposta Catalítica do Mo(VI)}
+\format{Um \code{data.frame} com 16 observações e 7 variáveis, em que
+
+\describe{
+
+\item{\code{ord}}{Número correspondente à ordem de de obtenção.}
+
+\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{\code{f5}}{Fator 5: Fluxo.}
+
+\item{resp}{Traços de molibdênio.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.6, pág.177)
+}
+\description{
+Resultados de um experimento fatorial fracionado 2^(5-1)
+ ,realizado para estudar a ação catalítica do Mo(VI).
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb4.6)
+str(NetoTb4.6)
+
+wireframe(resp ~ f1 + f2 + f4 | factor(f5),
+ data = NetoTb4.6,
+ scales = list(arrows = FALSE),
+ col = "gray50",
+ as.table = TRUE,
+ col.contour = 1,
+ type = "on",
+ drape = TRUE,
+ alpha.regions = 0.5,
+ screen = list(z = 30, x = -60))
+
+}
+\keyword{DBC}
+
--
GitLab