From ce30f205ff7905bb9f306ff3243fc73b2d1c9d6f Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 12 Sep 2016 14:46:49 -0300
Subject: [PATCH] Adiciona Tabela 3A.4
---
R/NetoTb3A.4.R | 35 ++++++++++++++++++++++++++++++++
data-raw/NetoTb3A.4.txt | 17 ++++++++++++++++
data/NetoTb3A.4.rda | Bin 0 -> 286 bytes
man/NetoTb3A.4.Rd | 43 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 95 insertions(+)
create mode 100644 R/NetoTb3A.4.R
create mode 100644 data-raw/NetoTb3A.4.txt
create mode 100644 data/NetoTb3A.4.rda
create mode 100644 man/NetoTb3A.4.Rd
diff --git a/R/NetoTb3A.4.R b/R/NetoTb3A.4.R
new file mode 100644
index 00000000..6a6e98e5
--- /dev/null
+++ b/R/NetoTb3A.4.R
@@ -0,0 +1,35 @@
+#' @name NetoTb3A.4
+#' @title Separação de Gases por Adsorção
+#' @description No desenvolvimento em laboratório de um processo de
+#' enriquecimento de gases por adsorção , investigou-se a influência
+#' de quatro fatores.
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator 1, pressão de adsorção.}
+#'
+#' \item{\code{f2}}{Fator 2, pressão de dessorção.}
+#'
+#' \item{\code{f3}}{Fator 3, vazão de alimentação.}
+#'
+#' \item{\code{f4}}{Fator 4, tempo de adsorção.}
+#'
+#' \item{\code{p}}{Produtividade do adsorvente.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3A.4)
+#' str(NetoTb3A.4)
+#'
+#' xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+#' data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
+#'
+NULL
diff --git a/data-raw/NetoTb3A.4.txt b/data-raw/NetoTb3A.4.txt
new file mode 100644
index 00000000..013d8f82
--- /dev/null
+++ b/data-raw/NetoTb3A.4.txt
@@ -0,0 +1,17 @@
+ens f1 f2 f3 f4 p
+1 -1 -1 -1 -1 2.75
+2 +1 -1 -1 -1 3.15
+3 -1 +1 -1 -1 2.85
+4 +1 +1 -1 -1 3.55
+5 -1 -1 +1 -1 4.65
+6 +1 -1 +1 -1 5.85
+7 -1 +1 +1 -1 5.4
+8 +1 +1 +1 -1 6.3
+9 -1 -1 -1 +1 5.95
+10 +1 -1 -1 +1 6.55
+11 -1 +1 -1 +1 5.6
+12 +1 +1 -1 +1 6.75
+13 -1 -1 +1 +1 11.5
+14 +1 -1 +1 +1 13
+15 -1 +1 +1 +1 12.5
+16 +1 +1 +1 +1 14
diff --git a/data/NetoTb3A.4.rda b/data/NetoTb3A.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..204e0b5a014c41298ed42fcfd54c65ad0a66cbd6
GIT binary patch
literal 286
zcmZ>Y%CIzaj8qGb%$moc#lXn+|H=RVxA!n?wP8qM6mhU;ztiBrz+k|@=D@gt;nyT7
z6<?Dhwm!Z_%nBLI&Tb7iooBEd;A~*<VPHAH;IhPR;jFe<3@L0484SFVCX8v{^kgDF
zzTA=0yP@aKezyy&leVrkxTwXuddmUH+=f4W_PpO3s<bAjZkgm~Vxp4RAhLf0gTr#e
zS5p``t2B2@Pybc5>qDk$!~2DbEOH$7%Zj?f1UJ=)sIqK3Wyz#m#usryXWoQu;v6R@
zGUQ4Mv$0!cmqeL&aAqt%9=5DT=VV%jBfHkTtcyX{HY^Rlx%H{R3a<}r+>544Jyo$i
t#bIu(+ovwvD7d_$_{E-7xxcge?mg0))IG__`A_Ugk%vx>t11*$0052Ja?1b!
literal 0
HcmV?d00001
diff --git a/man/NetoTb3A.4.Rd b/man/NetoTb3A.4.Rd
new file mode 100644
index 00000000..359f3ab2
--- /dev/null
+++ b/man/NetoTb3A.4.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3A.4.R
+\name{NetoTb3A.4}
+\alias{NetoTb3A.4}
+\title{Separação de Gases por Adsorção}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{f1}}{Fator 1, pressão de adsorção.}
+
+\item{\code{f2}}{Fator 2, pressão de dessorção.}
+
+\item{\code{f3}}{Fator 3, vazão de alimentação.}
+
+\item{\code{f4}}{Fator 4, tempo de adsorção.}
+
+\item{\code{p}}{Produtividade do adsorvente.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3A.4, pág.151)
+}
+\description{
+No desenvolvimento em laboratório de um processo de
+ enriquecimento de gases por adsorção , investigou-se a influência
+ de quatro fatores.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3A.4)
+str(NetoTb3A.4)
+
+xyplot(p ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+ data = NetoTb3A.4, type = c("p", "a") , auto.key = TRUE)
+
+}
+\keyword{DBC}
+
--
GitLab