From 210cfaea8218ed12d819d12ac9590794b3094eda Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 11:48:14 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20Exerc=C3=ADcio=203.11?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/NetoEx3.11.R | 48 ++++++++++++++++++++++++++++++++++
data-raw/NetoEx3.11.txt | 17 ++++++++++++
data/NetoEx3.11.rda | Bin 0 -> 346 bytes
man/NetoEx3.11.Rd | 56 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 121 insertions(+)
create mode 100644 R/NetoEx3.11.R
create mode 100644 data-raw/NetoEx3.11.txt
create mode 100644 data/NetoEx3.11.rda
create mode 100644 man/NetoEx3.11.Rd
diff --git a/R/NetoEx3.11.R b/R/NetoEx3.11.R
new file mode 100644
index 00000000..ba17b33c
--- /dev/null
+++ b/R/NetoEx3.11.R
@@ -0,0 +1,48 @@
+#' @name NetoEx3.11
+#' @title Síntese de Polipirrol
+#' @description Como exercício num curso de quimioterapia, foram
+#' analisados dados obtidos por um pesquisador numa série de
+#' experimentos de síntese de polipirrol numa matriz de EPDM.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{i}}{Número do ensaio.}
+#'
+#' \item{\code{t}}{Tempo da reação.}
+#'
+#' \item{\code{C}}{Concentração de oxidante.}
+#'
+#' \item{\code{P}}{Tamanho da partícula.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+#' @examples
+#'
+#' data(NetoEx3.11)
+#' str(NetoEx3.11)
+#'
+#' par(mfrow=c(1,3))
+#'
+#' attach(NetoEx3.11)
+#'
+#' interaction.plot(t, C, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre Tempo de Reação e
+#' Concentração de Oxidante",
+#' col = "blue")
+#'
+#' interaction.plot(t, P, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre Tempo de Reação e Tamanho da
+#' Partícula",
+#' col = "green")
+#'
+#' interaction.plot(C, P, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre Concentração de Oxidente e
+#' Tamanho da Partícula",
+#' col = "red")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoEx3.11.txt b/data-raw/NetoEx3.11.txt
new file mode 100644
index 00000000..4ef242ef
--- /dev/null
+++ b/data-raw/NetoEx3.11.txt
@@ -0,0 +1,17 @@
+i t C P rend
+1 -1 -1 -1 4.39
+2 1 -1 -1 6.21
+3 -1 1 -1 14.51
+4 1 1 -1 19.57
+5 -1 -1 1 2.09
+6 1 -1 1 3.15
+7 -1 1 1 11.77
+8 1 1 1 19.4
+9 -1 -1 -1 4.73
+10 1 -1 -1 5.75
+11 -1 1 -1 13.45
+12 1 1 -1 21.11
+13 -1 -1 1 1.93
+14 1 -1 1 3.39
+15 -1 1 1 12.69
+16 1 1 1 17.98
diff --git a/data/NetoEx3.11.rda b/data/NetoEx3.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c7edde745b2e29346252592224684ade58ee260b
GIT binary patch
literal 346
zcmZ>Y%CIzaj8qGb)N)GIVPJUn|NsC0e~vbMwqiQhSm2_se&>dhzybyiMg|7~28ISj
z9w)&K3|}W0xtgswzEaxbt5n8ipN7nZ6E40oG)c)g<GH*=s^iL+#;qm{nF|;g3>g?0
z7<eYlVsHa7G8h;bSdu?5DKR#+YH~BYWM%LT;Bk^@<kTr|c$c`#N2~p`1l#WS{%N&_
z+h%tq+>JU@oK`W3-O7IU%@ii)fDa0%OYg+xoJeu(VQ}H_<X*_&;bg3+njo<1Qg@q{
zFoToBh6aX<hRYke7er17P|z@b6QcKN##h&zZy~W64`aV;8GmKndE7m@DD&#=qiRzV
z{LBLGZP7UJ?3dvwmzcOH=k<>?T*PzM)#x}bdSG~CYmj=^?MJVRyUcgaY}7CnJ<NV{
zv!djaKki%kA9KH8S)}RGyei{qU#iTco@l4c145!P^FuT`*TkL_dFbS@l5@%i049o#
AIRF3v
literal 0
HcmV?d00001
diff --git a/man/NetoEx3.11.Rd b/man/NetoEx3.11.Rd
new file mode 100644
index 00000000..d632eca0
--- /dev/null
+++ b/man/NetoEx3.11.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx3.11.R
+\name{NetoEx3.11}
+\alias{NetoEx3.11}
+\title{Síntese de Polipirrol}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{i}}{Número do ensaio.}
+
+\item{\code{t}}{Tempo da reação.}
+
+\item{\code{C}}{Concentração de oxidante.}
+
+\item{\code{P}}{Tamanho da partícula.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+}
+\description{
+Como exercício num curso de quimioterapia, foram
+ analisados dados obtidos por um pesquisador numa série de
+ experimentos de síntese de polipirrol numa matriz de EPDM.
+}
+\examples{
+
+data(NetoEx3.11)
+str(NetoEx3.11)
+
+par(mfrow=c(1,3))
+
+attach(NetoEx3.11)
+
+interaction.plot(t, C, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre Tempo de Reação e
+ Concentração de Oxidante",
+ col = "blue")
+
+interaction.plot(t, P, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre Tempo de Reação e Tamanho da
+ Partícula",
+ col = "green")
+
+interaction.plot(C, P, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre Concentração de Oxidente e
+ Tamanho da Partícula",
+ col = "red")
+
+}
+\keyword{DBC}
+
--
GitLab