From 6c6815250310c069ca97f744aab61fdd7c987ba9 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sat, 24 Sep 2016 15:43:23 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20Exerc=C3=ADcio=204.8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/NetoEx4.8.R | 34 ++++++++++++++++++++++++++++++++++
data-raw/NetoEx4.8.txt | 9 +++++++++
data/NetoEx4.8.rda | Bin 0 -> 229 bytes
man/NetoEx4.8.Rd | 25 +++++++++++++++++++++++++
4 files changed, 68 insertions(+)
create mode 100644 R/NetoEx4.8.R
create mode 100644 data-raw/NetoEx4.8.txt
create mode 100644 data/NetoEx4.8.rda
create mode 100644 man/NetoEx4.8.Rd
diff --git a/R/NetoEx4.8.R b/R/NetoEx4.8.R
new file mode 100644
index 00000000..44b28aa1
--- /dev/null
+++ b/R/NetoEx4.8.R
@@ -0,0 +1,34 @@
+#' @name NetoEx4.8
+#' @title Otimização de Reação Orgânica
+#' @description Resultados de um experimento fatorial 2^4 cujo objetivo,
+#' era a otimização de uma reação orgânic.
+#' @format Um \code{data.frame} com 8 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ensaio}}{Número do ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1: Temperatura.}
+#'
+#' \item{\code{f2}}{Fator 2: Base.}
+#'
+#' \item{\code{f3}}{Fator 3: Solvente.}
+#'
+#' \item{\code{f4}}{Fator 4: Catalisador.}
+#'
+#' \item{resp}{Rendimento da reação (%).}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Exercício 4.8, pág.176)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoEx4.8)
+#' str(NetoEx4.8)
+#'
+#' xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+#' type = c("p", "a"), auto.key = TRUE)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoEx4.8.txt b/data-raw/NetoEx4.8.txt
new file mode 100644
index 00000000..25babbae
--- /dev/null
+++ b/data-raw/NetoEx4.8.txt
@@ -0,0 +1,9 @@
+ensaio f1 f2 f3 f4 rend
+1 -1 -1 -1 -1 0
+2 +1 -1 -1 +1 70
+3 -1 +1 -1 +1 65
+4 +1 +1 -1 -1 0
+5 -1 -1 +1 +1 100
+6 +1 -1 +1 -1 85
+7 -1 +1 +1 -1 50
+8 +1 +1 +1 +1 95
diff --git a/data/NetoEx4.8.rda b/data/NetoEx4.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ab60845052f03db6123b5208c02e9bb8484c0023
GIT binary patch
literal 229
zcmZ>Y%CIzaj8qGbbav3JU|`t(|G@um9t;eOHV*2HLJsTI=NxcgU~t^Puyw)ZAd@zQ
z%g&i5hcYt0G~Zfq<;qtRmNUy(cnugBj66*axG^ONHgKdn@||UJ?iKPlGn>(^nI+&5
z(=3k<k_9c?6<1zFG76=yU7je&opWr3)+IrqOOwjdTm_W;oI)IamVAG3pp%<H&{2_5
zZHkHpi-OsvhAj(OdZL3)IP`}FRQpX5Kazi6_v-fj)AYC&iQ82?jg^(Kk6_hnbo0HU
kD;!=MRAAyG@$`0eBLhS6QBIcmkKTDK=Mv(`VAW>;0C)IRxBvhE
literal 0
HcmV?d00001
diff --git a/man/NetoEx4.8.Rd b/man/NetoEx4.8.Rd
new file mode 100644
index 00000000..aa92aba1
--- /dev/null
+++ b/man/NetoEx4.8.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx4.8.R
+\name{NetoEx4.8}
+\alias{NetoEx4.8}
+\title{Otimização de Reação Orgânica}
+\source{
+Barros Neto, Benício de (2010), (Exercício 4.8, pág.176)
+}
+\description{
+Resultados de um experimento fatorial 2^4 cujo objetivo,
+ era a otimização de uma reação orgânic.
+}
+\examples{
+
+library(lattice)
+
+data(NetoEx4.8)
+str(NetoEx4.8)
+
+xyplot(rend ~ f1 | f2 + f3, groups = f4, data = NetoEx4.8,
+ type = c("p", "a"), auto.key = TRUE)
+
+}
+\keyword{DBC}
+
--
GitLab