From ed62e5a1765f57ccafa0fdb6f6c3b4b0c5234402 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 12 Sep 2016 14:06:03 -0300 Subject: [PATCH] Adiciona Tabela 3A.3 --- R/NetoTb3A.3.R | 51 ++++++++++++++++++++++++++++++++++ data-raw/NetoTb3A.3.txt | 9 ++++++ data/NetoTb3A.3.rda | Bin 0 -> 287 bytes man/NetoTb3A.3.Rd | 59 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 119 insertions(+) create mode 100644 R/NetoTb3A.3.R create mode 100644 data-raw/NetoTb3A.3.txt create mode 100644 data/NetoTb3A.3.rda create mode 100644 man/NetoTb3A.3.Rd diff --git a/R/NetoTb3A.3.R b/R/NetoTb3A.3.R new file mode 100644 index 00000000..6bd32e21 --- /dev/null +++ b/R/NetoTb3A.3.R @@ -0,0 +1,51 @@ +#' @name NetoTb3A.3 +#' @title Tempo de Retenção em Cromatografia Líquida +#' @description Um fatorial foi usado para investigar como o tempo de +#' retenção de um pico obtido em um cromatógrafo líquido é afetado +#' pela porcentagem de etanol, temperatura e fluxo de gás. +#' @format Um \code{data.frame} com 8 observações e 5 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{ens}}{Ensaio correspondente.} +#' +#' \item{\code{f1}}{Fator 1, temperatura.} +#' +#' \item{\code{f2}}{Fator 2, porcentagem de etanol.} +#' +#' \item{\code{f3}}{Fator 3, fluxo.} +#' +#' \item{\code{temp}}{tempo de retenção.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149) +#' @examples +#' +#' data(NetoTb3A.3) +#' str(NetoTb3A.3) +#' +#' par(mfrow = c(1,3)) +#' +#' with(NetoTb3A.3, interaction.plot(f1, f2, temp, +#' xlab = "Temperatura", +#' ylab = "Tempo Médio", +#' main = "Interação entre +#' Temperatura e % de etanol", +#' col = "green")) +#' +#' with(NetoTb3A.3, interaction.plot(f1, f3, temp, +#' xlab = "Temperatura", +#' ylab = "Tempo Médio", +#' main = "Interação entre +#' Temperatura e Fluxo", +#' col = "blue")) +#' +#' with(NetoTb3A.3, interaction.plot(f2, f3, temp, +#' xlab = "% de etanol", +#' ylab = "Tempo Médio", +#' main = "Interação entre % de +#' etanol e Fluxo", +#' col = "red")) +#' +NULL diff --git a/data-raw/NetoTb3A.3.txt b/data-raw/NetoTb3A.3.txt new file mode 100644 index 00000000..dd4cef15 --- /dev/null +++ b/data-raw/NetoTb3A.3.txt @@ -0,0 +1,9 @@ +ens f1 f2 f3 temp +1 -1 -1 -1 49.26 +2 +1 -1 -1 31.27 +3 -1 +1 -1 42.2 +4 +1 +1 -1 26.61 +5 -1 -1 +1 23.81 +6 +1 -1 +1 15.07 +7 -1 +1 +1 19.57 +8 +1 +1 +1 12.86 diff --git a/data/NetoTb3A.3.rda b/data/NetoTb3A.3.rda new file mode 100644 index 0000000000000000000000000000000000000000..c8a434e13d3e5d3adf78071cc35ac2df550efb40 GIT binary patch literal 287 zcmZ>Y%CIzaj8qGbEaz_&XJA-a|NsAYA4QHti%HK8nz-1r-<jaVu)suxk-<TLp`k&6 zgUN9N!?hF_6=@GC1_mPr2DS!%-=$^~GSye*y0v#QK!HlA$&7i+X3R25Nivd3$y_!o z*Ky)924{OlmP;-6Ifon)C$?%#o3?<(;&q$I_A{l6a<-^;E6e}h_k2O<%+KpI1h`ul zH3xjXK9gsPhd`jfC1Zn-SsaXwJc83b4!AFWlcz4*cyRM+<Jyl|yDESGe#N^feeq<$ z%D<AHjeEo*?Nz0`mmF%dax`&q)U4NbI=zhjlhBPFzBwkzXRKr%N@u2@;PnZ4ck9H4 oy*uV@Q}x$m3TUy{%x-;W<Rj%#dBu13(K{3UL{wxCKX5$&0HBm{x&QzG literal 0 HcmV?d00001 diff --git a/man/NetoTb3A.3.Rd b/man/NetoTb3A.3.Rd new file mode 100644 index 00000000..007589a8 --- /dev/null +++ b/man/NetoTb3A.3.Rd @@ -0,0 +1,59 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb3A.3.R +\name{NetoTb3A.3} +\alias{NetoTb3A.3} +\title{Tempo de Retenção em Cromatografia Líquida} +\format{Um \code{data.frame} com 8 observações e 5 variáveis, em que + +\describe{ + +\item{\code{ens}}{Ensaio correspondente.} + +\item{\code{f1}}{Fator 1, temperatura.} + +\item{\code{f2}}{Fator 2, porcentagem de etanol.} + +\item{\code{f3}}{Fator 3, fluxo.} + +\item{\code{temp}}{tempo de retenção.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 3A.3, pág.149) +} +\description{ +Um fatorial foi usado para investigar como o tempo de + retenção de um pico obtido em um cromatógrafo líquido é afetado + pela porcentagem de etanol, temperatura e fluxo de gás. +} +\examples{ + +data(NetoTb3A.3) +str(NetoTb3A.3) + +par(mfrow = c(1,3)) + +with(NetoTb3A.3, interaction.plot(f1, f2, temp, + xlab = "Temperatura", + ylab = "Tempo Médio", + main = "Interação entre + Temperatura e \% de etanol", + col = "green")) + +with(NetoTb3A.3, interaction.plot(f1, f3, temp, + xlab = "Temperatura", + ylab = "Tempo Médio", + main = "Interação entre + Temperatura e Fluxo", + col = "blue")) + + with(NetoTb3A.3, interaction.plot(f2, f3, temp, + xlab = "\% de etanol", + ylab = "Tempo Médio", + main = "Interação entre \% de + etanol e Fluxo", + col = "red")) + +} +\keyword{DBC} + -- GitLab