From 194dfffc0180e7ce12004872d99b6a4009f38d64 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Tue, 11 Oct 2016 19:02:06 -0300
Subject: [PATCH] Adiciona Tabela 7A.6

---
 R/NetoEx7A.6.R          |  34 ++++++++++++++++++++++++++++++++
 data-raw/NetoTb7A.6.txt |  16 +++++++++++++++
 data/NetoTb7A.6.rda     | Bin 0 -> 475 bytes
 man/NetoTb7A.6.Rd       |  42 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 92 insertions(+)
 create mode 100644 R/NetoEx7A.6.R
 create mode 100644 data-raw/NetoTb7A.6.txt
 create mode 100644 data/NetoTb7A.6.rda
 create mode 100644 man/NetoTb7A.6.Rd

diff --git a/R/NetoEx7A.6.R b/R/NetoEx7A.6.R
new file mode 100644
index 00000000..7fce597c
--- /dev/null
+++ b/R/NetoEx7A.6.R
@@ -0,0 +1,34 @@
+#' @name NetoTb7A.6
+#' @title Condutividade de Uma Blenda Polimérica
+#' @description Planejamento para a determinação catalítica de Cr(VI)
+#' @format Um \code{data.frame} com 20 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio.}
+#'
+#' \item{\code{c1}}{Proporção de polímero.}
+#' 
+#' \item{\code{c2}}{Sal.}
+#' 
+#' \item{\code{c3}}{Plastificante.}
+#' 
+#' \item{\code{lc}}{Log da condutividade iônica.}
+#' 
+#' \item{\code{t}}{Temperatura de transição vítra.}
+#' 
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 7A.6, pág. 356)
+#' @examples
+#'
+#' data(NetoTb7A.6)
+#' str(NetoTb7A.6)
+#' 
+#' x <- NetoTb7A.6[,-1]
+#'
+#' library(car)
+#'
+#' scatterplotMatrix(x, pch = 20, cex.labels = 1.25) 
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb7A.6.txt b/data-raw/NetoTb7A.6.txt
new file mode 100644
index 00000000..a8135fee
--- /dev/null
+++ b/data-raw/NetoTb7A.6.txt
@@ -0,0 +1,16 @@
+ens	c1	c2	c3	lc	t
+1	0.86	0.07	0.07	-6	-47
+2	0.75	0.18	0.07	-4.699	-48
+3	0.64	0.29	0.07	-4.523	-67
+4	0.5	0.29	0.21	-3.523	-67
+5	0.5	0.21	0.29	-3.398	-68
+6	0.64	0.07	0.29	-4.398	-64
+7	0.75	0.07	0.18	-6	-45
+8	0.66	0.17	0.17	-4.155	-56
+9	0.66	0.17	0.17	-4.097	-63
+10	0.76	0.12	0.12	-5	-51
+11	0.76	0.12	0.12	-4.699	-50
+12	0.6	0.25	0.15	-4.155	-71
+13	0.6	0.25	0.15	-4	-69
+14	0.6	0.15	0.25	-3.699	-50
+15	0.6	0.15	0.25	-3.699	-49
diff --git a/data/NetoTb7A.6.rda b/data/NetoTb7A.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..002248b08cf0e56b03e4eae04abb45fc1c0bfffb
GIT binary patch
literal 475
zcmZ>Y%CIzaj8qGb6gS)!#lXm3|NsC0KNlMucXlml+~Z=;es_iwQ$uq{qd|W4?;i`^
z`7CPOz*r`B#MIT+SK3M1DS@-Ip;@pgq0P;QDQz;70i)!Sq=c-jc`m*y&MZ^D!ZwR%
z#w<2v#bqo;ye5V#n;3W*CnQYt$}-8yoHb(xLl46Yrpy-#7Y;D6EnKE1W#aGoM0n4&
ze;sp@^*pT(FseqaS=dt`vx(98A=?RyyxpN2?x?YG&$O8M_fyJLgLTe*0iQ0c5?C)e
z|LSZBPcdG`m)YhQYwH_BJvv^5Wk^doZAogdQtaJ!<FeC45do#(r)m=>oWGnSaroAy
zW~sn?AL7f78TuCd=jDFEvgU90?A1bRuQBZ0eJd-h<-q~{-!BA8+TU!GZgdxBacSw0
zG4@);@JQJ^mcweY-vzcFh6U0KdU)5pUTDSDV7+RVmh<uhbNcmeuIN;_?$YHGBzC8%
zyCrc7<0gJr^|>rYUWY`_2p{uYpztSWQ-VL6RNDQ<ti1V?w@ec{dcvD)L%PO=%Ednd
zTizE&PVs38XpDCKu+*lhz=MOC^Rdz^g`A0dZuRga{N|Tz6g2rD$q?-L-<3t6K;MDk
i{e%Dp7OPU`tvPr9Z_lirp7ivd-jl9^g$jDfIa>gID9p3~

literal 0
HcmV?d00001

diff --git a/man/NetoTb7A.6.Rd b/man/NetoTb7A.6.Rd
new file mode 100644
index 00000000..94c3f038
--- /dev/null
+++ b/man/NetoTb7A.6.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx7A.6.R
+\name{NetoTb7A.6}
+\alias{NetoTb7A.6}
+\title{Condutividade de Uma Blenda Polimérica}
+\format{Um \code{data.frame} com 20 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio.}
+
+\item{\code{c1}}{Proporção de polímero.}
+
+\item{\code{c2}}{Sal.}
+
+\item{\code{c3}}{Plastificante.}
+
+\item{\code{lc}}{Log da condutividade iônica.}
+
+\item{\code{t}}{Temperatura de transição vítra.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 7A.6, pág. 356)
+}
+\description{
+Planejamento para a determinação catalítica de Cr(VI)
+}
+\examples{
+
+data(NetoTb7A.6)
+str(NetoTb7A.6)
+
+x <- NetoTb7A.6[,-1]
+
+library(car)
+
+scatterplotMatrix(x, pch = 20, cex.labels = 1.25) 
+
+}
+\keyword{DBC}
+
-- 
GitLab