From 8c8c0c94ee36344d1f4a7b1343de1ed5c8492ae0 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 4 Sep 2016 23:52:28 -0300
Subject: [PATCH] Adiciona Tabela 3.3
---
R/NetoTb3.3.R | 48 +++++++++++++++++++++++++++++++++++
data-raw/NetoTb3.3.txt | 17 +++++++++++++
data/NetoTb3.3.rda | Bin 0 -> 333 bytes
man/NetoTb3.3.Rd | 56 +++++++++++++++++++++++++++++++++++++++++
4 files changed, 121 insertions(+)
create mode 100644 R/NetoTb3.3.R
create mode 100644 data-raw/NetoTb3.3.txt
create mode 100644 data/NetoTb3.3.rda
create mode 100644 man/NetoTb3.3.Rd
diff --git a/R/NetoTb3.3.R b/R/NetoTb3.3.R
new file mode 100644
index 00000000..f4beb05d
--- /dev/null
+++ b/R/NetoTb3.3.R
@@ -0,0 +1,48 @@
+#' @name NetoTb3.3
+#' @title Um planejamento fatorial 2^3
+#' @description Resultado de um planejamento fatorial 2^3
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio.}
+#'
+#' \item{\code{f1}}{Níveis do fator temperatura.}
+#'
+#' \item{\code{f2}}{Níveis do fator catalisador.}
+#'
+#' \item{\code{f3}}{Níveis do fator concentração.}
+#'
+#' \item{\code{rend}}{Percentual de rendimento observado.}
+#'
+#' \item{\code{ord}}{Ordem da realização do estudo.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+#' @examples
+#'
+#' data(NetoTb3.3)
+#' str(NetoTb3.3)
+#'
+#' par(mfrow=c(1,3))
+#'
+#' attach(NetoTb3.3)
+#'
+#' interaction.plot(f1, f2, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre os Fatores 1 e 2",
+#' col = "blue")
+#'
+#' interaction.plot(f1, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre os Fatores 1 e 3",
+#' col = "green")
+#'
+#' interaction.plot(f2, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre os Fatores 2 e 3",
+#' col = "red")
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb3.3.txt b/data-raw/NetoTb3.3.txt
new file mode 100644
index 00000000..e115b35e
--- /dev/null
+++ b/data-raw/NetoTb3.3.txt
@@ -0,0 +1,17 @@
+ens f1 f2 f3 rend ord
+1 -1 -1 -1 56 (7)
+2 1 -1 -1 85 (9)
+3 -1 1 -1 49 (11)
+4 1 1 -1 64 (2)
+5 -1 -1 1 65 (13)
+6 1 -1 1 92 (6)
+7 -1 1 1 57 (14)
+8 1 1 1 70 (8)
+9 -1 -1 -1 52 (12)
+10 1 -1 -1 88 (10)
+11 -1 1 -1 47 (15)
+12 1 1 -1 62 (1)
+13 -1 -1 1 61 (5)
+14 1 -1 1 95 (16)
+15 -1 1 1 60 (3)
+16 1 1 1 74 (4)
diff --git a/data/NetoTb3.3.rda b/data/NetoTb3.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e3d98e6edcd78cde83228568f39f2e9b806d3689
GIT binary patch
literal 333
zcmZ>Y%CIzaj8qGb?EKp&&cImr|G@wMCm0wK|36O^6m!|nKDWVv!GUoDqm*y6h*rh2
z%O};RTwHLWs(rEAvIhPD^QAm>%a&ZeVq%hHXviy}?AR#9GmB%Ysrr<YPkEUgE-;v6
zNHH+~;O;VQIo!1BY3qwqy24hk=W6RLnvtu;bYkDkr3JIv536Nz`3pSw-Ez}>(}Hhi
z%T5PJde2zmo_Blh!^e5^W^cWnJKN0tvrG<);M04DTsvY_a}TpIF`6z&bzu9pKkr$C
zO!=$m4Z0uVHhQvobjSucEote_SrR@)L95W|#)al8C8w<oIWui?&rEr@*23~!am9W!
z!FQ857UimGO;Y+YQ-Fhohk+%beSO%o{u~KqyA{1x|JSBZ@_gLA>z1;8;q{Z<`jsV8
rn!-=d2VGqheN{%EccJgByQ~Zf4GKn&@?BN`={@NxSg0ucTSgB6I%$%P
literal 0
HcmV?d00001
diff --git a/man/NetoTb3.3.Rd b/man/NetoTb3.3.Rd
new file mode 100644
index 00000000..ba2ef129
--- /dev/null
+++ b/man/NetoTb3.3.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3.3.R
+\name{NetoTb3.3}
+\alias{NetoTb3.3}
+\title{Um planejamento fatorial 2^3}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio.}
+
+\item{\code{f1}}{Níveis do fator temperatura.}
+
+\item{\code{f2}}{Níveis do fator catalisador.}
+
+\item{\code{f3}}{Níveis do fator concentração.}
+
+\item{\code{rend}}{Percentual de rendimento observado.}
+
+\item{\code{ord}}{Ordem da realização do estudo.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+}
+\description{
+Resultado de um planejamento fatorial 2^3
+}
+\examples{
+
+data(NetoTb3.3)
+str(NetoTb3.3)
+
+par(mfrow=c(1,3))
+
+attach(NetoTb3.3)
+
+interaction.plot(f1, f2, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre os Fatores 1 e 2",
+ col = "blue")
+
+interaction.plot(f1, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre os Fatores 1 e 3",
+ col = "green")
+
+interaction.plot(f2, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre os Fatores 2 e 3",
+ col = "red")
+
+
+}
+\keyword{DBC}
+
--
GitLab