From 7a5fc73e4331557c675a6327fd45bfbaecc1e564 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Fri, 2 Sep 2016 18:06:01 -0300
Subject: [PATCH 01/11] Adiciona Tabela 2.4
---
R/NetoTb2.4.R | 32 ++++++++++++++++++++++++++++++++
data-raw/NetoTb2.4.txt | 6 ++++++
data/NetoTb2.4.rda | Bin 0 -> 292 bytes
man/NetoTb2.4.Rd | 40 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 78 insertions(+)
create mode 100644 R/NetoTb2.4.R
create mode 100644 data-raw/NetoTb2.4.txt
create mode 100644 data/NetoTb2.4.rda
create mode 100644 man/NetoTb2.4.Rd
diff --git a/R/NetoTb2.4.R b/R/NetoTb2.4.R
new file mode 100644
index 00000000..a3c88034
--- /dev/null
+++ b/R/NetoTb2.4.R
@@ -0,0 +1,32 @@
+#' @name NetoTb2.4
+#' @title Comparação de resultados obtidos por 2 químicos
+#' @description Dois químicos, Arrhenius e Berzelius foram encarregados
+#' de analisar lotes de vinagre de 5 diferentes fabricantes, cada
+#' um obteve 5 diferentes resultados. O experimento contém um único
+#' fator com dois níveis (os químicos) e uma resposta (a
+#' concentração).
+#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{fator}}{Fator de 2 níveis qualitativos.}
+#'
+#' \item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
+#' diferentes fabricantes de vinagre.}
+#'
+#' \item{\code{concentração}}{Concentração de vinagre obtida.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb2.4)
+#' str(NetoTb2.4)
+#'
+#' xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
+#' xlab = "Amostra", ylab = "Resposta ")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb2.4.txt b/data-raw/NetoTb2.4.txt
new file mode 100644
index 00000000..2baf3c2a
--- /dev/null
+++ b/data-raw/NetoTb2.4.txt
@@ -0,0 +1,6 @@
+Amo Arrh Ber d
+1 3.77 3.62 0.15
+2 3.85 3.69 0.16
+3 4.07 4.10 -0.03
+4 4.83 4.70 0.13
+5 5.05 4.89 0.16
diff --git a/data/NetoTb2.4.rda b/data/NetoTb2.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0ae74aedc5e8cb5e6c772dab3b7df22340e81d9f
GIT binary patch
literal 292
zcmZ>Y%CIzaj8qGbJSbw=%D~Y5|NlSp7)FLf8Ky4>O<e5V@62#wXkg@FWN^5{#?YX^
z!OXdV;aWn|GRI{N%vTspq$C;`mu0c9e7Qo=ZPrW!H8nLi#|4tij>~45FfgPnN|9o?
zz`(dbO3H-6B!giIgU6=@oqjALHkU+2jx<SeZkv_PetvU^AbXEMUvkk5Ce<lC3VO%S
zuPhQ{IG~`QI)(Ma3a&_pJ`E+kg(_@+?u0JkXk}v2R(w%0U28$}@@Bphtjj-c`MQ1C
z%CFL2{p>||N!@fSRC@Bf!^G5k^5KV@Tl5a(8lC&e!q*%9*?&etT(U^Y_dBPqMa0iE
yVo7OEx)R%=biiT8#1FM9O(Gf|eoVg%o2F=qYBYahXxQJqQ)!NdM?#mxp#}iE7jaeq
literal 0
HcmV?d00001
diff --git a/man/NetoTb2.4.Rd b/man/NetoTb2.4.Rd
new file mode 100644
index 00000000..9908034d
--- /dev/null
+++ b/man/NetoTb2.4.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2.4.R
+\name{NetoTb2.4}
+\alias{NetoTb2.4}
+\title{Comparação de resultados obtidos por 2 químicos}
+\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{fator}}{Fator de 2 níveis qualitativos.}
+
+\item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
+ diferentes fabricantes de vinagre.}
+
+\item{\code{concentração}}{Concentração de vinagre obtida.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+}
+\description{
+Dois químicos, Arrhenius e Berzelius foram encarregados
+ de analisar lotes de vinagre de 5 diferentes fabricantes, cada
+ um obteve 5 diferentes resultados. O experimento contém um único
+ fator com dois níveis (os químicos) e uma resposta (a
+ concentração).
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb2.4)
+str(NetoTb2.4)
+
+xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
+ xlab = "Amostra", ylab = "Resposta ")
+
+}
+\keyword{DBC}
+
--
GitLab
From 0e5f0d2072de7c48d6c747aa595460eff84b4a77 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Fri, 2 Sep 2016 18:26:49 -0300
Subject: [PATCH 02/11] Adiciona Tabela 2.2
---
R/NetoTb2.2.R | 18 ++++++
data-raw/NetoTb2.2.txt | 140 +++++++++++++++++++++++++++++++++++++++++
data/NetoTb2.2.rda | Bin 0 -> 1171 bytes
man/NetoTb2.2.Rd | 26 ++++++++
4 files changed, 184 insertions(+)
create mode 100644 R/NetoTb2.2.R
create mode 100644 data-raw/NetoTb2.2.txt
create mode 100644 data/NetoTb2.2.rda
create mode 100644 man/NetoTb2.2.Rd
diff --git a/R/NetoTb2.2.R b/R/NetoTb2.2.R
new file mode 100644
index 00000000..412dce35
--- /dev/null
+++ b/R/NetoTb2.2.R
@@ -0,0 +1,18 @@
+#' @name NetoTb2.2
+#' @title Pesos de Caroços Extraídos de um Pacote de Feijão
+#' @description Pesos individuais de 140 caroços retirados
+#' aleatoriamente de um pacote contendo 1 kg de feijão preto.
+#' @format Um \code{vetor} numérico com 140 observações.
+#' @keywords AAS
+#' @source Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+#' @examples
+#'
+#' data(NetoTb2.2)
+#' str(NetoTb2.2)
+#'
+#' hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência",
+#' main = "Pesos dos Caroços", col = "grey", prob = TRUE)
+#'
+#' lines(density(NetoTb2.2), lwd = 2)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb2.2.txt b/data-raw/NetoTb2.2.txt
new file mode 100644
index 00000000..d8f70a5a
--- /dev/null
+++ b/data-raw/NetoTb2.2.txt
@@ -0,0 +1,140 @@
+0.1188
+0.1795
+0.2382
+0.2505
+0.1810
+0.2833
+0.2309
+0.1746
+0.2327
+0.2311
+0.2459
+0.1996
+0.2096
+0.1814
+0.2595
+0.1848
+0.1965
+0.2593
+0.2647
+0.1399
+0.2673
+0.1910
+0.2091
+0.1823
+0.2126
+0.2380
+0.2458
+0.1677
+0.2137
+0.1902
+0.2098
+0.1995
+0.2054
+0.1340
+0.1470
+0.2184
+0.1773
+0.1799
+0.2666
+0.2790
+0.1795
+0.1409
+0.2660
+0.1590
+0.1596
+0.1930
+0.1496
+0.2456
+0.1793
+0.1970
+0.1817
+0.1732
+0.1561
+0.2051
+0.2674
+0.2254
+0.1340
+0.2585
+0.2535
+0.1988
+0.2369
+0.1733
+0.2126
+0.1722
+0.2504
+0.1980
+0.1865
+0.1828
+0.2423
+0.1644
+0.1736
+0.1987
+0.1766
+0.2455
+0.1701
+0.1573
+0.2237
+0.2153
+0.1874
+0.1904
+0.1826
+0.2146
+0.2048
+0.1462
+0.2285
+0.1402
+0.2087
+0.1663
+0.2012
+0.1935
+0.2296
+0.2482
+0.2620
+0.2008
+0.2055
+0.1696
+0.1996
+0.2365
+0.1869
+0.1911
+0.1860
+0.1965
+0.2058
+0.1985
+0.3043
+0.2060
+0.2335
+0.1971
+0.1968
+0.1421
+0.2200
+0.1708
+0.1642
+0.1740
+0.2215
+0.2262
+0.1463
+0.1629
+0.2266
+0.2186
+0.2045
+0.2326
+0.1666
+0.1769
+0.1683
+0.2097
+0.2173
+0.2341
+0.2433
+0.1202
+0.2025
+0.2465
+0.2507
+0.2089
+0.2080
+0.1950
+0.1917
+0.1875
+0.2143
+0.1606
\ No newline at end of file
diff --git a/data/NetoTb2.2.rda b/data/NetoTb2.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..27a8a180a5b2b762b3974bbbfe2f1a4fb009400c
GIT binary patch
literal 1171
zcmZ>Y%CIzaj8qGbbSv?zWng&v9|GP(sQ=&hgBbDu|3d`s{r~^}0MpI8g||7ZcwGZ3
z{R1cP+J~^O$l&)dx$Nw~)62Nnalr+XuSO{hZ2f^-8MpK@zLMf)_#3#`t>MB~6SkSm
zS1w=S_cvKN*+FjdDf^HwS3dOzUs38(a}!qc5B4=sV@k?grp#z-GDDbALRoO)VvYo1
zmIFR&Oi39h7yGarUpB#)XNEvZ%E86To=paBGnlF}TumlB`*cob=$SFofU}|3<Vcc9
z$^iz>7YqVMh9*f8YQm14lhu4B7#K_#C*^WB8Z;Q1oNPJ7!!~QF;47ZSS5gcn7kHT!
z7#No|F1YN#>>$O<%fQR*aDm~%1;)i+O+K0|U|hiFHq%I=mmwqLg2^q%B9;?^YHP~<
zT-cbL%w>uj*+UX*TncoAl$#cCEL08>RBW@bnjt;iMPd>s(~(9awII<0L4RVGe+gDk
zZJ6}Jf1&MkjpH7R%v($Z&NE0ga%P_r-F4u)Xqk-ui)+n#3M{FUR1Maa2Un#`Dm{Mh
zNc;nDj*l$LvfL9jO(rq%2xc+uQ;1<&!YaN?{phI$th`R26IK~2GsKziIgz1RVZX8_
zMbA9L>qJvX+Q0B6@0?h77;oe>(z5v#xa!wEj@w?7t8^9Zm{K?z?-g3~T{PGrSQ&ZK
z`@2zNj-14g;`e8AZTHB34Vv%XXez_s_CD(A9;r94z7>ZToBdj_{cuFM@Y1P|zRfzl
z^|#GCyBE1av0LpWj^3_VE2@3@a_&>@lhT(~E<f`x>v6`C4QAZh$K&)~eG8Y{?Xjlu
z)U$+2BYTP0B4ui(uWfrPC*9Z)<y-cv=Hbf4pVfT}tQmICRZP4(b*B2Xn&xNg{wD0$
z$NnVg;8&it+m+5NKf8cUoU!BF`v(rWkEMPmtXOpO+P1qlcDOqHT_a!rfK#o~Xnm2u
z%fc0$;&)F9^R2g9zN!DD=&2JOYn2kdEWXbt`+VU_)kk?e{Am{sOnyIe#)V)u-TO;R
zMK&1ma<nfu5lCp%7rSP5{G}mp*rOneK;vxpA5PECIL+MLs{h>Ofc)ErNh?`8B(&P%
zcnx>4v98(8>Bo}t?T(0Jpt{@qDZKAJRCQSrWI4AieY*0>8dnL``pM=UA(q+dle;_Y
zL|;2hY?rVQF-}Wy|4}R<=dM(Crf=?ApGS4v?q?T%Y@d}P6H>;qD6cWQqlF=%;ZleO
zYuWR;4{A~;oJ?OJIiHWYopG<u1?B36^-c#8>^Epnw><yo^tv4rdAWJ?c0^dOnRv+B
z-XJV8OJP+&%a$2|Vyp=c3y*8aEOh^M<wHr#z9}~+h_5|pr4VDaf@Ok+go4UPhXWcH
z7H|tpZfN6R5m0q>=$_E=q~Y(s0LwrZZUHOTiXaijf*&D{3v3<2{3QZkHQD*H@0@kY
zbBoc#{Q?0g#>PGuy_J64G0^0_-4$_stIc+s<>nU7inCZ8?4NltCpslD9FoeGNJ=q2
zE>a*<$k#4XpkOdRTWaxy8_to*(Lx@3+}ahAqS;Q|+H-@|c}H07ZJy8&n^h}914J7`
R>W|);=qI8gI9GVS0{~2h{8In`
literal 0
HcmV?d00001
diff --git a/man/NetoTb2.2.Rd b/man/NetoTb2.2.Rd
new file mode 100644
index 00000000..659effa7
--- /dev/null
+++ b/man/NetoTb2.2.Rd
@@ -0,0 +1,26 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2.2.R
+\name{NetoTb2.2}
+\alias{NetoTb2.2}
+\title{Pesos de Caroços Extraídos de um Pacote de Feijão}
+\format{Um \code{vetor} numérico com 140 observações.}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+}
+\description{
+Pesos individuais de 140 caroços retirados
+ aleatoriamente de um pacote contendo 1 kg de feijão preto.
+}
+\examples{
+
+data(NetoTb2.2)
+str(NetoTb2.2)
+
+hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência",
+ main = "Pesos dos Caroços", col = "grey", prob = TRUE)
+
+lines(density(NetoTb2.2), lwd = 2)
+
+}
+\keyword{AAS}
+
--
GitLab
From c283e00bd0fa1101264e9c7df69a8c443582c0d3 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 4 Sep 2016 12:06:47 -0300
Subject: [PATCH 03/11] Adiciona Tabela 2A.3
---
R/NetoTb2A.3.R | 36 ++++++++++++++++++++++++++++++++
data-raw/NetoTb2A.3.txt | 22 ++++++++++++++++++++
data/NetoTb2A.3.rda | Bin 0 -> 541 bytes
man/NetoTb2A.3.Rd | 44 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 102 insertions(+)
create mode 100644 R/NetoTb2A.3.R
create mode 100644 data-raw/NetoTb2A.3.txt
create mode 100644 data/NetoTb2A.3.rda
create mode 100644 man/NetoTb2A.3.Rd
diff --git a/R/NetoTb2A.3.R b/R/NetoTb2A.3.R
new file mode 100644
index 00000000..2bbd899a
--- /dev/null
+++ b/R/NetoTb2A.3.R
@@ -0,0 +1,36 @@
+#' @name NetoTb2A.3
+#' @title Bioequivalencia de medicamentos
+#' @description à 21 voluntários foram ministrados dois medicamentos
+#' distintos e observou-se a concentração do princípio ativo no
+#' sangue dos indivíduos no período de 8 horas.
+#' @format Um \code{data.frame} com 21 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{vol}}{Número do voluntário.}
+#'
+#' \item{\code{A}}{Resultados da aplicação do medicamento A.}
+#'
+#' \item{\code{B}}{Resultados da aplicação do medicamento B.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+#' @examples
+#'
+#' data(NetoTb2A.3)
+#' str(NetoTb2A.3)
+#'
+#' par(mfrow = 1:2)
+#'
+#' plot(A ~ vol, type = "o", xlab = "Voluntário",
+#' ylab = "Área sob a Curva",
+#' main = "Medicamento A",
+#' col = "blue", data = NetoTb2A.3)
+#'
+#' plot(B ~ vol, type = "o", xlab = "Voluntário",
+#' ylab = "Área sob a Curva",
+#' main = "Medicamento B",
+#' col = "red", data = NetoTb2A.3)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb2A.3.txt b/data-raw/NetoTb2A.3.txt
new file mode 100644
index 00000000..630d4e72
--- /dev/null
+++ b/data-raw/NetoTb2A.3.txt
@@ -0,0 +1,22 @@
+vol A B
+1 12.761 10.983
+2 10.241 8.211
+3 8.569 9.105
+4 13.321 12.508
+5 11.481 12.114
+6 14.061 11.520
+7 12.287 11.983
+8 14.696 14.454
+9 12.526 11.246
+10 9.060 10.740
+11 12.329 10.879
+12 13.244 13.818
+13 7.864 7.156
+14 9.684 12.297
+15 11.811 12.279
+16 10.109 9.571
+17 10.966 9.895
+18 10.485 15.579
+19 11.899 9.296
+20 13.200 16.163
+21 12.368 11.838
diff --git a/data/NetoTb2A.3.rda b/data/NetoTb2A.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b1020d9124f61b4a0fb2240802552435ec8247d0
GIT binary patch
literal 541
zcmZ>Y%CIzaj8qGb+_C)EJO+ka|3TpB|Np;seOtXZv_Aaqey_zlj_!Hx8X6iKuwv2c
zoi8^qh8eIe2{7VuYjbvMU|=v|xWG1(fvw>J1Dmg{Ly8o`#mS0`GiLa5tdh!g%QUK*
z;VYH7aGB#|HOI-yiVHhim>m*&W;81pnJ`?)xL{(GA;s9{<z&JD0vU`8KokSB1DImq
z?qiS$kn>pZ=@5ql$2o>2D>%<Ja0P25sk~y-QV?6Hm#~t{^25}>^SwA@8mqaUx(LYy
zuum}y*7N2F<EUm8P+(c*6vD`p+SHiE+QA_5aTU|)RZI<CQ(~`(#I?6_U9sk1E8<CO
zWjn=qExJ{;Lq|1jN|@Ox#v7AfBu$tlqSnZ<)!C&rLxZ#D?+(Q{rqHeu4&{7F%{+;C
z@!Yp<jGYokPpwN1)R{KZYFk^_y~A^gj?X?R^gR8Viqj{RZwtQ`m7cVipufxiP}Jpr
zeRf9ox;mygtA2{94wH1Z5H@ykd~oH}qr>y=U2}}Qw>S67F*Tizv=c`YEv|%{DLG3@
zw|S&+>=E3+KK+4J{^K2q?v2sce*HIm_p4{|&M6wDtGHzN9JVjX+9ss^-?6q?J&gN9
zKf8H3f5(L^!C8v;=CD|u>tWB|>+C7CDv2v*i|>mYf-BaBJefG})!DokQXlN)Q%t{q
opBuxT_)u^^{{w@m)?A%`mw#yd!r!$2=$(mvA}V^C|CToZ0JYZR3jhEB
literal 0
HcmV?d00001
diff --git a/man/NetoTb2A.3.Rd b/man/NetoTb2A.3.Rd
new file mode 100644
index 00000000..809f31ba
--- /dev/null
+++ b/man/NetoTb2A.3.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2A.3.R
+\name{NetoTb2A.3}
+\alias{NetoTb2A.3}
+\title{Bioequivalencia de medicamentos}
+\format{Um \code{data.frame} com 21 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{vol}}{Número do voluntário.}
+
+\item{\code{A}}{Resultados da aplicação do medicamento A.}
+
+\item{\code{B}}{Resultados da aplicação do medicamento B.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+}
+\description{
+à 21 voluntários foram ministrados dois medicamentos
+ distintos e observou-se a concentração do princípio ativo no
+ sangue dos indivíduos no período de 8 horas.
+}
+\examples{
+
+data(NetoTb2A.3)
+str(NetoTb2A.3)
+
+par(mfrow = 1:2)
+
+plot(A ~ vol, type = "o", xlab = "Voluntário",
+ ylab = "Área sob a Curva",
+ main = "Medicamento A",
+ col = "blue", data = NetoTb2A.3)
+
+plot(B ~ vol, type = "o", xlab = "Voluntário",
+ ylab = "Área sob a Curva",
+ main = "Medicamento B",
+ col = "red", data = NetoTb2A.3)
+
+}
+\keyword{DBC}
+
--
GitLab
From 8c8c0c94ee36344d1f4a7b1343de1ed5c8492ae0 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 4 Sep 2016 23:52:28 -0300
Subject: [PATCH 04/11] Adiciona Tabela 3.3
---
R/NetoTb3.3.R | 48 +++++++++++++++++++++++++++++++++++
data-raw/NetoTb3.3.txt | 17 +++++++++++++
data/NetoTb3.3.rda | Bin 0 -> 333 bytes
man/NetoTb3.3.Rd | 56 +++++++++++++++++++++++++++++++++++++++++
4 files changed, 121 insertions(+)
create mode 100644 R/NetoTb3.3.R
create mode 100644 data-raw/NetoTb3.3.txt
create mode 100644 data/NetoTb3.3.rda
create mode 100644 man/NetoTb3.3.Rd
diff --git a/R/NetoTb3.3.R b/R/NetoTb3.3.R
new file mode 100644
index 00000000..f4beb05d
--- /dev/null
+++ b/R/NetoTb3.3.R
@@ -0,0 +1,48 @@
+#' @name NetoTb3.3
+#' @title Um planejamento fatorial 2^3
+#' @description Resultado de um planejamento fatorial 2^3
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio.}
+#'
+#' \item{\code{f1}}{Níveis do fator temperatura.}
+#'
+#' \item{\code{f2}}{Níveis do fator catalisador.}
+#'
+#' \item{\code{f3}}{Níveis do fator concentração.}
+#'
+#' \item{\code{rend}}{Percentual de rendimento observado.}
+#'
+#' \item{\code{ord}}{Ordem da realização do estudo.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+#' @examples
+#'
+#' data(NetoTb3.3)
+#' str(NetoTb3.3)
+#'
+#' par(mfrow=c(1,3))
+#'
+#' attach(NetoTb3.3)
+#'
+#' interaction.plot(f1, f2, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre os Fatores 1 e 2",
+#' col = "blue")
+#'
+#' interaction.plot(f1, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre os Fatores 1 e 3",
+#' col = "green")
+#'
+#' interaction.plot(f2, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Interação entre os Fatores 2 e 3",
+#' col = "red")
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb3.3.txt b/data-raw/NetoTb3.3.txt
new file mode 100644
index 00000000..e115b35e
--- /dev/null
+++ b/data-raw/NetoTb3.3.txt
@@ -0,0 +1,17 @@
+ens f1 f2 f3 rend ord
+1 -1 -1 -1 56 (7)
+2 1 -1 -1 85 (9)
+3 -1 1 -1 49 (11)
+4 1 1 -1 64 (2)
+5 -1 -1 1 65 (13)
+6 1 -1 1 92 (6)
+7 -1 1 1 57 (14)
+8 1 1 1 70 (8)
+9 -1 -1 -1 52 (12)
+10 1 -1 -1 88 (10)
+11 -1 1 -1 47 (15)
+12 1 1 -1 62 (1)
+13 -1 -1 1 61 (5)
+14 1 -1 1 95 (16)
+15 -1 1 1 60 (3)
+16 1 1 1 74 (4)
diff --git a/data/NetoTb3.3.rda b/data/NetoTb3.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e3d98e6edcd78cde83228568f39f2e9b806d3689
GIT binary patch
literal 333
zcmZ>Y%CIzaj8qGb?EKp&&cImr|G@wMCm0wK|36O^6m!|nKDWVv!GUoDqm*y6h*rh2
z%O};RTwHLWs(rEAvIhPD^QAm>%a&ZeVq%hHXviy}?AR#9GmB%Ysrr<YPkEUgE-;v6
zNHH+~;O;VQIo!1BY3qwqy24hk=W6RLnvtu;bYkDkr3JIv536Nz`3pSw-Ez}>(}Hhi
z%T5PJde2zmo_Blh!^e5^W^cWnJKN0tvrG<);M04DTsvY_a}TpIF`6z&bzu9pKkr$C
zO!=$m4Z0uVHhQvobjSucEote_SrR@)L95W|#)al8C8w<oIWui?&rEr@*23~!am9W!
z!FQ857UimGO;Y+YQ-Fhohk+%beSO%o{u~KqyA{1x|JSBZ@_gLA>z1;8;q{Z<`jsV8
rn!-=d2VGqheN{%EccJgByQ~Zf4GKn&@?BN`={@NxSg0ucTSgB6I%$%P
literal 0
HcmV?d00001
diff --git a/man/NetoTb3.3.Rd b/man/NetoTb3.3.Rd
new file mode 100644
index 00000000..ba2ef129
--- /dev/null
+++ b/man/NetoTb3.3.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3.3.R
+\name{NetoTb3.3}
+\alias{NetoTb3.3}
+\title{Um planejamento fatorial 2^3}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio.}
+
+\item{\code{f1}}{Níveis do fator temperatura.}
+
+\item{\code{f2}}{Níveis do fator catalisador.}
+
+\item{\code{f3}}{Níveis do fator concentração.}
+
+\item{\code{rend}}{Percentual de rendimento observado.}
+
+\item{\code{ord}}{Ordem da realização do estudo.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+}
+\description{
+Resultado de um planejamento fatorial 2^3
+}
+\examples{
+
+data(NetoTb3.3)
+str(NetoTb3.3)
+
+par(mfrow=c(1,3))
+
+attach(NetoTb3.3)
+
+interaction.plot(f1, f2, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre os Fatores 1 e 2",
+ col = "blue")
+
+interaction.plot(f1, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre os Fatores 1 e 3",
+ col = "green")
+
+interaction.plot(f2, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Interação entre os Fatores 2 e 3",
+ col = "red")
+
+
+}
+\keyword{DBC}
+
--
GitLab
From b6ae90b4ce9ca5830913665915b4a89f43aa59c3 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 10:44:28 -0300
Subject: [PATCH 05/11] Adiciona Tabela 2A.1
---
R/NetoTb2A.1.R | 37 +++++++++++++++++++++++++++++++++
data-raw/NetoTb2A.1.txt | 33 +++++++++++++++++++++++++++++
data/NetoTb2A.1.rda | Bin 0 -> 578 bytes
man/NetoTb2A.1.Rd | 45 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 115 insertions(+)
create mode 100644 R/NetoTb2A.1.R
create mode 100644 data-raw/NetoTb2A.1.txt
create mode 100644 data/NetoTb2A.1.rda
create mode 100644 man/NetoTb2A.1.Rd
diff --git a/R/NetoTb2A.1.R b/R/NetoTb2A.1.R
new file mode 100644
index 00000000..ef3aaf36
--- /dev/null
+++ b/R/NetoTb2A.1.R
@@ -0,0 +1,37 @@
+#' @name NetoTb2A.1
+#' @title De casa para o trabalho
+#' @description A tabela contém resultados de 32 ensaios em que foi
+#' cronometrado o tempo transcorrido desde a passagem por uma ponte
+#' até a chegada do pesquisador ao seu destino final.
+#' @format Um \code{data.frame} com 32 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Ensaio correspondente.}
+#'
+#' \item{\code{sai}}{Fator de 25 níveis qualitativos referente aos
+#' horários de saída do pesquisador.}
+#'
+#' \item{\code{dia}}{Fator de 5 níveis qualitativos referente aos dias
+#' da semana em que o pesquisador realizou o percurso.}
+#'
+#' \item{\code{perc}}{Fator de 3 níveis referente ao percurso realizado
+#' pelo pesquisador}
+#'
+#' \item{\code{tem}}{Tempo de viagem, em minutos}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb2A.1)
+#' str(NetoTb2A.1)
+#'
+#' xyplot(tem ~ ens, xlab = "Ensaio", ylab = "Tempo",
+#' main = "Tempos do Experimento na Ordem de Obtenção",
+#' data = NetoTb2A.1)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb2A.1.txt b/data-raw/NetoTb2A.1.txt
new file mode 100644
index 00000000..47dea3d5
--- /dev/null
+++ b/data-raw/NetoTb2A.1.txt
@@ -0,0 +1,33 @@
+ens sai dia perc tem
+1 10:55 segunda C 18.3
+2 11:20 quarta C 18.9
+3 10:40 sexta B 10.9
+4 11:25 segunda C 20.7
+5 12:50 sexta B 11.4
+6 11:30 quarta C 22.9
+7 11:25 quarta B 12.1
+8 07:35 ter�a A 12.8
+9 08:10 segunda C 56.3
+10 07:00 ter�a A 13.3
+11 08:10 quinta B 10.9
+12 17:00 sexta A 13.1
+13 15:00 quarta A 12.7
+14 12:30 segunda C 20.6
+15 07:30 ter�a C 18.9
+16 12:30 quarta B 11
+17 08:15 sexta B 10.3
+18 07:05 quinta A 13
+19 12:50 segunda C 18.6
+20 07:35 ter�a A 13
+21 08:00 quinta B 10.6
+22 09:20 quarta B 10.4
+23 07:15 quinta C 21.5
+24 08:15 sexta B 10.9
+25 08:40 segunda B 10.9
+26 08:40 quarta B 11
+27 09:00 sexta C 19.1
+28 10:00 quarta C 16.1
+29 09:10 sexta B 12.1
+30 09:15 quarta C 18.1
+31 11:15 segunda B 12.2
+32 14:30 sexta C 19.2
diff --git a/data/NetoTb2A.1.rda b/data/NetoTb2A.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7b82583c3a097839d543c3975fa536e95fdb0ef0
GIT binary patch
literal 578
zcmZ>Y%CIzaj8qGbEYoOM%fPg&{_X$&|NkE^tp8BMD&k<j{Qm(51_lET1_n0A1_s6h
zj2{ck3{G)Q@s(edIq_AcDYN5NTjeY4E12CH7#GMjRW<txB?e!q>QUS(#Q*_pjb{xd
zB~4B)kmQx*naRMwtnAav%#p$|#bM>ETp!29$_@-{Z9a{!4EY198l-F;U-wVpxzKPd
zrF-HfU7JI@M2s&?cH&o@>dBgPE=w<oHJl^*l#4*jsYeG+zP5Sb`c7f$l6H}d`$0-_
zjY2mB+O|jq?RvOEjWg)mhYJ6shhO(6r~h*0+?=@jT!D$E8HdRlBh?$J)@Dh^PQ=Yy
zwr=YRhd%il56Mezo~$35JOZxYSP^m1%<9+7oOS#B&SeLPyge8bDD-Due|z@Ew+}yW
z`Lkrg#EC5v4W~KmYn5eTxWu9osmP)A!Scn*#VltkAG%%Hk|C}Vrjk3cbqUL(18ejf
zw5lIZQVe7AXzbf|MLtS0Vb&}g3Gs7jUp2d?E^U{KJalSLOF{Xo5D$SBnbFC?rp}Dh
zSQ*dn-}_2$=b^S%gEnL5Lwm#*_$|DC<6`lgRhxw*j;;1(mkMUPx|GYQje{#FG?zQb
z%PZ^%_qp(#{hfR3dgpJIIJ4Q$;C{~gs0mvyoedVA-m1^Tmm5&$#b6@&_QBnqk$>)G
z^|N=&Cp}!lB2#j#@>I@`m!cP^i`Z?AcAl}!)@$d2fHhO{b4nU`FCSI^a?3j0iKVqX
i(7fhgeb}=f&yUn^UF#RTEGGP)-jl9^g$i#18KVHSa{e>`
literal 0
HcmV?d00001
diff --git a/man/NetoTb2A.1.Rd b/man/NetoTb2A.1.Rd
new file mode 100644
index 00000000..ecc0a301
--- /dev/null
+++ b/man/NetoTb2A.1.Rd
@@ -0,0 +1,45 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2A.1.R
+\name{NetoTb2A.1}
+\alias{NetoTb2A.1}
+\title{De casa para o trabalho}
+\format{Um \code{data.frame} com 32 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Ensaio correspondente.}
+
+\item{\code{sai}}{Fator de 25 níveis qualitativos referente aos
+ horários de saída do pesquisador.}
+
+\item{\code{dia}}{Fator de 5 níveis qualitativos referente aos dias
+ da semana em que o pesquisador realizou o percurso.}
+
+\item{\code{perc}}{Fator de 3 níveis referente ao percurso realizado
+ pelo pesquisador}
+
+\item{\code{tem}}{Tempo de viagem, em minutos}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+}
+\description{
+A tabela contém resultados de 32 ensaios em que foi
+ cronometrado o tempo transcorrido desde a passagem por uma ponte
+ até a chegada do pesquisador ao seu destino final.
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb2A.1)
+str(NetoTb2A.1)
+
+xyplot(tem ~ ens, xlab = "Ensaio", ylab = "Tempo",
+ main = "Tempos do Experimento na Ordem de Obtenção",
+ data = NetoTb2A.1)
+
+}
+\keyword{DBC}
+
--
GitLab
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 06/11] =?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
From e32ade2631efd5f88d58b597dc9ff725d2e086f4 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 12:31:08 -0300
Subject: [PATCH 07/11] Adiciona Tabela 3.6
---
R/NetoTb3.6.R | 34 ++++++++++++++++++++++++++++++++++
data-raw/NetoTb3.6.txt | 17 +++++++++++++++++
data/NetoTb3.6.rda | Bin 0 -> 245 bytes
man/NetoTb3.6.Rd | 41 +++++++++++++++++++++++++++++++++++++++++
4 files changed, 92 insertions(+)
create mode 100644 R/NetoTb3.6.R
create mode 100644 data-raw/NetoTb3.6.txt
create mode 100644 data/NetoTb3.6.rda
create mode 100644 man/NetoTb3.6.Rd
diff --git a/R/NetoTb3.6.R b/R/NetoTb3.6.R
new file mode 100644
index 00000000..7ce37ae4
--- /dev/null
+++ b/R/NetoTb3.6.R
@@ -0,0 +1,34 @@
+#' @name NetoTb3.6
+#' @title Influência de quatro fatores no rendimento de uma reação
+#' @description Resultado de um fatorial 2^4
+#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio correspondente.}
+#'
+#' \item{\code{f1}}{Fator temperatura.}
+#'
+#' \item{\code{f2}}{Fator catalisador.}
+#'
+#' \item{\code{f3}}{Fator concentração.}
+#'
+#' \item{\code{f1}}{Fator PH.}
+#'
+#' \item{res}{Resposta.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(NetoTb3.6)
+#' str(NetoTb3.6)
+#'
+#' xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+#' data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
+
+#'
+NULL
diff --git a/data-raw/NetoTb3.6.txt b/data-raw/NetoTb3.6.txt
new file mode 100644
index 00000000..b750f0fa
--- /dev/null
+++ b/data-raw/NetoTb3.6.txt
@@ -0,0 +1,17 @@
+ens f1 f2 f3 f4 res
+1 -1 -1 -1 -1 54
+2 +1 -1 -1 -1 85
+3 -1 +1 -1 -1 49
+4 +1 +1 -1 -1 62
+5 -1 -1 +1 -1 64
+6 +1 -1 +1 -1 94
+7 -1 +1 +1 -1 56
+8 +1 +1 +1 -1 70
+9 -1 -1 -1 +1 52
+10 +1 -1 -1 +1 87
+11 -1 +1 -1 +1 49
+12 +1 +1 -1 +1 64
+13 -1 -1 +1 +1 64
+14 +1 -1 +1 +1 94
+15 -1 +1 +1 +1 58
+16 +1 +1 +1 +1 73
diff --git a/data/NetoTb3.6.rda b/data/NetoTb3.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d9812838162bedcf9b19e21ba500aa221e646f06
GIT binary patch
literal 245
zcmZ>Y%CIzaj8qGb3>N(|g@NIB{el1gPp~jB+6KBRiXF6PpVQ#L;J~<n;noxrFS+GY
zE_`XoTwuP6t>J=nRvQE30tTZD1_l!*S5aflU!5<_8id`185m~FYuGBVAkjGU(yL7g
zJwaU>3+%EEtnp{syE2e7ie-kKcOJh{n{vjnLoybNR|<CtwYY3jTD?V3Aahlz^K2)N
zT}NlOdP|iiZnRQko#UM2Aisu*;ewX|ufmb$>d8t5?pst3Uv*w-{anKC7}sKvv$2im
zma&Ek_SVPk?6ER#Y)w<MRd};0WlNjpMDF?W;cSzf|9DsXZvGQ{QskkNqfhvy007(a
BV8Q?Z
literal 0
HcmV?d00001
diff --git a/man/NetoTb3.6.Rd b/man/NetoTb3.6.Rd
new file mode 100644
index 00000000..e7f1bc13
--- /dev/null
+++ b/man/NetoTb3.6.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb3.6.R
+\name{NetoTb3.6}
+\alias{NetoTb3.6}
+\title{Influência de quatro fatores no rendimento de uma reação}
+\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio correspondente.}
+
+\item{\code{f1}}{Fator temperatura.}
+
+\item{\code{f2}}{Fator catalisador.}
+
+\item{\code{f3}}{Fator concentração.}
+
+\item{\code{f1}}{Fator PH.}
+
+\item{res}{Resposta.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+}
+\description{
+Resultado de um fatorial 2^4
+}
+\examples{
+
+library(lattice)
+
+data(NetoTb3.6)
+str(NetoTb3.6)
+
+xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
+ data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
+
+}
+\keyword{DBC}
+
--
GitLab
From eedf4be81a5bfeca37e0f47f6cc923fb91923e1f Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 13:43:53 -0300
Subject: [PATCH 08/11] Adiciona Tabela 2A.1
---
R/NetoTb2A.1.R | 34 ++++++++++++++---------------
data-raw/NetoTb2A.1.txt | 46 ++++++++++++++++++++--------------------
data/NetoTb2A.1.rda | Bin 578 -> 586 bytes
man/NetoTb2A.1.Rd | 32 +++++++++++++---------------
4 files changed, 54 insertions(+), 58 deletions(-)
diff --git a/R/NetoTb2A.1.R b/R/NetoTb2A.1.R
index ef3aaf36..a08931cc 100644
--- a/R/NetoTb2A.1.R
+++ b/R/NetoTb2A.1.R
@@ -1,37 +1,35 @@
#' @name NetoTb2A.1
#' @title De casa para o trabalho
-#' @description A tabela contém resultados de 32 ensaios em que foi
-#' cronometrado o tempo transcorrido desde a passagem por uma ponte
-#' até a chegada do pesquisador ao seu destino final.
+#' @description Foi cronometrado o tempo transcorrido desde o momento em
+#' que o ônibus passa por uma ponte no trajeto até a hora que o
+#' pesquisador chega à seu destino final.
#' @format Um \code{data.frame} com 32 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Ensaio correspondente.}
+#' \item{\code{ens}}{Número do ensaio.}
#'
-#' \item{\code{sai}}{Fator de 25 níveis qualitativos referente aos
-#' horários de saída do pesquisador.}
-#'
-#' \item{\code{dia}}{Fator de 5 níveis qualitativos referente aos dias
-#' da semana em que o pesquisador realizou o percurso.}
+#' \item{\code{sai}}{Fator de 25 níveis referentes aos horários de
+#' saída do pesquisador.}
#'
-#' \item{\code{perc}}{Fator de 3 níveis referente ao percurso realizado
-#' pelo pesquisador}
+#' \item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
+#' realizou o trajeto.}
+#'
+#' \item{perc}{Fator de e níveis referentes ao percurso realizado.}
#'
-#' \item{\code{tem}}{Tempo de viagem, em minutos}
+#' \item{tem}{Tempo de viagem do pesquisador.}
#'
#' }
#' @keywords DBC
#' @source Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
#' @examples
#'
-#' library(lattice)
-#'
#' data(NetoTb2A.1)
#' str(NetoTb2A.1)
#'
-#' xyplot(tem ~ ens, xlab = "Ensaio", ylab = "Tempo",
-#' main = "Tempos do Experimento na Ordem de Obtenção",
-#' data = NetoTb2A.1)
+#' plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
+#' xlab = "Ensaio", ylab = "Tempo",
+#' main = "Tempo de Viagem")
+#'
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/NetoTb2A.1.txt b/data-raw/NetoTb2A.1.txt
index 47dea3d5..b14a3805 100644
--- a/data-raw/NetoTb2A.1.txt
+++ b/data-raw/NetoTb2A.1.txt
@@ -1,27 +1,27 @@
ens sai dia perc tem
-1 10:55 segunda C 18.3
-2 11:20 quarta C 18.9
-3 10:40 sexta B 10.9
-4 11:25 segunda C 20.7
-5 12:50 sexta B 11.4
-6 11:30 quarta C 22.9
-7 11:25 quarta B 12.1
-8 07:35 ter�a A 12.8
-9 08:10 segunda C 56.3
-10 07:00 ter�a A 13.3
-11 08:10 quinta B 10.9
-12 17:00 sexta A 13.1
-13 15:00 quarta A 12.7
-14 12:30 segunda C 20.6
-15 07:30 ter�a C 18.9
-16 12:30 quarta B 11
-17 08:15 sexta B 10.3
-18 07:05 quinta A 13
-19 12:50 segunda C 18.6
-20 07:35 ter�a A 13
-21 08:00 quinta B 10.6
-22 09:20 quarta B 10.4
-23 07:15 quinta C 21.5
+1 10:55 seg C 18.3
+2 11:20 qua C 18.9
+3 10:40 sex B 10.9
+4 11:25 seg C 20.7
+5 12:50 sex B 11.4
+6 11:30 qua C 22.9
+7 11:25 qua B 12.1
+8 07:35 ter A 12.8
+9 08:10 seg C 56.3
+10 07:00 ter A 13.3
+11 08:10 qui B 10.9
+12 17:00 sex A 13.1
+13 15:00 qua A 12.7
+14 12:30 seg C 20.6
+15 07:30 ter C 18.9
+16 12:30 qua B 11
+17 08:15 sex B 10.3
+18 07:05 qui A 13
+19 12:50 seg C 18.6
+20 07:35 ter A 13
+21 08:00 qui B 10.6
+22 09:20 qua B 10.4
+23 07:15 qui C 21.5
24 08:15 sexta B 10.9
25 08:40 segunda B 10.9
26 08:40 quarta B 11
diff --git a/data/NetoTb2A.1.rda b/data/NetoTb2A.1.rda
index 7b82583c3a097839d543c3975fa536e95fdb0ef0..13161cdea851970dffa916b4556af6366ca4696f 100644
GIT binary patch
delta 572
zcmX@aa*9RJDJsL#&@oaiIFjYwl@bP~V-p3X>lqjr4={c#P~_!MTk_Q=@RfA%sf-Mx
zs)h?vj0+gp8or!lTQ>QE#$Q*H6NgexFi5!hv^5-JV31^&H1OqVb93|MWymlxXvi?h
zoN&a1!DUfas(-Mrt>Xj+h7%bKNx9CPi?3W@d?okmw!%zy-iYQ$CR2Jc&IM{ra+Q&A
z%#IXLtzWyyBh7|$9ozQ_3W07LrFoZiERgxWGk?jp<7%xcDj8hCvKl^Y3;fu6%*-O0
zb9N{cgq-~O_>`59Sy}kye*y}wel3A^WyUdIHa&m3E%nT;YdL2-nZB5mY<cU&y0cEp
zFsVAlL9`%2)vs-9z|QWqw=Un?wP)>Io@*?@VH%ISroXBG_0MYV-@D!`-?#fuT<6It
zDd8#X^5?*|ESnI4tD!0_3aft=Ul8tRd0@8C?PTKOPNj{?nGz9AQh{sqI~1PvMYKk6
zDzWwE29!^@-&AZ=_d$QI@2+53ZSP*qa_-v77Z2WrteBt}a58(=98n&&7!h{6XZK!q
z3%BxeC9<${JDEt=dx%f?{3UqW)<w!Zhk7rr?ALj!^J<ktn}CKy(8O@wEGH+|Ek}QZ
zKHU9l`iDBXvzjZy%~$X&ykd0a$rowycu}X#OPglINgUXB;((5-+gj^dB}<iOwT&&e
z-s>5tJUq3gjC05HW>F)4wRFD4oi8jeCSIH-v}Z+6UUnRVxMS?R_3}#Yd$%|_?F=+}
f-TJr3_v87V|1q=joQ~E%dgrm6ONe3it-b~T2om=U
delta 564
zcmX@ba)?FHDJsL#&@oaiII>KmVJ!pGu8D%u^$iS+2N*vVm>HbnoZ>6LDs$qiN>gUX
zt+vWn*jF&SH83uaYpQDY6-o@gQq`llRf+)u*c#6oN=llXTp-CS$upCIfmzw7mzg7l
zV~WGdSGhipi<KQ1*xGy=Um5ZTR5eK1I==3o!gHbFSW5TAOS(3Pc8M5YnC!%_IMtK2
zKIvSRUJ`3KNAxKdftXW|4xD^#^T73;!qg@0A{qCCl;j$PZV0q(kqX-NaD^IY(6<j2
z{z(tN?oUqt<;uA^arL<Z6HPM?lQl-FH&U(5l8&8-o40J;))fwY@--fkm)tyAKQws+
zT)(j*;-Hz;ubDaP_W7O54iI^JFeXsw&%FNj?2YwrAAa8QXUT+#6I&)4PIK7TD$Bxf
ziA5z+kwfc)<%^YzS<X~Gbi1-8LtG_HC3j-$5|&2?*625ARX?7j7{=t$*thM9e3WFu
ztXVb^;^)%7YIaRs+AbG)=+vH;g7Q}(9s(;eqmzS8of)UGGM?YR_m$qxLv5`FZN|=r
z_J}X=TX_A(#ronot2PTs99!+nE)~pnbt#uq8wXcVXfAh<msi*k?sMTe`#bm6_0Hca
zab~lh!Tp@~Q4_XaIvXrJy;YxwFE^mhi@`+l?Ss2JBmdmX>SynkPkOk9MW*Cf<*A$>
zFGVj-7qQzK?L1?dt=G;40c)n@=ae+?UOuY+<(7506H9A(pm~kd!TPXgKb{|{-@4W>
Ucv(#NKfNbi1q&741Tsbe0KxJ0WB>pF
diff --git a/man/NetoTb2A.1.Rd b/man/NetoTb2A.1.Rd
index ecc0a301..6ccd6398 100644
--- a/man/NetoTb2A.1.Rd
+++ b/man/NetoTb2A.1.Rd
@@ -7,38 +7,36 @@
\describe{
-\item{\code{ens}}{Ensaio correspondente.}
+\item{\code{ens}}{Número do ensaio.}
-\item{\code{sai}}{Fator de 25 níveis qualitativos referente aos
- horários de saída do pesquisador.}
-
-\item{\code{dia}}{Fator de 5 níveis qualitativos referente aos dias
- da semana em que o pesquisador realizou o percurso.}
+\item{\code{sai}}{Fator de 25 níveis referentes aos horários de
+ saída do pesquisador.}
-\item{\code{perc}}{Fator de 3 níveis referente ao percurso realizado
- pelo pesquisador}
+\item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
+ realizou o trajeto.}
+
+\item{perc}{Fator de e níveis referentes ao percurso realizado.}
-\item{\code{tem}}{Tempo de viagem, em minutos}
+\item{tem}{Tempo de viagem do pesquisador.}
}}
\source{
Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
}
\description{
-A tabela contém resultados de 32 ensaios em que foi
- cronometrado o tempo transcorrido desde a passagem por uma ponte
- até a chegada do pesquisador ao seu destino final.
+Foi cronometrado o tempo transcorrido desde o momento em
+ que o ônibus passa por uma ponte no trajeto até a hora que o
+ pesquisador chega à seu destino final.
}
\examples{
-library(lattice)
-
data(NetoTb2A.1)
str(NetoTb2A.1)
-xyplot(tem ~ ens, xlab = "Ensaio", ylab = "Tempo",
- main = "Tempos do Experimento na Ordem de Obtenção",
- data = NetoTb2A.1)
+plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
+ xlab = "Ensaio", ylab = "Tempo",
+ main = "Tempo de Viagem")
+
}
\keyword{DBC}
--
GitLab
From 9dfec536c3c5138c0d92fd5ab37e01897683da86 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 14:12:54 -0300
Subject: [PATCH 09/11] Adiciona Tabela 2A.5
---
R/NetoTb2A.5.R | 28 ++++++++++++++++++++++++++++
data-raw/NetoTb2A.5.txt | 11 +++++++++++
data/NetoTb2A.5.rda | Bin 0 -> 296 bytes
man/NetoTb2A.5.Rd | 36 ++++++++++++++++++++++++++++++++++++
4 files changed, 75 insertions(+)
create mode 100644 R/NetoTb2A.5.R
create mode 100644 data-raw/NetoTb2A.5.txt
create mode 100644 data/NetoTb2A.5.rda
create mode 100644 man/NetoTb2A.5.Rd
diff --git a/R/NetoTb2A.5.R b/R/NetoTb2A.5.R
new file mode 100644
index 00000000..4d4a54cd
--- /dev/null
+++ b/R/NetoTb2A.5.R
@@ -0,0 +1,28 @@
+#' @name NetoTb2A.5
+#' @title Produtividade de algas marinhas
+#' @description Teor de Agar-agar de algas retiradas de 2 locais.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
+#'
+#' \item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+#' @examples
+#'
+#' data(NetoTb2A.5)
+#' str(NetoTb2A.5)
+#'
+#' par(mfrow = c(1,2))
+#'
+#' plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(%)",
+#' main = "Teor de agar no local A", col = "blue")
+#'
+#' plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(%)",
+#' main = "Teor de agar no local B", col = "red")
+#'
+#'
+NULL
diff --git a/data-raw/NetoTb2A.5.txt b/data-raw/NetoTb2A.5.txt
new file mode 100644
index 00000000..067b3a4f
--- /dev/null
+++ b/data-raw/NetoTb2A.5.txt
@@ -0,0 +1,11 @@
+A B
+39.75 42.37
+36.4 45.23
+33.88 34.14
+27.85 37
+31.42 29.96
+34.4 31.82
+36.62 34.58
+36.5 42.58
+38.04 42.38
+23.8 NA
diff --git a/data/NetoTb2A.5.rda b/data/NetoTb2A.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ce2d3c36f491304cbf5dbd2b6bf697cd8bb20d9f
GIT binary patch
literal 296
zcmZ>Y%CIzaj8qGb^vy80WMF8o|Nn1u1|x&xt*-xqTU_k<|1=z8XfTpsU~mv%Q&`}@
z<IK2$;o5<W3A1<_d>qcIFAzA9xa7!zQ`G^PFPS~nS1xwz4`B8+VK6b_mEvh&V31U4
zU|^79U~6EIVqjojzQ>^CfRoFLevucUKYT7WwoSEKVpr=T;Bqvt(vPDna^a$oh}O<N
zFD8qHO$~i-83II_EV35ymZ&6r3gMAG%yOk$KrATU_`g$H<$+bkO&7`~44M-6{xjGa
z{V_^KwRKts>#c}CJqia65`q_;d6y8~SbsNi*;0f4??0kuauyWVh<m0*=TB`=Jm33x
z8sFCQ?m>$>=BcJU`R`$|K!xLUV)5@n7p1#0UV?ii$~S4TFu&7#(p9ifVb+DbA^-#;
BcvJuY
literal 0
HcmV?d00001
diff --git a/man/NetoTb2A.5.Rd b/man/NetoTb2A.5.Rd
new file mode 100644
index 00000000..7881f9b5
--- /dev/null
+++ b/man/NetoTb2A.5.Rd
@@ -0,0 +1,36 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2A.5.R
+\name{NetoTb2A.5}
+\alias{NetoTb2A.5}
+\title{Produtividade de algas marinhas}
+\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
+
+\item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+}
+\description{
+Teor de Agar-agar de algas retiradas de 2 locais.
+}
+\examples{
+
+data(NetoTb2A.5)
+str(NetoTb2A.5)
+
+par(mfrow = c(1,2))
+
+plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(\%)",
+ main = "Teor de agar no local A", col = "blue")
+
+plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(\%)",
+ main = "Teor de agar no local B", col = "red")
+
+
+}
+\keyword{DBC}
+
--
GitLab
From bf502a19dd1a637ecb0f80ef45b734206c0c5981 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Mon, 5 Sep 2016 18:08:11 -0300
Subject: [PATCH 10/11] Modifica Tabela 3.6
---
R/NetoTb3.6.R | 2 +-
man/NetoTb3.6.Rd | 1 +
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/NetoTb3.6.R b/R/NetoTb3.6.R
index 7ce37ae4..2bc96ccb 100644
--- a/R/NetoTb3.6.R
+++ b/R/NetoTb3.6.R
@@ -29,6 +29,6 @@
#'
#' xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
#' data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-
+#'
#'
NULL
diff --git a/man/NetoTb3.6.Rd b/man/NetoTb3.6.Rd
index e7f1bc13..df755f32 100644
--- a/man/NetoTb3.6.Rd
+++ b/man/NetoTb3.6.Rd
@@ -36,6 +36,7 @@ str(NetoTb3.6)
xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
+
}
\keyword{DBC}
--
GitLab
From 990702a6599c62e457df8609f3817bdfe04ee804 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 18 Nov 2016 15:57:21 -0200
Subject: [PATCH 11/11] =?UTF-8?q?Faz=20corre=C3=A7=C3=B5es=20na=20document?=
=?UTF-8?q?a=C3=A7=C3=A3o=20e=20rda.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/NetoEx3.11.R | 57 +++++++++++++++++--------------------
R/NetoTb2.2.R | 17 ++++++-----
R/NetoTb2.4.R | 49 ++++++++++++++++++++-----------
R/NetoTb2A.1.R | 48 ++++++++++++++++++++-----------
R/NetoTb2A.3.R | 43 +++++++++++++++-------------
R/NetoTb2A.5.R | 32 ++++++++++++---------
R/NetoTb3.3.R | 68 +++++++++++++++++++++-----------------------
R/NetoTb3.6.R | 36 ++++++++++++-----------
data/NetoEx3.11.rda | Bin 346 -> 311 bytes
data/NetoTb2.4.rda | Bin 292 -> 268 bytes
data/NetoTb2A.1.rda | Bin 586 -> 616 bytes
data/NetoTb2A.5.rda | Bin 296 -> 333 bytes
data/NetoTb3.3.rda | Bin 333 -> 247 bytes
data/NetoTb3.6.rda | Bin 245 -> 219 bytes
man/NetoEx3.11.Rd | 51 +++++++++++++++------------------
man/NetoTb2.2.Rd | 15 ++++++----
man/NetoTb2.4.Rd | 45 +++++++++++++++++++----------
man/NetoTb2A.1.Rd | 46 +++++++++++++++++++-----------
man/NetoTb2A.3.Rd | 41 +++++++++++++-------------
man/NetoTb2A.5.Rd | 30 ++++++++++---------
man/NetoTb3.3.Rd | 60 +++++++++++++++++++-------------------
man/NetoTb3.6.Rd | 32 +++++++++++----------
22 files changed, 369 insertions(+), 301 deletions(-)
diff --git a/R/NetoEx3.11.R b/R/NetoEx3.11.R
index ba17b33c..2255a22f 100644
--- a/R/NetoEx3.11.R
+++ b/R/NetoEx3.11.R
@@ -1,48 +1,43 @@
#' @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
+#' analisados dados obtidos por um pesquisador numa série de
+#' experimentos de síntese de polipirrol numa matriz de EPDM. O
+#' plano fatorial é um \eqn{2^3} com duas repetições.
+#' @format Um \code{data.frame} com 16 observações e 4 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.}
#'
+#' \item{\code{rend}}{Rendimento da reação (\%).}
+#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+#' @keywords FAT2K
+#' @source NETO et al. (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
+#' par(mfrow = c(1,3))
+#' with(NetoEx3.11, {
+#' interaction.plot(t, C, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Tempo de Reação x Conc. de Oxidante",
+#' col = "blue")
+#' interaction.plot(t, P, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Tempo de Reação x Tamanho da Partícula",
+#' col = "green")
+#' interaction.plot(C, P, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Conc. de Oxidente x Tamanho da Partícula",
+#' col = "red")
+#' })
+#'
+NULL
diff --git a/R/NetoTb2.2.R b/R/NetoTb2.2.R
index 412dce35..715d67e2 100644
--- a/R/NetoTb2.2.R
+++ b/R/NetoTb2.2.R
@@ -1,18 +1,21 @@
#' @name NetoTb2.2
#' @title Pesos de Caroços Extraídos de um Pacote de Feijão
-#' @description Pesos individuais de 140 caroços retirados
+#' @description Pesos individuais de 140 caroços retirados
#' aleatoriamente de um pacote contendo 1 kg de feijão preto.
#' @format Um \code{vetor} numérico com 140 observações.
#' @keywords AAS
-#' @source Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+#' @source NETO et al. (2010), Tabela 2.2, pág. 32.
#' @examples
#'
#' data(NetoTb2.2)
#' str(NetoTb2.2)
#'
-#' hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência",
-#' main = "Pesos dos Caroços", col = "grey", prob = TRUE)
-#'
-#' lines(density(NetoTb2.2), lwd = 2)
+#' hist(NetoTb2.2,
+#' xlab = "Peso",
+#' ylab = "Frequência",
+#' main = "Pesos dos Caroços",
+#' col = "grey",
+#' prob = TRUE)
+#' lines(density(NetoTb2.2), lwd = 2)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb2.4.R b/R/NetoTb2.4.R
index a3c88034..03d81d42 100644
--- a/R/NetoTb2.4.R
+++ b/R/NetoTb2.4.R
@@ -1,32 +1,47 @@
#' @name NetoTb2.4
-#' @title Comparação de resultados obtidos por 2 químicos
-#' @description Dois químicos, Arrhenius e Berzelius foram encarregados
-#' de analisar lotes de vinagre de 5 diferentes fabricantes, cada
-#' um obteve 5 diferentes resultados. O experimento contém um único
-#' fator com dois níveis (os químicos) e uma resposta (a
-#' concentração).
-#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#' @title Comparação de Titulação de Viangre por 2 Químicos
+#' @description Dois químicos, Arrhenius e Berzelius, foram encarregados
+#' de analisar lotes de vinagre de 5 diferentes fabricantes. O
+#' experimento contém um único fator com dois níveis (os químicos) e
+#' uma resposta (o teor de acído acético, em \%). As medidas são
+#' pareadas, ou seja, os dois quimícos avaliam cada um dos vinagres
+#' gerando, para cada vinagre, um par de valores da resposta.
+#' @format Um \code{data.frame} com 5 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{fator}}{Fator de 2 níveis qualitativos.}
+#' \item{\code{Arr}}{Teores de ácido acético determinados pelo Químico
+#' Arrhenius.}
#'
-#' \item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
-#' diferentes fabricantes de vinagre.}
+#' \item{\code{Ber}}{Teores de ácido acético determinados pelo Químico
+#' Berzelius.}
#'
-#' \item{\code{concentração}}{Concentração de vinagre obtida.}
+#' \item{\code{d}}{Diferença de concentação obtida entre os químicos
+#' para a amostra de vinagre do mesmo fabricante.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+#' @keywords pareada
+#' @source NETO et al. (2010), Tabela 2.4, pág. 79.
#' @examples
#'
#' library(lattice)
+#' library(latticeExtra)
#'
#' data(NetoTb2.4)
#' str(NetoTb2.4)
#'
-#' xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
-#' xlab = "Amostra", ylab = "Resposta ")
-#'
-NULL
\ No newline at end of file
+#' dotplot(1:length(d) ~ Arr + Ber,
+#' data = NetoTb2.4,
+#' auto.key = TRUE,
+#' xlab = "Teor de ácido acético (%)",
+#' ylab = "Fabricantes")
+#'
+#' xyplot(Arr ~ Ber,
+#' data = NetoTb2.4,
+#' aspect = "iso",
+#' grid = TRUE,
+#' xlab = "Berzelius",
+#' ylab = "Arrhenius") +
+#' layer(panel.abline(a = 0, b = 1, lty = 2))
+#'
+NULL
diff --git a/R/NetoTb2A.1.R b/R/NetoTb2A.1.R
index a08931cc..c3317919 100644
--- a/R/NetoTb2A.1.R
+++ b/R/NetoTb2A.1.R
@@ -1,35 +1,49 @@
#' @name NetoTb2A.1
-#' @title De casa para o trabalho
+#' @title Tempo de Casa ao Trabalho em 3 Percursos
#' @description Foi cronometrado o tempo transcorrido desde o momento em
#' que o ônibus passa por uma ponte no trajeto até a hora que o
-#' pesquisador chega à seu destino final.
-#' @format Um \code{data.frame} com 32 observações e 5 variáveis, em que
+#' pesquisador chega à seu destino final. Os dados possem registros
+#' do dia da semana e do percurso que foi feito.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Número do ensaio.}
+#' \item{\code{sai}}{Variável que indica o horário de saída do
+#' pesquisador rumo ao destino final.}
#'
-#' \item{\code{sai}}{Fator de 25 níveis referentes aos horários de
-#' saída do pesquisador.}
+#' \item{dia}{Fator de 5 níveis referentes aos dias da semana em que o
+#' pesquisador realizou o trajeto.}
#'
-#' \item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
-#' realizou o trajeto.}
-#'
-#' \item{perc}{Fator de e níveis referentes ao percurso realizado.}
-#'
-#' \item{tem}{Tempo de viagem do pesquisador.}
+#' \item{perc}{Fator de 3 níveis referentes ao percurso (trajeto)
+#' realizado.}
+#'
+#' \item{tem}{Tempo até chegar os destino final, em minutos.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+#' @keywords RM
+#' @source NETO et al. (2010), Tabela 2A.1, pág. 86.
#' @examples
#'
#' data(NetoTb2A.1)
#' str(NetoTb2A.1)
#'
-#' plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
-#' xlab = "Ensaio", ylab = "Tempo",
-#' main = "Tempo de Viagem")
+#' library(lattice)
+#'
+#' NetoTb2A.1$hora <- as.POSIXct(NetoTb2A.1$sai, format = "%H:%M")
+#' NetoTb2A.1$hora <- as.numeric(difftime(NetoTb2A.1$hora,
+#' min(NetoTb2A.1$hora),
+#' units = "mins"))
+#'
+#' addmargins(xtabs(~dia + perc, data = NetoTb2A.1))
#'
+#' xyplot(tem ~ hora | perc,
+#' type = "p",
+#' groups = dia,
+#' auto.key = TRUE,
+#' par.settings = list(superpose.symbol = list(pch = 19)),
+#' data = NetoTb2A.1,
+#' xlab = "Ensaio",
+#' ylab = "Tempo",
+#' main = "Tempo de Viagem")
#'
NULL
diff --git a/R/NetoTb2A.3.R b/R/NetoTb2A.3.R
index 2bbd899a..c01352a2 100644
--- a/R/NetoTb2A.3.R
+++ b/R/NetoTb2A.3.R
@@ -1,36 +1,39 @@
#' @name NetoTb2A.3
-#' @title Bioequivalencia de medicamentos
-#' @description à 21 voluntários foram ministrados dois medicamentos
-#' distintos e observou-se a concentração do princípio ativo no
-#' sangue dos indivíduos no período de 8 horas.
+#' @title Bioequivalencia de Medicamentos Genéricos e de Marca
+#' @description Foram ministrados dois medicamentos distintos, um
+#' genérico e um de marca, em 21 voluntários e observou-se a área
+#' abaixo da curva de concentração do princípio ativo no sangue, em
+#' função do tempo, dos indivíduos no período de 8 horas.
#' @format Um \code{data.frame} com 21 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{vol}}{Número do voluntário.}
+#' \item{\code{vol}}{Número do voluntário que foi submetido aos dois
+#' medicamentos.}
#'
-#' \item{\code{A}}{Resultados da aplicação do medicamento A.}
+#' \item{\code{A}}{Valor da área abaixo da curva da concentração do
+#' princípio ativo no sangue no período de 8 horas do medicamento
+#' genérico.}
#'
-#' \item{\code{B}}{Resultados da aplicação do medicamento B.}
+#' \item{\code{B}}{Valor da área abaixo da curva da concentração do
+#' princípio ativo no sangue no período de 8 horas do medicamento de
+#' referência.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+#' @keywords pareado
+#' @source NETO et al. (2010), Tabela 2A.3, pág. 93.
#' @examples
#'
#' data(NetoTb2A.3)
#' str(NetoTb2A.3)
#'
-#' par(mfrow = 1:2)
+#' library(lattice)
#'
-#' plot(A ~ vol, type = "o", xlab = "Voluntário",
-#' ylab = "Área sob a Curva",
-#' main = "Medicamento A",
-#' col = "blue", data = NetoTb2A.3)
+#' dotplot(reorder(vol, B) ~ A + B,
+#' data = NetoTb2A.3,
+#' auto.key = TRUE,
+#' xlab = "Área abaixo da curva",
+#' ylab = "Voluntários\n(ordenados pelo medicamento de referência)",
+#' par.settings = list(superpose.symbol = list(pch = 19)))
#'
-#' plot(B ~ vol, type = "o", xlab = "Voluntário",
-#' ylab = "Área sob a Curva",
-#' main = "Medicamento B",
-#' col = "red", data = NetoTb2A.3)
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb2A.5.R b/R/NetoTb2A.5.R
index 4d4a54cd..8671481e 100644
--- a/R/NetoTb2A.5.R
+++ b/R/NetoTb2A.5.R
@@ -1,28 +1,32 @@
#' @name NetoTb2A.5
-#' @title Produtividade de algas marinhas
-#' @description Teor de Agar-agar de algas retiradas de 2 locais.
+#' @title Produtividade de Algas Marinhas
+#' @description Teor de agar-agar de algas retiradas de 2 locais com
+#' diferentes níveis de atividade industrial.
#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
-#'
-#' \item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
+#' \item{\code{local}}{Local de onde foram extraídas as amostras de
+#' alga: A - local com pouca atividade urbana mas com atividade
+#' industrial, B - local com muita atividade urbana mas sem
+#' atividade industrial.}
+#'
+#' \item{\code{teor}}{Teor de agar-agar observado (\%) da alga.}
+#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+#' @keywords AAS
+#' @source NETO et al. (2010), Tabela 2A.5, pág. 97.
#' @examples
#'
#' data(NetoTb2A.5)
#' str(NetoTb2A.5)
#'
-#' par(mfrow = c(1,2))
-#'
-#' plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(%)",
-#' main = "Teor de agar no local A", col = "blue")
-#'
-#' plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(%)",
-#' main = "Teor de agar no local B", col = "red")
+#' library(lattice)
#'
+#' bwplot(teor ~ local, data = NetoTb2A.5,
+#' par.settings = list(box.dot = list(pch = "|"),
+#' box.umbrella = list(lty = 1, col = 1),
+#' box.rectangle = list(col = 1,
+#' fill = "gray50")))
#'
NULL
diff --git a/R/NetoTb3.3.R b/R/NetoTb3.3.R
index f4beb05d..f52c66e8 100644
--- a/R/NetoTb3.3.R
+++ b/R/NetoTb3.3.R
@@ -1,48 +1,46 @@
#' @name NetoTb3.3
-#' @title Um planejamento fatorial 2^3
-#' @description Resultado de um planejamento fatorial 2^3
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @title Rendimento de uma Reação em Função da Temperatura, Catalizador
+#' e Concentração
+#' @description Resultado de um planejamento fatorial \eqn{2^3}, em
+#' duplicata, que estudou o rendimento de uma reação em função dos
+#' níveis de temperatura, tipo de catalizador e níveis de
+#' concentação.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Número do ensaio.}
+#' \item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
#'
-#' \item{\code{f1}}{Níveis do fator temperatura.}
+#' \item{\code{f2}}{Tipo de catalisador (A e B).}
#'
-#' \item{\code{f2}}{Níveis do fator catalisador.}
-#'
-#' \item{\code{f3}}{Níveis do fator concentração.}
-#'
-#' \item{\code{rend}}{Percentual de rendimento observado.}
-#'
-#' \item{\code{ord}}{Ordem da realização do estudo.}
+#' \item{\code{f3}}{Concentração (1 e 1.5 M).}
+#'
+#' \item{\code{rend}}{Rendimento da reação (\%).}
+#'
+#' \item{\code{ord}}{Ordem da realização das corridas.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3.3, pág. 121.
#' @examples
#'
#' data(NetoTb3.3)
#' str(NetoTb3.3)
#'
-#' par(mfrow=c(1,3))
-#'
-#' attach(NetoTb3.3)
-#'
-#' interaction.plot(f1, f2, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre os Fatores 1 e 2",
-#' col = "blue")
-#'
-#' interaction.plot(f1, f3, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre os Fatores 1 e 3",
-#' col = "green")
-#'
-#' interaction.plot(f2, f3, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre os Fatores 2 e 3",
-#' col = "red")
-#'
-#'
-NULL
\ No newline at end of file
+#' par(mfrow = c(1, 3))
+#' with(NetoTb3.3, {
+#' interaction.plot(f1, f2, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Temperatura x Catalizador",
+#' col = "blue")
+#' interaction.plot(f1, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Temperatura x Concentração",
+#' col = "green")
+#' interaction.plot(f2, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Catalizador x Concentração",
+#' col = "red")
+#' })
+#'
+NULL
diff --git a/R/NetoTb3.6.R b/R/NetoTb3.6.R
index 2bc96ccb..4f5b35c6 100644
--- a/R/NetoTb3.6.R
+++ b/R/NetoTb3.6.R
@@ -1,25 +1,25 @@
#' @name NetoTb3.6
-#' @title Influência de quatro fatores no rendimento de uma reação
-#' @description Resultado de um fatorial 2^4
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @title Influência de Quatro Fatores no Rendimento de uma Reação
+#' @description Resultados de um experimento fatorial \eqn{2^4} que
+#' estudou o efeito de quatro fatores no rendimento de uma reação
+#' química.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
#'
-#' \item{\code{f1}}{Fator temperatura.}
-#'
-#' \item{\code{f2}}{Fator catalisador.}
-#'
-#' \item{\code{f3}}{Fator concentração.}
-#'
-#' \item{\code{f1}}{Fator PH.}
+#' \item{\code{f2}}{Tipo de catalisador (A e B).}
#'
-#' \item{res}{Resposta.}
+#' \item{\code{f3}}{Concentração (1 e 1.5 M).}
+#'
+#' \item{\code{f4}}{Acidez (pH 7 e 6).}
+#'
+#' \item{rend}{Rendimento de uma reação.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3.6, pág. 130.
#' @examples
#'
#' library(lattice)
@@ -27,8 +27,10 @@
#' data(NetoTb3.6)
#' str(NetoTb3.6)
#'
-#' xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#' data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-#'
+#' xyplot(res ~ f1 | f2,
+#' groups = interaction(f3, f4, sep = ":"),
+#' data = NetoTb3.6,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
#'
NULL
diff --git a/data/NetoEx3.11.rda b/data/NetoEx3.11.rda
index c7edde745b2e29346252592224684ade58ee260b..02d7bb3b96275bf5b57749d2ecbaf383dafe0e8d 100644
GIT binary patch
delta 302
zcmcb`w4F)ODJsL#&@oaiI8vwe?*#^iegFUev#&YY@Y#y#Tw{TYKKn#Pk@_DUnIdPM
z6&M(J85kIteGS<J9;^BCxT*Cp83=PQGn!mn=GKs?6!OL8lfwlz2L>r4ULytuW*>!!
zB@;upJWF}l>oh5dD_LBv>Z@y0k1LyN>dE$fyBxBOzaRSQs2Fsbx9r2?yK{wA1DS=k
z9Wa`uzfqG}xrs}y>4X9Avx$+P|I|;+Jyj&6&~#HKEitvvv*1wC#G_TSCQs>C6Bp8t
zP%8QUUDUmHe&%XL&udL<mfM{0)8q-TIx7Ct>_WQg41rsY?Q0U|tk2xJq_oT<v|(B6
z!~>@S4PS1)vu2lLd$`H{#ScyQ9I%nDu+rc6_?%r)?88e2wF(}+DjQ60{}(TEwFsEN
H0ty-c_04~t
delta 337
zcmdnabc;#RDJsL#&@oaiI8w_gRfmD$+5i9l|NlAK@Y#y#Tw{TYzWPK(k@~L_j9krD
z9A7Ez@l`70vQI<i!U-2&8JeVIobg=VBGqx_OXF4(hRg*F42BF03=BMzW-+*d7#R!<
z3@phXn3NcsS~a;DUa~Uy2JkpZG;->cH@r*S<)hVpT7qr&d;hdr!)>#>67EKwDNd`H
z#BOCj`(_FgbHE3M)1`Ofa!#bwJN7WRaCmYrWbkk@R#Z(8SaqqpO-q=;$zekS!$rg8
z4c!YOCj=;H7{3Y8`!wULYtFZj*o=p<-?fatvhF<Yo?Mi9_4ZM<sR@2&0r$3O9C-H2
z@RUnTT$J<rM;b2TIqPb492Y$>ys<S%z3cX)*Tr4tJ7+d(n2H`|zqwga^2s0ft?K-b
rxnHm>(sXHFmGQJMRc2C8v{U8*A<>xmAsU@)Vo!=ZbaGh9Ib{O?Z>Nnb
diff --git a/data/NetoTb2.4.rda b/data/NetoTb2.4.rda
index 0ae74aedc5e8cb5e6c772dab3b7df22340e81d9f..1cd85f94faf26d1f1bc0b0aa2445a42fa4df338f 100644
GIT binary patch
delta 258
zcmZ3&)Wf9c6qR9V=oqOM99eT^Ni+jPW&Qtu<}r*6i84%I4w|^wvrkkMso%-$8^pMP
z0R-4)I4;ZLGfFwxapVB!WR??*i#ZMm958Ze>u~@{^D;0<i7*F9wmjxxi`G)s-Vm=7
zUwNHT_=4@mhzktK3p4qaU2GC_n8e_~&B5QWK}$z1)u{28ke`0&^-Mu7CN3w9O9r#E
z1%=Bi{;0Mbes9KZXz7|7A#0z0=rQwBhhm$VPhKc%2UoswH!_ntch;7B+d-a}US_wC
zb?X}?%S`JHong!M;7Ub`_xtaPzn9qj-Y<Olh{>x7iyI}%If5p7EEW8D!SSEoldgh=
K3O`qRYy$vG^<s4Z
delta 282
zcmeBSTEe906qR9V=oqOM9C=X0u$6(K`~Uxc<}r*6i84%I4w|^wyH8XUslS%cw9Ii?
z1M?LI6Df%X#${RTD_^cqbelEPKut}}&2fPwv*WT^CJYQIi&CT*E-)}IkdiWCFv(z8
z!r<{~L8l*!h|MKYkt0n~oZDulv!CA_BFNq&(3e~^gGqG?kAmLu^DB$Q7!D{Xs7_)1
zu!1Ynp-)3eZ=nj?pF5#TI9i!lv<nnpR7}@e(7e2v?*!}ek6XTOU$*kA^jAN7(OptE
z-3pbSJnt|u^`3nA;pP^-1Gz@$ezNfOMt}C7kr0<GlJfn|scRAOGmThMnv<@?b|@Wi
om@)A~txA)KhKC>1FT<uOTA~`wpBNhUckfi1qv4UzC2^<$0A5gUmH+?%
diff --git a/data/NetoTb2A.1.rda b/data/NetoTb2A.1.rda
index 13161cdea851970dffa916b4556af6366ca4696f..2f246448f0a7ab27001fec5008088e8d3ce88c4e 100644
GIT binary patch
literal 616
zcmZ>Y%CIzaj8qGb?6qE7#lUp8{_p?){~x#))_<&FHA$?0|Nm$JgM)zs0|$cxn<E1Q
z;{hhU+ssBAE(&|uOzfN~rM`lfcj5{ow#MZP85k~KVqdvs-h#_6%a=LLVqjoaU|`5#
zU|?Xdbv*3s<|}2Axp3lyLkuSvCuA;QU~@RZq$=RK@)i5ag_FNJJ1{UV;N=fsxa`)z
zAGlCX@u&JNr!cn{A!?Iju1s7TBYo%bB>B}-=cjeM+~V9C#8v1n+H*<d;L*YyO)n3x
zAc=xJ_n^a)rJn?*WX>upOrN>Xfbm`DigkiPNv=@~m-4%C3NdDQng;W5-P(~I@GtRY
zxRG(L=;u{7cW32UCb37BtmN3;V;<7LlH1Yj+`c+MCn@Wzt>~dY_j`0*geNli6bk*h
zXWM(tr?qz8+u0?bo~g9-^r&?1bS~if(CDe6z&ZEUqPBOMA8aNpTDmghf}V$thuDcj
zmzZ80S)<?7sIcOV^J$?q43iHFoJ_s>rqJn$>7!Yd#g9$YmM@!f((BS;x5$O-b|`m#
z2w5>fG2nD=ukWlj#c8aJx4sq>x9?S0RN5$dZ1$l&;tTv1UcYgnc+RRVoji#tSC$mE
zyYJ(@C8ZItL?gl3Anc@Gs;j%Q>?auyh33Esj*@H<9D<7K6-PG<E>oGpX0EbTg|#u_
zn8l4={{z8m{bo+eC{1k3`h2iLupwxgw&Crp|DsaswBF?fcs-r&yFg{dM@#R<nn|-w
zSLFI`zBEH|jgV4<vsXyE=Q{O8J;ka&S{TB+p7zZCRUOdGmh7OrP4$37>+c0dzgbRB
bzGEWr=A-V*BPIPmc2Ckg)Y6i9H~Rtri+v6{
literal 586
zcmZ>Y%CIzaj8qGbWVv^xgn{W;{oDWl|NlQ;SpT7hRm8!5`TqkB3=9Sw3=C|J3=E71
z7(W&$@^Yvx`DzpRN;>#dMut&U!v!hE1q^HrUrw?un|wjzudB(4Ln$X1B;0)38V)fq
zNU}>B`0}*5x%u)kWEdGVWSC@5IAX%!vM4LnKiJpSaRLLwi42CMTxZV3S1vHVlKXXA
zVJ16oMDrt)DLonI0yQSN%1Ah7M+&H}UF4Bw!?}*_`viqRw~f-g%Q_aweBYVBWZQAI
zRuz>Du3%XWAGQU4Y&~XXk<2+e6beF4{(OAOO317%{PI5m1y{e8K)W*Im@k{2Ki!sk
z=GL{Gvz<&|OiH%A^<v#wr)8K_o#G%`kf7?<wl!d9_u5;R@9o;Nb}r8~mf$dr$6eFk
z{Q74#_wQZrmG9gAC$974l$7ukcKLH)Tb50Tz|~Nd7KPQniZ2NFvpg_c=yo!3ai`Ko
z<xGi)CaJ(R`W*_-`XX8*IF;CXa|6mJ+;1v2s{5cn*LPR2thRTrW;u6l<%<XJLRL&r
z3^<uRYmO)nTZ{<1-LrcyyM<eMxe{5}xt&a;J;Wz`{t`TG>mp^IL%kPQ_Uk;=d9})+
zO+Z5;Xks{TmXnj~mZLvHAMXA&{X?DHS<MyU<|}v>UNO4z<cqX;yr|RWrA;&9Bo6F5
zaX?4aZLM{!lBLSC+Qyb!@AV8+9-dlL#<}Bpv#1fjS~}n2&KH&!6E98^+Owi3FFTGw
u+%b0EdU^M~Tb!JB1{%F?{oCXF@qEw!m|1yFN9!NG^H|O$#4!6-UjqO}_5RcV
diff --git a/data/NetoTb2A.5.rda b/data/NetoTb2A.5.rda
index ce2d3c36f491304cbf5dbd2b6bf697cd8bb20d9f..62f8bfd17b0849ecb77d356f1f69f1097fc1c766 100644
GIT binary patch
literal 333
zcmZ>Y%CIzaj8qGbJlW1%!@zLn|NsBS8H@~$x4QldZgH{a|J&fi&|t*Dz~CUjrm(<)
z$C+^h!;gkbic5GLW;nK7zVcOqVP0pi<Ex69>MMWETTwV!txZ|jjZuQLg|T5)#${y(
zgNa`AC#tVFa)FnZ!BCRfS=oVsZC2vXYi%hLd_ptNZ8~vO)2diF<kXVpRpq^t)}FrJ
z*P?KEz1y3Gby;UsbgsEB-}6Z$sY6$#ZQ`Q~n`h`(EaH$Bd+^eW$#q%7vtKUeH`TiG
zgbyd5*xSi}cuB~;2iiT4ODc2N*wv)=mZ?Two5wM+b=u)yH=J{%_Z)b}a<XA-;;g$2
zWu`wIckZj7@MJ<-m)c&rBF`v`zA5~!ZmYiBkD0Jli!Eu(xyF#lCw(UV0e0oQPM<F=
sS+1ut_pkcwl}8R}EY$q^@Rg(CN-gOrhEfN;|LHyHDp;sEnUC!U05ScRrvLx|
literal 296
zcmZ>Y%CIzaj8qGb^vy80WMF8o|Nn1u1|x&xt*-xqTU_k<|1=z8XfTpsU~mv%Q&`}@
z<IK2$;o5<W3A1<_d>qcIFAzA9xa7!zQ`G^PFPS~nS1xwz4`B8+VK6b_mEvh&V31U4
zU|^79U~6EIVqjojzQ>^CfRoFLevucUKYT7WwoSEKVpr=T;Bqvt(vPDna^a$oh}O<N
zFD8qHO$~i-83II_EV35ymZ&6r3gMAG%yOk$KrATU_`g$H<$+bkO&7`~44M-6{xjGa
z{V_^KwRKts>#c}CJqia65`q_;d6y8~SbsNi*;0f4??0kuauyWVh<m0*=TB`=Jm33x
z8sFCQ?m>$>=BcJU`R`$|K!xLUV)5@n7p1#0UV?ii$~S4TFu&7#(p9ifVb+DbA^-#;
BcvJuY
diff --git a/data/NetoTb3.3.rda b/data/NetoTb3.3.rda
index e3d98e6edcd78cde83228568f39f2e9b806d3689..a3dfece9b5268a807959ab0e69fd7dab12e008fa 100644
GIT binary patch
literal 247
zcmZ>Y%CIzaj8qGbbo7wj&cN`f{=onLCm0wQ_oSx^in;7(pVQ#L;J~<n;p#LgO}T{=
zCsg(H$}OlAR$!33B9%4El*fI6FV8F~US3{?iwited~FpNm=zc<@G{sl7_=%KFc9ZD
z(CX2}*puY2Z9bd!*%cO70=5|nPJYtcnP&8GXU=2A(2%6{-CK>?cAi@{@5HwW3fcy9
z6h0+5sivf+s;(1scNJ8$aaQooX0VXpcu+J$l0!A)MnfWt{_9`D2ma-~=Mdg#dVhlS
z@`8@WpZ{M5E%bJix71bBP`s=1(Px`?`N8{aD{g8Sa5TPj*|1Rk$L>j*hgzDr9Nz8#
E0NJf!>i_@%
literal 333
zcmZ>Y%CIzaj8qGb?EKp&&cImr|G@wMCm0wK|36O^6m!|nKDWVv!GUoDqm*y6h*rh2
z%O};RTwHLWs(rEAvIhPD^QAm>%a&ZeVq%hHXviy}?AR#9GmB%Ysrr<YPkEUgE-;v6
zNHH+~;O;VQIo!1BY3qwqy24hk=W6RLnvtu;bYkDkr3JIv536Nz`3pSw-Ez}>(}Hhi
z%T5PJde2zmo_Blh!^e5^W^cWnJKN0tvrG<);M04DTsvY_a}TpIF`6z&bzu9pKkr$C
zO!=$m4Z0uVHhQvobjSucEote_SrR@)L95W|#)al8C8w<oIWui?&rEr@*23~!am9W!
z!FQ857UimGO;Y+YQ-Fhohk+%beSO%o{u~KqyA{1x|JSBZ@_gLA>z1;8;q{Z<`jsV8
rn!-=d2VGqheN{%EccJgByQ~Zf4GKn&@?BN`={@NxSg0ucTSgB6I%$%P
diff --git a/data/NetoTb3.6.rda b/data/NetoTb3.6.rda
index d9812838162bedcf9b19e21ba500aa221e646f06..96c867fd76fa901bd079a61f3793c219b3f0cdc7 100644
GIT binary patch
literal 219
zcmZ>Y%CIzaj8qGb{C9GqHUq=u`UC&WJXjbQZ3A5u#SYrD&uMUAaA4fPuxr6lB|`?e
z$!=LD87UW}H4;oxOe7pkn0*--Ciw<#HTmMeV3NVWP{%Z#JDDYNvRK3njgmR43JaI|
z#L6WXPGM;YKYQthlvb%<@nUhuFG3v07ABi5;$&RW6>zs|@Ajn5h84~X)0Qzb7zOVU
zO*rH|<wK!Ba>{jQfp4mDNl9Cot7OX`3T*qv;l%j<;AMvszZ|Y}ajTwJ&djgt@Dcer
a*TQ9zXv!~F75na;N^>+k>QhckZ2$mp#Z(di
literal 245
zcmZ>Y%CIzaj8qGb3>N(|g@NIB{el1gPp~jB+6KBRiXF6PpVQ#L;J~<n;noxrFS+GY
zE_`XoTwuP6t>J=nRvQE30tTZD1_l!*S5aflU!5<_8id`185m~FYuGBVAkjGU(yL7g
zJwaU>3+%EEtnp{syE2e7ie-kKcOJh{n{vjnLoybNR|<CtwYY3jTD?V3Aahlz^K2)N
zT}NlOdP|iiZnRQko#UM2Aisu*;ewX|ufmb$>d8t5?pst3Uv*w-{anKC7}sKvv$2im
zma&Ek_SVPk?6ER#Y)w<MRd};0WlNjpMDF?W;cSzf|9DsXZvGQ{QskkNqfhvy007(a
BV8Q?Z
diff --git a/man/NetoEx3.11.Rd b/man/NetoEx3.11.Rd
index d632eca0..d8219900 100644
--- a/man/NetoEx3.11.Rd
+++ b/man/NetoEx3.11.Rd
@@ -3,54 +3,49 @@
\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
+\format{Um \code{data.frame} com 16 observações e 4 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.}
+\item{\code{rend}}{Rendimento da reação (\%).}
+
}}
\source{
-Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+NETO et al. (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.
+ analisados dados obtidos por um pesquisador numa série de
+ experimentos de síntese de polipirrol numa matriz de EPDM. O
+ plano fatorial é um \eqn{2^3} com duas repetições.
}
\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")
+par(mfrow = c(1,3))
+with(NetoEx3.11, {
+ interaction.plot(t, C, rend,
+ ylab = "Rendimento Médio",
+ main = "Tempo de Reação x Conc. de Oxidante",
+ col = "blue")
+ interaction.plot(t, P, rend,
+ ylab = "Rendimento Médio",
+ main = "Tempo de Reação x Tamanho da Partícula",
+ col = "green")
+ interaction.plot(C, P, rend,
+ ylab = "Rendimento Médio",
+ main = "Conc. de Oxidente x Tamanho da Partícula",
+ col = "red")
+})
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb2.2.Rd b/man/NetoTb2.2.Rd
index 659effa7..cd5e94d3 100644
--- a/man/NetoTb2.2.Rd
+++ b/man/NetoTb2.2.Rd
@@ -5,10 +5,10 @@
\title{Pesos de Caroços Extraídos de um Pacote de Feijão}
\format{Um \code{vetor} numérico com 140 observações.}
\source{
-Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+NETO et al. (2010), Tabela 2.2, pág. 32.
}
\description{
-Pesos individuais de 140 caroços retirados
+Pesos individuais de 140 caroços retirados
aleatoriamente de um pacote contendo 1 kg de feijão preto.
}
\examples{
@@ -16,10 +16,13 @@ Pesos individuais de 140 caroços retirados
data(NetoTb2.2)
str(NetoTb2.2)
-hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência",
- main = "Pesos dos Caroços", col = "grey", prob = TRUE)
-
-lines(density(NetoTb2.2), lwd = 2)
+hist(NetoTb2.2,
+ xlab = "Peso",
+ ylab = "Frequência",
+ main = "Pesos dos Caroços",
+ col = "grey",
+ prob = TRUE)
+lines(density(NetoTb2.2), lwd = 2)
}
\keyword{AAS}
diff --git a/man/NetoTb2.4.Rd b/man/NetoTb2.4.Rd
index 9908034d..7ca55037 100644
--- a/man/NetoTb2.4.Rd
+++ b/man/NetoTb2.4.Rd
@@ -2,39 +2,54 @@
% Please edit documentation in R/NetoTb2.4.R
\name{NetoTb2.4}
\alias{NetoTb2.4}
-\title{Comparação de resultados obtidos por 2 químicos}
-\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+\title{Comparação de Titulação de Viangre por 2 Químicos}
+\format{Um \code{data.frame} com 5 observações e 3 variáveis, em que
\describe{
-\item{\code{fator}}{Fator de 2 níveis qualitativos.}
+\item{\code{Arr}}{Teores de ácido acético determinados pelo Químico
+ Arrhenius.}
-\item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
- diferentes fabricantes de vinagre.}
+\item{\code{Ber}}{Teores de ácido acético determinados pelo Químico
+ Berzelius.}
-\item{\code{concentração}}{Concentração de vinagre obtida.}
+\item{\code{d}}{Diferença de concentação obtida entre os químicos
+ para a amostra de vinagre do mesmo fabricante.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+NETO et al. (2010), Tabela 2.4, pág. 79.
}
\description{
-Dois químicos, Arrhenius e Berzelius foram encarregados
- de analisar lotes de vinagre de 5 diferentes fabricantes, cada
- um obteve 5 diferentes resultados. O experimento contém um único
- fator com dois níveis (os químicos) e uma resposta (a
- concentração).
+Dois químicos, Arrhenius e Berzelius, foram encarregados
+ de analisar lotes de vinagre de 5 diferentes fabricantes. O
+ experimento contém um único fator com dois níveis (os químicos) e
+ uma resposta (o teor de acído acético, em \%). As medidas são
+ pareadas, ou seja, os dois quimícos avaliam cada um dos vinagres
+ gerando, para cada vinagre, um par de valores da resposta.
}
\examples{
library(lattice)
+library(latticeExtra)
data(NetoTb2.4)
str(NetoTb2.4)
-xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
- xlab = "Amostra", ylab = "Resposta ")
+dotplot(1:length(d) ~ Arr + Ber,
+ data = NetoTb2.4,
+ auto.key = TRUE,
+ xlab = "Teor de ácido acético (\%)",
+ ylab = "Fabricantes")
+
+xyplot(Arr ~ Ber,
+ data = NetoTb2.4,
+ aspect = "iso",
+ grid = TRUE,
+ xlab = "Berzelius",
+ ylab = "Arrhenius") +
+ layer(panel.abline(a = 0, b = 1, lty = 2))
}
-\keyword{DBC}
+\keyword{pareada}
diff --git a/man/NetoTb2A.1.Rd b/man/NetoTb2A.1.Rd
index 6ccd6398..99848a5f 100644
--- a/man/NetoTb2A.1.Rd
+++ b/man/NetoTb2A.1.Rd
@@ -2,42 +2,56 @@
% Please edit documentation in R/NetoTb2A.1.R
\name{NetoTb2A.1}
\alias{NetoTb2A.1}
-\title{De casa para o trabalho}
-\format{Um \code{data.frame} com 32 observações e 5 variáveis, em que
+\title{Tempo de Casa ao Trabalho em 3 Percursos}
+\format{Um \code{data.frame} com 32 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Número do ensaio.}
+\item{\code{sai}}{Variável que indica o horário de saída do
+ pesquisador rumo ao destino final.}
-\item{\code{sai}}{Fator de 25 níveis referentes aos horários de
- saída do pesquisador.}
+\item{dia}{Fator de 5 níveis referentes aos dias da semana em que o
+ pesquisador realizou o trajeto.}
-\item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
- realizou o trajeto.}
-
-\item{perc}{Fator de e níveis referentes ao percurso realizado.}
+\item{perc}{Fator de 3 níveis referentes ao percurso (trajeto)
+ realizado.}
-\item{tem}{Tempo de viagem do pesquisador.}
+\item{tem}{Tempo até chegar os destino final, em minutos.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+NETO et al. (2010), Tabela 2A.1, pág. 86.
}
\description{
Foi cronometrado o tempo transcorrido desde o momento em
que o ônibus passa por uma ponte no trajeto até a hora que o
- pesquisador chega à seu destino final.
+ pesquisador chega à seu destino final. Os dados possem registros
+ do dia da semana e do percurso que foi feito.
}
\examples{
data(NetoTb2A.1)
str(NetoTb2A.1)
-plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
- xlab = "Ensaio", ylab = "Tempo",
- main = "Tempo de Viagem")
+library(lattice)
+NetoTb2A.1$hora <- as.POSIXct(NetoTb2A.1$sai, format = "\%H:\%M")
+NetoTb2A.1$hora <- as.numeric(difftime(NetoTb2A.1$hora,
+ min(NetoTb2A.1$hora),
+ units = "mins"))
+
+addmargins(xtabs(~dia + perc, data = NetoTb2A.1))
+
+xyplot(tem ~ hora | perc,
+ type = "p",
+ groups = dia,
+ auto.key = TRUE,
+ par.settings = list(superpose.symbol = list(pch = 19)),
+ data = NetoTb2A.1,
+ xlab = "Ensaio",
+ ylab = "Tempo",
+ main = "Tempo de Viagem")
}
-\keyword{DBC}
+\keyword{RM}
diff --git a/man/NetoTb2A.3.Rd b/man/NetoTb2A.3.Rd
index 809f31ba..304dcad7 100644
--- a/man/NetoTb2A.3.Rd
+++ b/man/NetoTb2A.3.Rd
@@ -2,43 +2,46 @@
% Please edit documentation in R/NetoTb2A.3.R
\name{NetoTb2A.3}
\alias{NetoTb2A.3}
-\title{Bioequivalencia de medicamentos}
+\title{Bioequivalencia de Medicamentos Genéricos e de Marca}
\format{Um \code{data.frame} com 21 observações e 3 variáveis, em que
\describe{
-\item{\code{vol}}{Número do voluntário.}
+\item{\code{vol}}{Número do voluntário que foi submetido aos dois
+ medicamentos.}
-\item{\code{A}}{Resultados da aplicação do medicamento A.}
+\item{\code{A}}{Valor da área abaixo da curva da concentração do
+ princípio ativo no sangue no período de 8 horas do medicamento
+ genérico.}
-\item{\code{B}}{Resultados da aplicação do medicamento B.}
+\item{\code{B}}{Valor da área abaixo da curva da concentração do
+ princípio ativo no sangue no período de 8 horas do medicamento de
+ referência.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+NETO et al. (2010), Tabela 2A.3, pág. 93.
}
\description{
-à 21 voluntários foram ministrados dois medicamentos
- distintos e observou-se a concentração do princípio ativo no
- sangue dos indivíduos no período de 8 horas.
+Foram ministrados dois medicamentos distintos, um
+ genérico e um de marca, em 21 voluntários e observou-se a área
+ abaixo da curva de concentração do princípio ativo no sangue, em
+ função do tempo, dos indivíduos no período de 8 horas.
}
\examples{
data(NetoTb2A.3)
str(NetoTb2A.3)
-par(mfrow = 1:2)
+library(lattice)
-plot(A ~ vol, type = "o", xlab = "Voluntário",
- ylab = "Área sob a Curva",
- main = "Medicamento A",
- col = "blue", data = NetoTb2A.3)
-
-plot(B ~ vol, type = "o", xlab = "Voluntário",
- ylab = "Área sob a Curva",
- main = "Medicamento B",
- col = "red", data = NetoTb2A.3)
+dotplot(reorder(vol, B) ~ A + B,
+ data = NetoTb2A.3,
+ auto.key = TRUE,
+ xlab = "Área abaixo da curva",
+ ylab = "Voluntários\\n(ordenados pelo medicamento de referência)",
+ par.settings = list(superpose.symbol = list(pch = 19)))
}
-\keyword{DBC}
+\keyword{pareado}
diff --git a/man/NetoTb2A.5.Rd b/man/NetoTb2A.5.Rd
index 7881f9b5..2a3ffb33 100644
--- a/man/NetoTb2A.5.Rd
+++ b/man/NetoTb2A.5.Rd
@@ -2,35 +2,39 @@
% Please edit documentation in R/NetoTb2A.5.R
\name{NetoTb2A.5}
\alias{NetoTb2A.5}
-\title{Produtividade de algas marinhas}
+\title{Produtividade de Algas Marinhas}
\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
\describe{
-\item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
+\item{\code{local}}{Local de onde foram extraídas as amostras de
+ alga: A - local com pouca atividade urbana mas com atividade
+ industrial, B - local com muita atividade urbana mas sem
+ atividade industrial.}
+
+\item{\code{teor}}{Teor de agar-agar observado (\%) da alga.}
-\item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+NETO et al. (2010), Tabela 2A.5, pág. 97.
}
\description{
-Teor de Agar-agar de algas retiradas de 2 locais.
+Teor de agar-agar de algas retiradas de 2 locais com
+ diferentes níveis de atividade industrial.
}
\examples{
data(NetoTb2A.5)
str(NetoTb2A.5)
-par(mfrow = c(1,2))
-
-plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(\%)",
- main = "Teor de agar no local A", col = "blue")
-
-plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(\%)",
- main = "Teor de agar no local B", col = "red")
+library(lattice)
+bwplot(teor ~ local, data = NetoTb2A.5,
+ par.settings = list(box.dot = list(pch = "|"),
+ box.umbrella = list(lty = 1, col = 1),
+ box.rectangle = list(col = 1,
+ fill = "gray50")))
}
-\keyword{DBC}
+\keyword{AAS}
diff --git a/man/NetoTb3.3.Rd b/man/NetoTb3.3.Rd
index ba2ef129..989768a7 100644
--- a/man/NetoTb3.3.Rd
+++ b/man/NetoTb3.3.Rd
@@ -2,55 +2,53 @@
% Please edit documentation in R/NetoTb3.3.R
\name{NetoTb3.3}
\alias{NetoTb3.3}
-\title{Um planejamento fatorial 2^3}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\title{Rendimento de uma Reação em Função da Temperatura, Catalizador
+ e Concentração}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Número do ensaio.}
+\item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
-\item{\code{f1}}{Níveis do fator temperatura.}
+\item{\code{f2}}{Tipo de catalisador (A e B).}
-\item{\code{f2}}{Níveis do fator catalisador.}
+\item{\code{f3}}{Concentração (1 e 1.5 M).}
-\item{\code{f3}}{Níveis do fator concentração.}
+\item{\code{rend}}{Rendimento da reação (\%).}
-\item{\code{rend}}{Percentual de rendimento observado.}
-
-\item{\code{ord}}{Ordem da realização do estudo.}
+\item{\code{ord}}{Ordem da realização das corridas.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+NETO et al. (2010), Tabela 3.3, pág. 121.
}
\description{
-Resultado de um planejamento fatorial 2^3
+Resultado de um planejamento fatorial \eqn{2^3}, em
+ duplicata, que estudou o rendimento de uma reação em função dos
+ níveis de temperatura, tipo de catalizador e níveis de
+ concentação.
}
\examples{
data(NetoTb3.3)
str(NetoTb3.3)
-par(mfrow=c(1,3))
-
-attach(NetoTb3.3)
-
-interaction.plot(f1, f2, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre os Fatores 1 e 2",
- col = "blue")
-
-interaction.plot(f1, f3, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre os Fatores 1 e 3",
- col = "green")
-
-interaction.plot(f2, f3, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre os Fatores 2 e 3",
- col = "red")
-
+par(mfrow = c(1, 3))
+with(NetoTb3.3, {
+ interaction.plot(f1, f2, rend,
+ ylab = "Rendimento Médio",
+ main = "Temperatura x Catalizador",
+ col = "blue")
+ interaction.plot(f1, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Temperatura x Concentração",
+ col = "green")
+ interaction.plot(f2, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Catalizador x Concentração",
+ col = "red")
+})
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3.6.Rd b/man/NetoTb3.6.Rd
index df755f32..de3ee42e 100644
--- a/man/NetoTb3.6.Rd
+++ b/man/NetoTb3.6.Rd
@@ -2,29 +2,29 @@
% Please edit documentation in R/NetoTb3.6.R
\name{NetoTb3.6}
\alias{NetoTb3.6}
-\title{Influência de quatro fatores no rendimento de uma reação}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\title{Influência de Quatro Fatores no Rendimento de uma Reação}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Número do ensaio correspondente.}
+\item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
-\item{\code{f1}}{Fator temperatura.}
+\item{\code{f2}}{Tipo de catalisador (A e B).}
-\item{\code{f2}}{Fator catalisador.}
+\item{\code{f3}}{Concentração (1 e 1.5 M).}
-\item{\code{f3}}{Fator concentração.}
+\item{\code{f4}}{Acidez (pH 7 e 6).}
-\item{\code{f1}}{Fator PH.}
-
-\item{res}{Resposta.}
+\item{rend}{Rendimento de uma reação.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+NETO et al. (2010), Tabela 3.6, pág. 130.
}
\description{
-Resultado de um fatorial 2^4
+Resultados de um experimento fatorial \eqn{2^4} que
+ estudou o efeito de quatro fatores no rendimento de uma reação
+ química.
}
\examples{
@@ -33,10 +33,12 @@ library(lattice)
data(NetoTb3.6)
str(NetoTb3.6)
-xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
- data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-
+xyplot(res ~ f1 | f2,
+ groups = interaction(f3, f4, sep = ":"),
+ data = NetoTb3.6,
+ type = c("p", "a"),
+ auto.key = TRUE)
}
-\keyword{DBC}
+\keyword{FAT2K}
--
GitLab