Adiciona dados do Pimentel Cap 18, 20 e 21.

R/PimentelPg382.R

 #' @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
@@ -28,14 +28,9 @@
 #' 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")
 #'
 NULL

R/PimentelTb18.2.1.R

 #' @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
@@ -33,14 +49,15 @@
 #' 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"))
 #'
 NULL

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
@@ -25,14 +26,11 @@
 #' 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

R/PimentelTb21.5.1.R

 #' @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{
@@ -27,7 +28,7 @@
 #' xyplot(doentes ~ trat,
 #'        data = PimentelTb21.5.1,
 #'        type = c("a", "p"),
-#'        ylab = "Porcentagem de Plantas Doentes",
+#'        ylab = "Porcentagem de plantas doentes",
 #'        xlab = "Tratamento")
 #'
 NULL

data-raw/PimentelPg382.txt

-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

data-raw/PimentelTb18.2.1.txt

-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

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}

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}
 

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}

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")
 
 }