From 315d08b2ff73fd4fd42fbff6f88dea4723bb4a22 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sun, 19 Jun 2016 19:51:11 -0300
Subject: [PATCH] Adiciona dados do Pimentel Cap 18, 20 e 21.

---
 .RData                        | Bin 2807 -> 0 bytes
 R/PimentelPg382.R             |  41 +++++++---------
 R/PimentelTb18.2.1.R          |  71 +++++++++++++++++-----------
 R/PimentelTb20.2.1.R          |  20 ++++----
 R/PimentelTb21.5.1.R          |  13 ++---
 data-raw/PimentelPg382.txt    |  11 ++---
 data-raw/PimentelTb18.2.1.txt |  86 +++++++++++++++++-----------------
 data/PimentelPg382.rda        | Bin 245 -> 212 bytes
 data/PimentelTb18.2.1.rda     | Bin 454 -> 549 bytes
 man/PimentelPg382.Rd          |  35 ++++++--------
 man/PimentelTb18.2.1.Rd       |  64 ++++++++++++++++---------
 man/PimentelTb20.2.1.Rd       |  16 +++----
 man/PimentelTb21.5.1.Rd       |   9 ++--
 13 files changed, 193 insertions(+), 173 deletions(-)
 delete mode 100644 .RData

diff --git a/.RData b/.RData
deleted file mode 100644
index 082ca5154adb9ea1ecb0c4a8afb031db33e9d93e..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 2807
zcmb2|=3oE==Gw4I6Ontr<$lkr%~w%5WZ)cWzb)tHrk<?}XKq}2Ovp{u&|~7n+&8;Z
z^cTCH@Vm+8?B&~b(rBC5=@U}%SJxL?{ry;duJYdZz2|H1RiCf^zpKpcoIqK683Tg@
ze?o#qPdkgjC3!Y02IYpg2E|Qp1pduqtXq(vuYdlq>Gg%0FAA*RZb%E~Nj3DE)t}6H
z^{Wy;-}IhLG0nFtmX}D}p3|Xwgem@nUBam&@BLTYJgv<Vqk8?cSZCRc*JhDQ=V~K%
z?$EY5b>aT$x$9pn-LvYA&pwOxi?`1Io^WE{w*wn)t-miCe$GikN+@gkMDNqr0xq1r
zZ~6RS%KJ63W+#2TH2yEKEVR0DQKvp?NvC+$I?uvajEmR&IkP-1Hty$FW)H>X)tlZ-
zx>RamG{O7vub8F2Jd=e!Jl?}7X45CHweQvJ*{RX%?geeoSll_cbkf`x=~A=2tm8k<
z;nYct%yW%jbWHHS^QFDT!tzfw4fX&1sMY?z;@e%nr~Kvj7U`=h<fpF?SX^nnVt1_f
zm#2#bzpk8@e*M*{&llY5Qc_zkws`IIIAc_z9=BKMVs%~8A5+zh$I>M4$jymt^4_Uq
zd7H0$itdJ4YCnUxJa<YjpSwy+csEC%=R40<-L>n#96#UkUqiWfT?|X4Z*|E=0q+&@
z$#;^f^8Z$tDJ*`Wp8wE)U)}j-OM12+Tam07bfNBWZ~woopBrY)pL(bJxW%8vO65!6
z-BS2;>Exn}_ER6V@BdgJb6?rIVN&Q-N8{UE#(^cDrM0ify!p$t<W-r^<lIBMw;Wvd
zeb<Gw8Cza527OrQ?Dt(#WNt*sbMK203S5ikb~gWdZ!VxKeQ%2RlSQjJZZA@pFthB@
z&I>{QHL;cZp8M>*@JqNk%Fpfl8I{X9GdM4(3$<m(9m-0*cq&Oh+ah+)m;2nWw%^;}
z(CV?;<k}B4gW&(AUg28#Ev}|haziV8s$X~rS4V9>_<XaBB;!A|Mf`i?MGp&2iB@0_
zUg{;pYWaCu+7acVyB)00I9@&#QlI;y>Kd!yp61D&m#T6M^M0&Y#ap;_iI{S;@$tQa
zZ6*_TYV{--<&|la<=zzh@^m-%VTn%%cDH`gJF_7<E&O5*dlK^*r$7D{oF@KlH76=h
zZeBCP^SRdh%{3-&xBlMnDv_*`&ODzPk!ouz_3&cSQuPILhfC8o<+sMA^qEv_?lue)
zi4co_xUK5+#<!Q&PW*VScgAhS`9Bxjv|VbNTV?mi=%MZ<{=_Va)Tc6L8(-}_aQD-R
zmD7BlNm!qJBJk5KG~>_(kG}JAZQ1X;t&?Auq_W?7-xTNb_URY@dvl`BE%@wQYwV-H
zW}eyUWiyw|o1EY^MMLCG<*y}gKAv{T3lrPx$XEU0lhP}*Z3`c>w159()!KK9!Hapr
zI;le~cQb3Ey=R*=&e4BUJ<aHr0~@b?P%+<;k8*(~&YLQCACXnx_D)`xB{O4vjqbX|
zvscY{b6~fAsseL@>wJ@EPh6{?T`arv)6TE<@Rq03IAy+EKCSssXsch6z!BG%i#4kA
zeYalB`yX;C&S1`V?^~Ca{E%vW*IdQPxHj(L`O~eoMFKZu?y>P5dbu#n@5<xevh^v}
z>(}{aeRX}pRx~^9<(q^!j*xiPvQP4|OJ^KqZ>d)m7l?l*;2n0Nrzr8^#yN$%4xbhC
z4ObMYh~2%M-}7uv@YeFvmzQZ)Z_}?_>i(~IWe#7+`i)9gZU3%IDan^@+^IJ0(v681
zPlobLK770DYQopTv$5+1vR54O*ODvRaOt4P>$XF7s^I}w5{wS`TGu40cqM$lE$!^8
z%X&b$?qS+4EwS0#KfVq+t(jpQ_BG?&ywda=GBeCpscW*{m|xP6w7N^&?4yh||2%=t
zBYN6L6@sgx()le+FMTwt@wJ<{`IDde(>sfFiyntWuzqE`^r<o=^+(1A=_fUN>mC^2
zGF%)p>2UR_zk3X}Y~1RVYa3tuYl`p}?*+3GwHjkm0&CXKY*cQIuzu8VL?%1>!~!`1
zJ-cal7aL}-o0<N=@MWJt)SQ~^Ib18kyo<gr<25J|N?ozA@v+>>Esv*{FY&qXRDh}d
zqw6a6ofmWC7IQyhcAOtOFQIhX6+QNk*Cbh)c1ERoO+RdEbfGZmzJc$N=ews_O@AR#
zc<<YW7n~cneVd+_F!xmdk`&=m$(7e1x~*{)ER3irJ8{u(LA}<JRzYLEgUSwn_@)Tw
z|5<g_f2+#1bES)O@_p?mvkL#*HQ|uR#KnhN6wk>|nfK8+XnT}kQT{`{Il1ODOK+VC
zzxL^5koM#io85k_4NPxTnIu+VnB;ox?&ivhYk>#4A{S4-@4>upnu<i;JzF=Gss0`p
zB^9+}-WqLOWgI^H_o=H2FDJkHr53(<o@E%{jNCa&rYrBAc`|W<_Ai}?D(O`#51dV(
zs~opQ@N;j1Oah}ihmiHguOXIf)sJU!r?y%#pFHF!CU{kAdZ2)$<#nCj%~O{yNmRf8
z<m^=I>dZBVEfmz-6>qN*Nx0_d)1G!a>#)Vv;6tX<vyWMLoR_>l)%@atd->A~-1vf@
zoo2l2oUWfTkNft-KJ%@DtL_Fb;W^gE;=;LfmE*Jr!44eX`0ANr^2<to^_eVK^ju>e
z!`YlW%4vSKC*OC)3SLfpwd`&{*}TvHCETW}ekicjVGGSUTl-{R{i>xlwm+`~t&Vwr
z?8V}%vpvOaTqbX^tz=VN85zoGH>a5GLGJpc0e6pbTfEGA*KX3cDC%&~r=^}MH&t}^
zSN@&FeM#|3n7EJtC$oVPllbv<Ut%;wUak0;{O`(?jq;KgxToJa$LD;XeY4I1qnBsd
zU$1Yx!u_i7ZSK@?E*=i0@M~+X?tjAFv2&mFZ~r5^AI6DnK07VT|B1?%2Mfi7)-~Rh
zS##S&g3o1tUa#fJ9b8;heZE0jIeR;97)9_^lt1>Kdc67hVs(k-+pM!s{{HbZb27hT
z=`XRWDxtHEx2AcUzl`mRl}K1^qPzNPt@!$-CsgiMpRV^<z5L2k9lLi=Zz~2cmzqD4
zyU;75UXp)uPS`@bw&%9HtL8X1vYz(n-^sgkV(TvJxEt1&)&@SE5yu)>y!E2Vw2QS9
zT1@7q*S?>v#Le1x-^A<LJiFynCU<?f)XF{i{kKZ5n)_QfpH<3Pv1CVC=hM0W=NT!T
zx*NwU<z=z<@!xMJm96r$)#u4~xrWNt{ysG|nOSdDTeHo{pVn)?{FCBX_SK*D?}jar
zw~f!&h>BR%KD_fd)@#!7evuyms!q$&4?d`J+%awIy|3PR?+vHSd|xY`z~iQOzo&c!
zvxjoCVN##p?Xm}ddYaC>y=RmBWA4AwHzBuwoMO1GR1)T-^_TnMj;)#db|k(!`Bs`?
z_VVSA_I2s+IlK1G-ye_LBuY6?SqPQyf6O4`8&db+V!@`8Or@)N3MTt%d|LLLT6U*=
zS-fsmkNvkL;?1iI8jcnvyXKx{{9N{1^XeUG-j`<<cxSU^YW_O<`rTCS`R}^Yr?A$=
zO*!;#MPIdM_sf!uU(?P-^smi%elR05M)zma^)ubwhVif0`P#Lu4%y6OTf1fVcGYW^
z>L2TD9B&@jHmBM)=ae5qnStDw^YQ)1k6k~1+WrVPtE*FpgMfepL&5|5E0T5pf7ez1
zYdaUe=b!lhZ%%wKfBwJXURU)s@JRfkefM|0@_+IBK>hmWd;iZV_TFqiagl#n)&CZ|
zTmQD}f02AB(ERKAyZ@K|&ul*_|M0o!pW+Si&VR&S=KK>8`yX!5&eEb#)BHd8n}cH0
zf0O@$H*EzKIVO}}c)0WbjhjtO>l**v`Tm*lg<<={2M-cH8@&Dh<Uhk2OY8O=ZUzPb
D8EuBR

diff --git a/R/PimentelPg382.R b/R/PimentelPg382.R
index fa601bed..8d33f28f 100644
--- a/R/PimentelPg382.R
+++ b/R/PimentelPg382.R
@@ -1,21 +1,21 @@
 #' @name PimentelPg382
-#' @title Experimento de Métodos de Enxertia
+#' @title Métodos de Enxertia no Pegamento de Mudas
 #' @description Experimento com 3 métodos de enxertia em que haviam 200
-#'     enxertos para cada método e pegaram 180, 150 e 145 desses
-#'     enxertos, respectivamente. O resultado, traduzido por
-#'     frequências, pode ser expresso em porcentagens, que devem ser
-#'     comparadas.
-#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'     estacas para cada método e pegaram 180, 150 e 145 desses
+#'     enxertos, respectivamente.
+#' @format Um \code{data.frame} com 3 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{metod}}{Fator de 3 níveis qualitativos, que são os
-#'     métodos de enxertia.}
+#' \item{\code{metod}}{Fator de 3 níveis qualitativos que são os métodos
+#'     de enxertia das estacas.}
 #'
-#' \item{\code{enxerto}}{Fator de 2 níveis qualitativos, que indica os
-#'      Enxertos Pegados e os Enxertos Mortos.}
+#' \item{\code{morta}}{Quantidade de estacas mortas, ou seja, que não
+#'     pegaram com a enxertia, de um total de 200 estacas.}
 #'
-#' \item{\code{freq}}{Totais de frequências.}
+#' \item{\code{viva}}{Quantidade de estacas vivas, ou seja, que pegaram
+#'     com a enxertia, de um total de 200 estacas. A soma das vivas com
+#'     as mortas é 200, portanto.}
 #'
 #' }
 #' @keywords DIC
@@ -27,15 +27,10 @@
 #'
 #' data(PimentelPg382)
 #' str(PimentelPg382)
-#' 
-#' xyplot(freq ~ metod,
-#'        groups = enxerto,
-#'        type = "o",
-#'        auto.key = list(title = "Enxerto",
-#'                        cext.tile = 1,
-#'                        columns = 2),
-#'        data = PimentelPg382,
-#'        ylab = "Frequência",
-#'        xlab = "Método de Enxertia")
-#'
-NULL
\ No newline at end of file
+#'
+#' barchart(morta + viva ~ metod, data = PimentelPg382,
+#'          stack = TRUE, auto.key = TRUE,
+#'          xlab = "Método de enxertia",
+#'          ylab = "Quantidade de estacas")
+#'
+NULL
diff --git a/R/PimentelTb18.2.1.R b/R/PimentelTb18.2.1.R
index 413104b1..f5dda230 100644
--- a/R/PimentelTb18.2.1.R
+++ b/R/PimentelTb18.2.1.R
@@ -1,29 +1,45 @@
 #' @name PimentelTb18.2.1
-#' @title Ensaio de Adubação de Milho
-#' @description Ensaio de adubação de milho, fatorial de \eqn{3^{3}} com
-#'     N, P e K, com confundimento de 2 graus de liberdade da interação
-#'     tripla. A cada três blocos de 9 parcelas juntaram-se 5
-#'     tratamentos adicionais.
-#' @format Um \code{data.frame} com 42 observações e 3 variáveis, em que
+#' @title Ensaio Fatorial com Tratamentos Adicionais de Adubação de
+#'     Milho
+#' @description Ensaio de adubação NPK de milho, fatorial de
+#'     \eqn{3^{3}}, com confundimento de 2 graus de liberdade da
+#'     interação tripla. A cada três blocos de 9 parcelas juntaram-se
+#'     mais 5 com tratamentos adicionais combinando calcário e
+#'     micronutrientes.
+#' @format Um \code{data.frame} com 42 observações e 8 variáveis, em que
 #'
 #' \describe{
 #'
 #' \item{\code{bloc}}{Fator de 3 níveis qualitativos, usado para
-#'     controle local.}
+#'     controle local. Os blocos tem 14 parcelas, 9 da porção fatorial e
+#'     5 da porção adicional.}
 #'
 #' \item{\code{trat}}{Fator de 30 níveis qualitativos, que são os
 #'     tratamentos aplicados em cada parcela, sendo que cada algarismo
-#'     possui um significado diferente conforme sua posição: A posição
-#'     1 indica os níveis de Nitrogênio; A posição 2 indica os níveis de
-#'     Fósforo; A posição 3 indica  os níveis de Potássio; A posição 4
-#'     (após o hífen) indica uma possível adição de Calcário; E a
-#'     posição 5 (após o hífen) indica uma possível adição de
-#'     micronutrientes.}
+#'     possui um significado diferente conforme sua posição: A posição 1
+#'     indica os níveis de nitrogênio, a posição 2 indica os níveis de
+#'     fósforo e a posição 3 indica os níveis de potássio. A letra C
+#'     indica a adição de calcário e M a adição de micronutrientes.}
 #'
-#' \item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+#' \item{\code{N}}{Fator de níveis codificados que representa a dose de
+#'     nitrogênio.}
+#'
+#' \item{\code{P}}{Fator de níveis codificados que representa a dose de
+#'     fósforo.}
+#'
+#' \item{\code{K}}{Fator de níveis codificados que representa a dose de
+#'     potássio.}
+#'
+#' \item{\code{calc}}{Fator de níveis codificados que indica a presença
+#'     (1) ou ausência de calcário.}
+#'
+#' \item{\code{micro}}{Fator de níveis codificados que indica a presença
+#'     (1) ou ausência de micronutrientes.}
+#'
+#' \item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords FAT3
+#' @keywords FAT3 adicional
 #' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
 #'     (15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330)
 #' @examples
@@ -32,15 +48,16 @@
 #'
 #' data(PimentelTb18.2.1)
 #' str(PimentelTb18.2.1)
-#' 
-#' xyplot(prod ~ trat,
-#'        groups = bloc,
-#'        auto.key = list(title = "Blocos",
-#'                        cex.title = 1,
-#'                        columns = 3),
-#'        data = PimentelTb18.2.1,
-#'        type = c("a", "p"),
-#'        ylab = "Produção de Milho (em kg/ha)",
-#'        xlab = "Tratamento")
-#'
-NULL
\ No newline at end of file
+#'
+#' xtabs(~trat + bloc, data = PimentelTb18.2.1)
+#'
+#' xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb18.2.1,
+#'        layout = c(NA, 1), type = c("p", "a"),
+#'        xlab = "Nitrogênio (codificado)",
+#'        ylab = expression("Produção de milho"~(ka~ha^{-1})),
+#'        auto.key = list(title = "Potássio (codificado)",
+#'                        cex.title = 1.1, columns = 3),
+#'        strip = strip.custom(strip.names = TRUE,
+#'                             var.name = "Fósforo"))
+#'
+NULL
diff --git a/R/PimentelTb20.2.1.R b/R/PimentelTb20.2.1.R
index 27e11475..6e9428ad 100644
--- a/R/PimentelTb20.2.1.R
+++ b/R/PimentelTb20.2.1.R
@@ -12,7 +12,8 @@
 #' \item{\code{K}}{Variável que indica os níveis de Potássio (K) em cada
 #'     parcela.}
 #'
-#' \item{\code{totais}}{Totais dos tratamentos em \eqn{t.ha^{-1}}.}
+#' \item{\code{totais}}{Produção total nos 6 blocos, em ton
+#'     ha\eqn{^{-1}}. Valores individuais não disponíveis.}
 #'
 #' }
 #' @keywords FAT2
@@ -24,15 +25,12 @@
 #'
 #' data(PimentelTb20.2.1)
 #' str(PimentelTb20.2.1)
-#' 
-#' xyplot(totais ~ P,
-#'        groups = K,
-#'        type = "o",
+#'
+#' xyplot(totais ~ P, data = PimentelTb20.2.1,
+#'        groups = K, type = "o",
 #'        auto.key = list(title = "Níveis de Potássio (K)",
-#'                        cext.tile = 1,
-#'                        columns = 3),
-#'        data = PimentelTb20.2.1,
-#'        ylab = "Totais de Tratamentos (em t/ha)",
-#'        xlab = "Níveis de Fósforo (P)")
+#'                        cex.title = 1.1, columns = 3),
+#'        ylab = "Totais de tratamentos (ton/ha)",
+#'        xlab = "Níveis de fósforo (P)")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/PimentelTb21.5.1.R b/R/PimentelTb21.5.1.R
index 47eb706d..58eac7df 100644
--- a/R/PimentelTb21.5.1.R
+++ b/R/PimentelTb21.5.1.R
@@ -1,8 +1,9 @@
 #' @name PimentelTb21.5.1
 #' @title Porcentagem de Plantas Doentes
-#' @description Ensaio inteiramente casualizado relativo à porcentagem
-#'     de plantas doentes em um experimento de tomateiros, em que foi
-#'     aplicado o teste de Kruskal-Wallis.
+#' @description Ensaio inteiramente casualizado para avaliar a
+#'     porcentagem de plantas doentes em um experimento de tomateiros
+#'     onde foi estudado um fator de 3 níveis. Para análise dos
+#'     resultados pode-se considerar o de Kruskal- Wallis.
 #' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
 #'
 #' \describe{
@@ -23,11 +24,11 @@
 #'
 #' data(PimentelTb21.5.1)
 #' str(PimentelTb21.5.1)
-#' 
+#'
 #' xyplot(doentes ~ trat,
 #'        data = PimentelTb21.5.1,
 #'        type = c("a", "p"),
-#'        ylab = "Porcentagem de Plantas Doentes",
+#'        ylab = "Porcentagem de plantas doentes",
 #'        xlab = "Tratamento")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/PimentelPg382.txt b/data-raw/PimentelPg382.txt
index 6affdf36..affe6c62 100644
--- a/data-raw/PimentelPg382.txt
+++ b/data-raw/PimentelPg382.txt
@@ -1,7 +1,4 @@
-metod	enxerto	freq
-A	pegado	180
-B	pegado	150
-C	pegado	144
-A	morto	20
-B	morto	50
-C	morto	56
+metod	morta	viva
+A	20	180
+B	50	150
+C	56	144
diff --git a/data-raw/PimentelTb18.2.1.txt b/data-raw/PimentelTb18.2.1.txt
index 82559ee5..edabb753 100644
--- a/data-raw/PimentelTb18.2.1.txt
+++ b/data-raw/PimentelTb18.2.1.txt
@@ -1,43 +1,43 @@
-bloc	trat	prod
-1	000-00	981
-1	012-00	1216
-1	021-00	1183
-1	101-00	1213
-1	110-00	1028
-1	122-00	1574
-1	202-00	1111
-1	211-00	1333
-1	220-00	1775
-2	001-00	1213
-2	010-00	1510
-2	022-00	901
-2	102-00	1404
-2	111-00	1602
-2	120-00	1214
-2	200-00	1221
-2	212-00	1694
-2	221-00	1593
-3	002-00	808
-3	011-00	942
-3	020-00	998
-3	100-00	1327
-3	112-00	1019
-3	121-00	1401
-3	201-00	1120
-3	210-00	1444
-3	222-00	1343
-1	000-00	1290
-1	111-00	1314
-1	111-10	1296
-1	111-01	1237
-1	111-11	1324
-2	000-00	1039
-2	111-00	680
-2	111-10	1324
-2	111-01	1333
-2	111-11	1079
-3	000-00	947
-3	111-00	1178
-3	111-10	947
-3	111-01	1241
-3	111-11	949
+bloc	trat	N	P	K	calc	micro	prod
+1	000	0	0	0	0	0	981
+1	012	0	1	2	0	0	1216
+1	021	0	2	1	0	0	1183
+1	101	1	0	1	0	0	1213
+1	110	1	1	0	0	0	1028
+1	122	1	2	2	0	0	1574
+1	202	2	0	2	0	0	1111
+1	211	2	1	1	0	0	1333
+1	220	2	2	0	0	0	1775
+2	001	0	0	1	0	0	1213
+2	010	0	1	0	0	0	1510
+2	022	0	2	2	0	0	901
+2	102	1	0	2	0	0	1404
+2	111	1	1	1	0	0	1602
+2	120	1	2	0	0	0	1214
+2	200	2	0	0	0	0	1221
+2	212	2	1	2	0	0	1694
+2	221	2	2	1	0	0	1593
+3	002	0	0	2	0	0	808
+3	011	0	1	1	0	0	942
+3	020	0	2	0	0	0	998
+3	100	1	0	0	0	0	1327
+3	112	1	1	2	0	0	1019
+3	121	1	2	1	0	0	1401
+3	201	2	0	1	0	0	1120
+3	210	2	1	0	0	0	1444
+3	222	2	2	2	0	0	1343
+1	000	0	0	0	0	0	1290
+1	111	1	1	1	0	0	1314
+1	111+C	1	1	1	1	0	1296
+1	111+M	1	1	1	0	1	1237
+1	111+C+M	1	1	1	1	1	1324
+2	000	0	0	0	0	0	1039
+2	111	1	1	1	0	0	680
+2	111+C	1	1	1	1	0	1324
+2	111+M	1	1	1	0	1	1333
+2	111+C+M	1	1	1	1	1	1079
+3	000	0	0	0	0	0	947
+3	111	1	1	1	0	0	1178
+3	111+C	1	1	1	1	0	947
+3	111+M	1	1	1	0	1	1241
+3	111+C+M	1	1	1	1	1	949
diff --git a/data/PimentelPg382.rda b/data/PimentelPg382.rda
index 2028472ff2e4387bbf00f0924da26e6059a02705..353f8c60efa1dbf121a63f42a1db54fa6cca8451 100644
GIT binary patch
literal 212
zcmZ>Y%CIzaj8qGb{FN?#gn?ml{fqxbJ`4<u5)L*D0S@}h=QcPnI5My>Ffeam*qP&U
ziLIA`fx+a0+(MCCy;8Q03m6!f6$~9$%w$}Ua=|2n?UL=I7NI%ERT+ZCgnb<Lh1&jD
zC~KOiQN3%9>4c;Pu3E8E;$|8R+{%10w@$=8h-l7a74lM4VPcUIU|`N=JlJU165zgZ
z>&8_+>ozZU6=bid;k&Z)q{>GQCYzuGzpD!MdjyzxE;6b~T+>~t<R=xD)KXIJJtN9?
Sj_jY<lOhkDoL|m~7XScH=StN8

literal 245
zcmZ>Y%CIzaj8qGbeE;s^RtAQH|6lyy<io(gDB)nk5a6J{{O<t=21f=K1_r?m3^yiR
zxg5wJd@9M-eFcx=Rw*ePj|7tx6A1?sW?u$|i2_}@4i_#vPT&uAR-3s}Fw12IPyR%s
zEym$opLXi+74_AfldPF+zxnHj$Cr1jx5aiUFMOWSm9}vGu^o4pm;DrAeJl3)%hoGf
zSl+Z239eyW(zvkMCv*z~o6QH00~~uiO`d(rk1{yEdi^1b)-Mggdrb<W62(0JZB}-c
zQ_RU%n(}h7k~CY>46`L{0V{9GD5V8lo9kTFc!k^M{7xB(B%jIu^qzDTEL6OIcX1W~
D-t=jx

diff --git a/data/PimentelTb18.2.1.rda b/data/PimentelTb18.2.1.rda
index d83da07d9dfb51b734500a7f5ab7c471237bf504..7936b4cad3ed6d585b83352d48df893fc9b7826e 100644
GIT binary patch
literal 549
zcmZ>Y%CIzaj8qGbTxi<K!ockL9}EOze?6GP9de*v{q7Pc1_r?vM=oY324)3Dh6c_9
zjDOsYoH6NKl#(=CDRZl>+m%lZCX5ST**fqtJ6v2KkyY0vy8LCZstNlF1_lNONd^W6
zwq~^kb}31d%W4g59L$cB9T-k7U|>i&!PcbGl_~7(zT_(}vjYRO123Bcg9!tJ+YAFf
zULjr4fK^Na9F8l*yKbo{xMw-}Je=la6x++f$#CQOePyvHJe7+qyDWD_Gjq57Qkzm%
z*%<k|=k3x@&MYUNthh1bXn#~`Ph!lMNcDNus>kC`ZDbKRD$LU$CvMgA^$HV1mvYE?
z3l=BVt#1`NgmP}}nHzuhSTjR@eDPkXiOYG4+&}G*NIhuobMnH1z56OP)I^)-Wd<zw
zebeG;a!Ta=oCXEgSxGETGH1B#=f%l>>;QR`L8_$gRh6|)_1s6_Hl(GVVmQefZ@;R|
zS()*F)r%Yhj>{gWoTf~0a>);xBV?w;YACF`!bMkv<=5F-u5dw_z<jogQrEXOTqt^E
z`0L90N%tZe7=&l4%v6~*b&4VbLp8s`N%c)7X_cG`v+qn3aA3JSX;PS{T9xPGke5ql
z+Ra|SrXX=^UYJ>doQ~7cBdzDpYW+Ml_x_s=t26V8CyO?}irn>9b%9f_gxSFfZ<S4W
z{bsCcTYlu&T;UhnLa+0zTCLlw5w<EtkwIfp-O{&R$sCD|`9F3~(md4C%DKiv0RZ&u
B-`@ZL

literal 454
zcmZ>Y%CIzaj8qGb^y$x^!N3$*{~rVd!+$-P!Vq$xUj6P8Ck6(=7Dp~-CkAE(MurB?
z4UDtYjCqBsmV6Gm=`U0@)8xcuWd(*47c!(wE->(#b^g)_U->I2tF3_n4md@cdVHDH
z8cY~2Ft9Z+@G>wfBppyraGJ{$)Nt(i$^_oV*4$zfj$<qD9!iuEb4yHfVE7|o%6ZQE
zqQ|CrAH64}8GHH#YD~5^(hB*a6|y>Ni=}G4<oPe_96CZQwuEr7Ez7-?c65DN&Vx-K
zs@u80UoN}*<L#%9H9G<yA6Ad)S$BK-t~J|EZTPV<DXcocdl^TUr%2GH0EUi@v%H0^
zw%FVL?7GPm=DQ(~>x@HpNQ>De4=E|nWeT&N8Myce3BLNBtI)~D(#uj9P#EAIoO!6L
z%K_{$fyVnU|5`3tF3Kv|z}^(#yUQzR%97c+71u7hBs(y;`u1f7O<A;*<=FKtuTw1>
zSS_qlZfEIkov`7TvU_vTGqpDfp%O>$Ke)BS(Cqk&R;%NwfxdGzjGj#j&b-NEKBark
w2MYy3mHq47wpxWK3I}B$I@&oit)s!j;heGCl1hh@sY?IFi(D-NCV=7%0GIy0g#Z8m

diff --git a/man/PimentelPg382.Rd b/man/PimentelPg382.Rd
index af79d981..bc188bf6 100644
--- a/man/PimentelPg382.Rd
+++ b/man/PimentelPg382.Rd
@@ -2,18 +2,20 @@
 % Please edit documentation in R/PimentelPg382.R
 \name{PimentelPg382}
 \alias{PimentelPg382}
-\title{Experimento de Métodos de Enxertia}
-\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+\title{Métodos de Enxertia no Pegamento de Mudas}
+\format{Um \code{data.frame} com 3 observações e 3 variáveis, em que
 
 \describe{
 
-\item{\code{metod}}{Fator de 3 níveis qualitativos, que são os
-    métodos de enxertia.}
+\item{\code{metod}}{Fator de 3 níveis qualitativos que são os métodos
+    de enxertia das estacas.}
 
-\item{\code{enxerto}}{Fator de 2 níveis qualitativos, que indica os
-     Enxertos Pegados e os Enxertos Mortos.}
+\item{\code{morta}}{Quantidade de estacas mortas, ou seja, que não
+    pegaram com a enxertia, de um total de 200 estacas.}
 
-\item{\code{freq}}{Totais de frequências.}
+\item{\code{viva}}{Quantidade de estacas vivas, ou seja, que pegaram
+    com a enxertia, de um total de 200 estacas. A soma das vivas com
+    as mortas é 200, portanto.}
 
 }}
 \source{
@@ -22,10 +24,8 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
 }
 \description{
 Experimento com 3 métodos de enxertia em que haviam 200
-    enxertos para cada método e pegaram 180, 150 e 145 desses
-    enxertos, respectivamente. O resultado, traduzido por
-    frequências, pode ser expresso em porcentagens, que devem ser
-    comparadas.
+    estacas para cada método e pegaram 180, 150 e 145 desses
+    enxertos, respectivamente.
 }
 \examples{
 
@@ -34,15 +34,10 @@ library(lattice)
 data(PimentelPg382)
 str(PimentelPg382)
 
-xyplot(freq ~ metod,
-       groups = enxerto,
-       type = "o",
-       auto.key = list(title = "Enxerto",
-                       cext.tile = 1,
-                       columns = 2),
-       data = PimentelPg382,
-       ylab = "Frequência",
-       xlab = "Método de Enxertia")
+barchart(morta + viva ~ metod, data = PimentelPg382,
+         stack = TRUE, auto.key = TRUE,
+         xlab = "Método de enxertia",
+         ylab = "Quantidade de estacas")
 
 }
 \keyword{DIC}
diff --git a/man/PimentelTb18.2.1.Rd b/man/PimentelTb18.2.1.Rd
index d2d129bd..abce79d9 100644
--- a/man/PimentelTb18.2.1.Rd
+++ b/man/PimentelTb18.2.1.Rd
@@ -2,24 +2,39 @@
 % Please edit documentation in R/PimentelTb18.2.1.R
 \name{PimentelTb18.2.1}
 \alias{PimentelTb18.2.1}
-\title{Ensaio de Adubação de Milho}
-\format{Um \code{data.frame} com 42 observações e 3 variáveis, em que
+\title{Ensaio Fatorial com Tratamentos Adicionais de Adubação de
+    Milho}
+\format{Um \code{data.frame} com 42 observações e 8 variáveis, em que
 
 \describe{
 
 \item{\code{bloc}}{Fator de 3 níveis qualitativos, usado para
-    controle local.}
+    controle local. Os blocos tem 14 parcelas, 9 da porção fatorial e
+    5 da porção adicional.}
 
 \item{\code{trat}}{Fator de 30 níveis qualitativos, que são os
     tratamentos aplicados em cada parcela, sendo que cada algarismo
-    possui um significado diferente conforme sua posição: A posição
-    1 indica os níveis de Nitrogênio; A posição 2 indica os níveis de
-    Fósforo; A posição 3 indica  os níveis de Potássio; A posição 4
-    (após o hífen) indica uma possível adição de Calcário; E a
-    posição 5 (após o hífen) indica uma possível adição de
-    micronutrientes.}
+    possui um significado diferente conforme sua posição: A posição 1
+    indica os níveis de nitrogênio, a posição 2 indica os níveis de
+    fósforo e a posição 3 indica os níveis de potássio. A letra C
+    indica a adição de calcário e M a adição de micronutrientes.}
 
-\item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+\item{\code{N}}{Fator de níveis codificados que representa a dose de
+    nitrogênio.}
+
+\item{\code{P}}{Fator de níveis codificados que representa a dose de
+    fósforo.}
+
+\item{\code{K}}{Fator de níveis codificados que representa a dose de
+    potássio.}
+
+\item{\code{calc}}{Fator de níveis codificados que indica a presença
+    (1) ou ausência de calcário.}
+
+\item{\code{micro}}{Fator de níveis codificados que indica a presença
+    (1) ou ausência de micronutrientes.}
+
+\item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.}
 
 }}
 \source{
@@ -27,10 +42,11 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
     (15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330)
 }
 \description{
-Ensaio de adubação de milho, fatorial de \eqn{3^{3}} com
-    N, P e K, com confundimento de 2 graus de liberdade da interação
-    tripla. A cada três blocos de 9 parcelas juntaram-se 5
-    tratamentos adicionais.
+Ensaio de adubação NPK de milho, fatorial de
+    \eqn{3^{3}}, com confundimento de 2 graus de liberdade da
+    interação tripla. A cada três blocos de 9 parcelas juntaram-se
+    mais 5 com tratamentos adicionais combinando calcário e
+    micronutrientes.
 }
 \examples{
 
@@ -39,16 +55,18 @@ library(lattice)
 data(PimentelTb18.2.1)
 str(PimentelTb18.2.1)
 
-xyplot(prod ~ trat,
-       groups = bloc,
-       auto.key = list(title = "Blocos",
-                       cex.title = 1,
-                       columns = 3),
-       data = PimentelTb18.2.1,
-       type = c("a", "p"),
-       ylab = "Produção de Milho (em kg/ha)",
-       xlab = "Tratamento")
+xtabs(~trat + bloc, data = PimentelTb18.2.1)
+
+xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb18.2.1,
+       layout = c(NA, 1), type = c("p", "a"),
+       xlab = "Nitrogênio (codificado)",
+       ylab = expression("Produção de milho"~(ka~ha^{-1})),
+       auto.key = list(title = "Potássio (codificado)",
+                       cex.title = 1.1, columns = 3),
+       strip = strip.custom(strip.names = TRUE,
+                            var.name = "Fósforo"))
 
 }
 \keyword{FAT3}
+\keyword{adicional}
 
diff --git a/man/PimentelTb20.2.1.Rd b/man/PimentelTb20.2.1.Rd
index 0e68da5f..89ca4882 100644
--- a/man/PimentelTb20.2.1.Rd
+++ b/man/PimentelTb20.2.1.Rd
@@ -13,7 +13,8 @@
 \item{\code{K}}{Variável que indica os níveis de Potássio (K) em cada
     parcela.}
 
-\item{\code{totais}}{Totais dos tratamentos em \eqn{t.ha^{-1}}.}
+\item{\code{totais}}{Produção total nos 6 blocos, em ton
+    ha\eqn{^{-1}}. Valores individuais não disponíveis.}
 
 }}
 \source{
@@ -31,15 +32,12 @@ library(lattice)
 data(PimentelTb20.2.1)
 str(PimentelTb20.2.1)
 
-xyplot(totais ~ P,
-       groups = K,
-       type = "o",
+xyplot(totais ~ P, data = PimentelTb20.2.1,
+       groups = K, type = "o",
        auto.key = list(title = "Níveis de Potássio (K)",
-                       cext.tile = 1,
-                       columns = 3),
-       data = PimentelTb20.2.1,
-       ylab = "Totais de Tratamentos (em t/ha)",
-       xlab = "Níveis de Fósforo (P)")
+                       cex.title = 1.1, columns = 3),
+       ylab = "Totais de tratamentos (ton/ha)",
+       xlab = "Níveis de fósforo (P)")
 
 }
 \keyword{FAT2}
diff --git a/man/PimentelTb21.5.1.Rd b/man/PimentelTb21.5.1.Rd
index c20924e3..9c6c2b07 100644
--- a/man/PimentelTb21.5.1.Rd
+++ b/man/PimentelTb21.5.1.Rd
@@ -19,9 +19,10 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
     (15th ed.). Piracicaba, SP: FEALQ. (Tabela 21.5.1, pág. 384)
 }
 \description{
-Ensaio inteiramente casualizado relativo à porcentagem
-    de plantas doentes em um experimento de tomateiros, em que foi
-    aplicado o teste de Kruskal-Wallis.
+Ensaio inteiramente casualizado para avaliar a
+    porcentagem de plantas doentes em um experimento de tomateiros
+    onde foi estudado um fator de 3 níveis. Para análise dos
+    resultados pode-se considerar o de Kruskal- Wallis.
 }
 \examples{
 
@@ -33,7 +34,7 @@ str(PimentelTb21.5.1)
 xyplot(doentes ~ trat,
        data = PimentelTb21.5.1,
        type = c("a", "p"),
-       ylab = "Porcentagem de Plantas Doentes",
+       ylab = "Porcentagem de plantas doentes",
        xlab = "Tratamento")
 
 }
-- 
GitLab