From be7c7bfd5da179353c2bdb202c0feb6026a660ff Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 12 Sep 2016 11:27:23 -0300
Subject: [PATCH] Adiciona Tabela 3A.1
---
R/NetoTb3A.1.R | 35 ++++++++++++++++++++++++++++++++
data-raw/NetoTb3A.1.txt | 17 ++++++++++++++++
data/NetoTb3A.1.rda | Bin 0 -> 326 bytes
man/NetoTb3A.1.Rd | 43 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 95 insertions(+)
create mode 100644 R/NetoTb3A.1.R
create mode 100644 data-raw/NetoTb3A.1.txt
create mode 100644 data/NetoTb3A.1.rda
create mode 100644 man/NetoTb3A.1.Rd
diff --git a/R/NetoTb3A.1.R b/R/NetoTb3A.1.R
new file mode 100644
index 00000000..ef28cc60
--- /dev/null
+++ b/R/NetoTb3A.1.R
@@ -0,0 +1,35 @@
+#' @name NetoTb3A.1
+#' @title Hidrólise de Resinas
+#' @description Planejamento 2^3 em duplicata para estudar o efeito de 3
+#' fatores no grau de substituição numa resina clorometilada.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, tempo de hidrólise.}
+#'
+#' \item{\code{f2}}{Fator 2, temperatura.}
+#'
+#' \item{\code{f3}}{Fator 3, catalisador.}
+#'
+#' \item{grau}{grau de substituição.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3A.1)
+#' str(NetoTb3A.1)
+#'
+#' xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
+#' type = c("p", "a"), auto.key = TRUE,
+#' xlab = "Tempo de Hidrólise",
+#' ylab = "Grau de Substituição")
+#'
+#'
+NULL
diff --git a/data-raw/NetoTb3A.1.txt b/data-raw/NetoTb3A.1.txt
new file mode 100644
index 00000000..3f8351c2
--- /dev/null
+++ b/data-raw/NetoTb3A.1.txt
@@ -0,0 +1,17 @@
+ens f1 f2 f3 grau
+1 -1 -1 -1 0.52
+2 1 -1 -1 0.57
+3 -1 1 -1 0.55
+4 1 1 -1 0.58
+5 -1 -1 1 0.47
+6 1 -1 1 0.53
+7 -1 1 1 0.52
+8 1 1 1 0.54
+9 -1 -1 -1 0.54
+10 1 -1 -1 0.58
+11 -1 1 -1 0.54
+12 1 1 -1 0.56
+13 -1 -1 1 0.45
+14 1 -1 1 0.56
+15 -1 1 1 0.53
+16 1 1 1 0.52
\ No newline at end of file
diff --git a/data/NetoTb3A.1.rda b/data/NetoTb3A.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0e564db78adb4006a16a9d6096c98245450d3f7a
GIT binary patch
literal 326
zcmZ>Y%CIzaj8qGb%;dB_%D`}^{{R2~XBZhAEtr-ZG;y(Szc;~&p}~NMk-<TLjiI%G
z$C+^h!`DSZUh@{rTbz~axIoHm;ex7JZ2iG*&CZuazM9Qy_OuOr#dhTavyTG<1LFb)
z29`;S3}!GgGcfq{w6P>Gu+4AaViRf+Qra7#!fd3huvC~cio^NG1s=T>IW|lpJ^`7w
z1v_qiT{D}n=zRFvD+>3M<>H<zGUiU)b@F#iKzvnuM^HnW1dDe{+KrdW2P8P;^rk#W
zaBN-5w(V$Pi<rH7>X!<Zh)qX(u4a6wH(KV^S6+5F$;Q{UaxR}&P+gPGxf4J9ZI0}m
ztDbzh*ib#Hoo9#eypN5)51uwZI^)*6g^}AW4)L-TFGw=2KiA7SmC-VwT5D~H$dbou
iJ{rtz<s8XU><JUjUpjPh=I-vDN^>+kOj_nXY5)MFkc24!
literal 0
HcmV?d00001
diff --git a/man/NetoTb3A.1.Rd b/man/NetoTb3A.1.Rd
new file mode 100644
index 00000000..69293c25
--- /dev/null
+++ b/man/NetoTb3A.1.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.1.R
+\name{NetoTb3A.1}
+\alias{NetoTb3A.1}
+\title{Hidrólise de Resinas}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, tempo de hidrólise.}
+
+\item{\code{f2}}{Fator 2, temperatura.}
+
+\item{\code{f3}}{Fator 3, catalisador.}
+
+\item{grau}{grau de substituição.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.1, pág.145)
+}
+\description{
+Planejamento 2^3 em duplicata para estudar o efeito de 3
+ fatores no grau de substituição numa resina clorometilada.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.1)
+str(NetoTb3A.1)
+
+xyplot(grau ~ f1 | f2, groups = f3, data = NetoTb3A.1,
+ type = c("p", "a"), auto.key = TRUE,
+ xlab = "Tempo de Hidrólise",
+ ylab = "Grau de Substituição")
+
+
+}
+\keyword{DBC}
+
--
GitLab