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