R/Banzatto.R

 #' @name BanzattoQd1.2.3
-#' @title Di\enc{â}{a}metro \enc{à}{a} Altura do Peito de \emph{Eucalyptus saligna}
+#' @title Di\enc{â}{a}metro \enc{à}{a} Altura do Peito de
+#'     \emph{Eucalyptus saligna}
 #' @description Valores de diâmetro à altura do peito (DAP, cm) de uma
 #'     amostra aleatória de árvores de \emph{Eucalyptus saligna} de um
 #'     povoamento com 15 anos de idade.
 #' @format Um vetor numérico com 20 elementos.
-#' @keywords amostra
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 1.2.3 pág. 3)
+#' @keywords AAS
+#' @source BANZATTO; KRONKA (2013), Quadro 1.2.3, pág. 3.
 #' @examples
+#'
 #' data(BanzattoQd1.2.3)
 #'
 #' hist(BanzattoQd1.2.3, prob = TRUE,
@@ -26,7 +27,7 @@
 NULL
 
 #' @name BanzattoQd3.2.1
-#' @title Controle de pulg\enc{ã}{a}o na cultura de pepino
+#' @title Controle de Pulg\enc{ã}{a}o na Cultura de Pepino
 #' @description Dados de um experimento visando controle de pulgão
 #'     (\emph{Aphis gossypii} Glover) em cultura de pepino, instalado em
 #'     delineamento inteiramente casualizado com 6 repetições. A
@@ -47,9 +48,7 @@ NULL
 #'
 #' }
 #' @keywords DIC contagem
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.2.1 pág.
-#'     44)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.2.1, pág. 44.
 #' @examples
 #'
 #' library(lattice)
@@ -70,7 +69,7 @@ NULL
 #'     cultivares de mandioca. O experimento foi instalado em
 #'     delineamento inteiramente casualizado devido a área ser homogênea
 #'     quanto às condições experimentais.
-#' @format Um \code{data.frame} com 25 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 25 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -85,9 +84,7 @@ NULL
 #'
 #' }
 #' @keywords DIC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.4.1 pág.
-#'     50)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.4.1, pág. 50.
 #' @examples
 #'
 #' library(lattice)
@@ -104,12 +101,13 @@ NULL
 NULL
 
 #' @name BanzattoQd3.6.1
-#' @title Produ\enc{çã}{ca}o de Mat\enc{é}{e}ria Seca em Cultivares de Sorgo
+#' @title Produ\enc{çã}{ca}o de Mat\enc{é}{e}ria Seca em Cultivares de
+#'     Sorgo
 #' @description Experimento em delineamento inteiramente casualizado
 #'     avaliando a produção de matéria de cultivares de sorgo. O
 #'     experimento é desbalanceado no número de repetições das
 #'     cultivares.
-#' @format Um \code{data.frame} com 30 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -123,9 +121,7 @@ NULL
 #'
 #' }
 #' @keywords DIC desbalanceado
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.6.1 pág.
-#'     57)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.6.1, pág. 57.
 #' @examples
 #' library(lattice)
 #'
@@ -141,12 +137,13 @@ NULL
 NULL
 
 #' @name BanzattoQd3.7.1
-#' @title Composi\enc{çã}{ca}o do Substrato na Altura de \emph{Pinus oocarpa}
+#' @title Composi\enc{çã}{ca}o do Substrato na Altura de \emph{Pinus
+#'     oocarpa}
 #' @description Dados de experimento para estudo do efeito de 5
 #'     composições de substrato para o desenvolvimento de \emph{Pinus
 #'     oocarpa}. Experimento realizado em delineamento inteiramente
 #'     casualizado.
-#' @format Um \code{data.frame} com 20 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -163,9 +160,7 @@ NULL
 #'
 #' }
 #' @keywords DIC contrastes
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 3.7.1 pág.
-#'     64)
+#' @source BANZATTO; KRONKA (2013), Quadro 3.7.1, pág. 64.
 #' @examples
 #'
 #' library(lattice)
@@ -183,13 +178,14 @@ NULL
 NULL
 
 #' @name BanzattoQd4.5.2
-#' @title Efeito do Promalin sobre Furtos de Macieira
+#' @title Efeito do Promalin sobre a Produ\enc{çã}{ca}o de Frutos de
+#'     Macieira
 #' @description Resultados de um experimento instalado na Fazenda
 #'     Chapadão, no município de Angatuba - SP. O delineamento
 #'     experimental foi o de blocos casualizados, sendo as parcelas
 #'     constituídas de 4 plantas espaçadas de 6 x 7 metros, com 12 anos
 #'     de idade na época da instalação do experimento.
-#' @format Um \code{data.frame} com 20 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -206,9 +202,7 @@ NULL
 #'
 #' }
 #' @keywords DBC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 4.5.2
-#'     pág. 84)
+#' @source BANZATTO; KRONKA (2013), Quadro 4.5.2, pág. 84.
 #'
 #' Mestriner,  J. C. (1980). Estudos dos efeitos do promalin sobre
 #'     frutos de macieiras (\emph{Malus} ssp) cultivares Brasil e
@@ -235,13 +229,14 @@ NULL
 NULL
 
 #' @name BanzattoQd4.7.1
-#' @title Compara\enc{çã}{ca}o de M\enc{é}{e}todos de Semeadura do Mamoeiro
+#' @title Compara\enc{çã}{ca}o de M\enc{é}{e}todos de Semeadura do
+#'     Mamoeiro
 #' @description Estudo realizado em Jaboticabal - SP por Ruiz (1977)
 #'     que comparou métodos de semeadura no mamoeiro. O experimento foi
 #'     instalado em delineamento de blocos casualizados, com 4
 #'     repetições, avaliando 3 métodos de semeadura. Foram avaliadas
 #'     duas unidades experimentais por método em cada bloco.
-#' @format Um \code{data.frame} com 24 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -255,10 +250,8 @@ NULL
 #'     147 dias após a semeadura.}
 #'
 #' }
-#' @keywords DBC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 4.7.1
-#'     pág. 93)
+#' @keywords DBC replicata
+#' @source BANZATTO; KRONKA (2013), Quadro 4.7.1, pág. 93.
 #'
 #' Ruiz, P. R. N. (1977). Estudo comparativo entre diferentes métodos de
 #'     semeadura na cultura do mamoeiro (\emph{Carica papaya}
@@ -285,7 +278,8 @@ NULL
 NULL
 
 #' @name BanzattoQd5.2.1
-#' @title Peneira e Densidade de Plantio na Produ\enc{çã}{ca}o de Amendoim
+#' @title Peneira e Densidade de Plantio na Produ\enc{çã}{ca}o de
+#'     Amendoim
 #' @description Dados de um experimento fatorial que estudou o efeito de
 #'     densidade de plantio e tamanho da peneiras comerciais, de crivos
 #'     circulares, para classificação das sementes da produção de
@@ -315,9 +309,7 @@ NULL
 #' avaliações apenas no comprimento restante das duas linhas centrais, o
 #' que resultou em uma área útil de 6 m\eqn{^2}.
 #' @keywords DBC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
-#'     pág. 102)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.2.1, pág. 102.
 #' @examples
 #'
 #' library(lattice)
@@ -363,9 +355,7 @@ NULL
 #'
 #' }
 #' @keywords DIC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
-#'     pág. 107)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.2.4, pág. 107.
 #' @examples
 #'
 #' library(lattice)
@@ -382,12 +372,14 @@ NULL
 NULL
 
 #' @name BanzattoQd5.3.1
-#' @title Produ\enc{çã}{ca}o de Caf\enc{é}{e} em Fun\enc{çã}{ca}o de Aduba\enc{çã}{ca}o NPK
+#' @title Produ\enc{çã}{ca}o de Caf\enc{é}{e} em Fun\enc{çã}{ca}o de
+#'     Aduba\enc{çã}{ca}o NPK
 #' @description Resultados de um experimento em arranjo fatorial triplo
 #'     2 \eqn{\times} 2 \eqn{\times} 2, instalado em delineamento de
 #'     blocos casualizados, para estudar o efeito da combinação de
 #'     nitrogênio, fósforo e potássio na produção de café coco.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{N}}{Variável numérica que indica ausência (0) ou
@@ -407,10 +399,8 @@ NULL
 #'     cada uma das combinações de N, P e K na adubação.}
 #'
 #' }
-#' @keywords DBC FAT3
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.1,
-#'     pág. 113)
+#' @keywords DBC FAT2K
+#' @source BANZATTO; KRONKA (2013), Quadro 5.3.1, pág. 113.
 #' @examples
 #'
 #' library(lattice)
@@ -437,11 +427,13 @@ NULL
 NULL
 
 #' @name BanzattoQd5.3.7
-#' @title Efici\enc{ê}{e}ncia na Utiliza\enc{çã}{ca}o de P por Cultivares de trigo
+#' @title Efici\enc{ê}{e}ncia na Utiliza\enc{çã}{ca}o de P por
+#'     Cultivares de Trigo
 #' @description Experimento em delineamento inteiramente casualizado que
 #'     avaliou o efeito a eficiência na utilização de fósforo por três
 #'     cultivares de trigo cultivadas em solo com e sem calagem.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{cult}}{Cultivares de trigo usadas no experimento: BR 20
@@ -462,9 +454,7 @@ NULL
 #'
 #' }
 #' @keywords DIC FAT3
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.7,
-#'     pág. 120)
+#' @source BANZATTO; KRONKA (2013), Quadro 5.3.7, pág. 120.
 #' @examples
 #'
 #' library(lattice)
@@ -500,6 +490,7 @@ NULL
 #'     graus de liberdade da interação tripla com o efeito dos blocos. O
 #'     grupo de confundimento adotado foi o W.
 #' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{N}}{Níveis codificados de nitrogênio (N) que representam
@@ -528,10 +519,8 @@ NULL
 #' desconsiderar 1 m em cada extremidade), perfazendo 32 m\eqn{^{2}}. O
 #' híbrido de milho utilizado foi o HMD-7974.
 #'
-#' @keywords DBC FAT3 confundimento
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.5.1,
-#'     pág. 131)
+#' @keywords DBC FAT3K confundimento
+#' @source BANZATTO; KRONKA (2013), Quadro 5.5.1, pág. 131.
 #'
 #' Vilalta, O. A. (1972). Avaliação da produção de milho (\emph{Zea
 #'     mays} L.) em função da adubação NPK em um latossolo
@@ -563,14 +552,15 @@ NULL
 NULL
 
 #' @name BanzattoQd6.2.2
-#' @title Espa\enc{ç}{c}amento de Plantio na Produ\enc{çã}{ca}o de Cana-de-a\enc{çú}{cu}car
+#' @title Espa\enc{ç}{c}amento de Plantio na Produ\enc{çã}{ca}o de
+#'     Cana-de-a\enc{çú}{cu}car
 #' @description O experimento avaliou o efeito do espaçamento de plantio
 #'     na produção de variedades de cana-de-açúcar. Para estudar os dois
 #'     fatores, espaçamento e variedades, considerou-se o delineamento
 #'     de blocos casualizados com arranjo de tratamentos de parcelas
 #'     subdivididas com o espaçamento sendo casualizado dentro dos
 #'     níveis de variedade.
-#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -587,9 +577,7 @@ NULL
 #'
 #' }
 #' @keywords DBC PS
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.2,
-#'     pág. 138)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.2.2, pág. 138.
 #' @examples
 #'
 #' library(lattice)
@@ -622,7 +610,7 @@ NULL
 #'     instalado em delineamento de blocos casualizados com arranjo de
 #'     tratamento em parcela subdividida, sendo as doses casualizadas
 #'     dentro dos níveis de adubo.
-#' @format Um \code{data.frame} com 48 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -639,9 +627,7 @@ NULL
 #'
 #' }
 #' @keywords DBC PS
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.2.5,
-#'     pág. 144)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.2.5, pág. 144.
 #' @examples
 #'
 #' library(lattice)
@@ -679,12 +665,14 @@ NULL
 NULL
 
 #' @name BanzattoQd6.3.4
-#' @title \enc{É}{E}pocas de Plantio e Colheita na Produ\enc{çã}{ca}o de Beterraba
+#' @title \enc{É}{E}pocas de Plantio e Colheita na Produ\enc{çã}{ca}o de
+#'     Beterraba
 #' @description Experimento estudar o efeito de datas de plantio, épocas
 #'     de colheita e aplicação de inseticidas na produção de
 #'     beterraba. Os tratamentos foi arranjados em parcelas
 #'     sub-subdivididas no delineamento de blocos casualizados.
-#' @format Um \code{data.frame} com 72 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 72 observações e 5 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{data}}{Fator de níveis ordinais que representa as datas
@@ -707,9 +695,7 @@ NULL
 #'
 #' }
 #' @keywords DBC PSS
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.3.4,
-#'     pág. 156)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.3.4, pág. 156.
 #' @examples
 #'
 #' library(lattice)
@@ -738,12 +724,14 @@ NULL
 NULL
 
 #' @name BanzattoQd6.4.2
-#' @title \enc{É}{E}poca de Plantio e Aduba\enc{çã}{ca}o Nitrogenada em Beterraba
+#' @title \enc{É}{E}poca de Plantio e Aduba\enc{çã}{ca}o Nitrogenada em
+#'     Beterraba
 #' @description Experimento em delineamento de blocos casualizados cujos
 #'     níveis dos fatores, época de plantio e nitrogênio, foram
 #'     casualizados em faixas. A variável reposta observada foi a
 #'     produção de beterraba.
-#' @format Um \code{data.frame} com 80 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 80 observações e 4 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{nitro}}{Fator de níveis métricos que correspondem à
@@ -771,9 +759,7 @@ NULL
 #' \if{latex}{\figure{BanzattoQd6-4-2.png}{options: width=1.75in}}
 #'
 #' @keywords DBC EF
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 6.4.2,
-#'     pág. 163)
+#' @source BANZATTO; KRONKA (2013), Quadro 6.4.2, pág. 163.
 #' @examples
 #'
 #' library(lattice)
@@ -807,7 +793,7 @@ NULL
 #'     experimento foi instalado em delineamento inteiramente
 #'     casualizado e foram estudados 7 níveis de gesso, de 0 a 300,
 #'     igualmente espaçados em 50 kg ha\eqn{^{-1}}.
-#' @format Um \code{data.frame} com 28 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 28 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -818,10 +804,8 @@ NULL
 #' \item{\code{peso}}{Peso de 1000 sementes de feijão, em gramas.}
 #'
 #' }
-#' @keywords DIC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 7.2.1,
-#'     pág. 170)
+#' @keywords DIC RS
+#' @source BANZATTO; KRONKA (2013), Quadro 7.2.1, pág. 170.
 #'
 #' Ragazzi, D. (1979). Efeito de doses de gesso na cultura do feijoeiro
 #'     (\emph{Phaseolus vulgaris} L.). Trabalho de Conclusão de Curso
@@ -843,13 +827,14 @@ NULL
 NULL
 
 #' @name BanzattoQd7.3.1
-#' @title Di\enc{â}{a}metro e Altura de Tubetes na Forma\enc{çã}{ca}o de Mudas de Eucalipto
+#' @title Di\enc{â}{a}metro e Altura de Tubetes na Forma\enc{çã}{ca}o de
+#'     Mudas de Eucalipto
 #' @description Experimento fatorial 3 \eqn{\times} 3 que avaliou o
 #'     efeito das dimensões do tubete (diâmetro e altura, 3 níveis cada)
 #'     na produção de mudas de eucalipto. O experimento foi instalado em
 #'     delineamento de blocos casualizados e a resposta medida foi a
 #'     altura das mudas 75 dias após a semeadura.
-#' @format Um \code{data.frame} com 27 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -864,9 +849,7 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 7.3.1,
-#'     pág. 177)
+#' @source BANZATTO; KRONKA (2013), Quadro 7.3.1, pág. 177.
 #' @examples
 #'
 #' library(lattice)
@@ -877,7 +860,8 @@ NULL
 #'
 #' xtabs(~at + dt, data = BanzattoQd7.3.1)
 #'
-#' with(BanzattoQd7.3.1, addmargins(tapply(alt, list(at, dt), FUN = mean)))
+#' with(BanzattoQd7.3.1,
+#'      addmargins(tapply(alt, list(at, dt), FUN = mean)))
 #'
 #' xyplot(alt ~ at, data = BanzattoQd7.3.1,
 #'        groups = dt, type = c("p", "a", "g"),
@@ -894,7 +878,7 @@ NULL
 #'     fator qualitativo e outro quantitativo. O experimento está em
 #'     delineamento de blocos casualizados e a resposta é a produção da
 #'     cultura.
-#' @format Um \code{data.frame} com 32 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -909,9 +893,7 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 7.3.3,
-#'     pág. 182)
+#' @source BANZATTO; KRONKA (2013), Quadro 7.3.3, pág. 182.
 #' @examples
 #'
 #' library(lattice)
@@ -941,7 +923,8 @@ NULL
 #'     Guaíra - SP. Os ensaios foram instalados no delineamento de
 #'     blocos casualizados com 4 repetições. A variável resposta é a
 #'     produção de tubérculos, em t ha\eqn{^{-1}}.
-#' @format Um \code{data.frame} com 160 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 160 observações e 4 variáveis, em
+#'     que
 #'
 #' \describe{
 #'
@@ -957,10 +940,8 @@ NULL
 #' \item{\code{prod}}{Produção de tubérculos, em tom ha\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords DBC GE
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.2.1,
-#'     pág. 190)
+#' @keywords GE
+#' @source BANZATTO; KRONKA (2013), Quadro 8.2.1, pág. 190.
 #'
 #' Filgueira, F. A. R. (1991). Interação genótipo ambiente em batata
 #'     (\emph{Solanum tuberosum} L. spp \emph{tuberosum}). Tese
@@ -990,13 +971,14 @@ NULL
 NULL
 
 #' @name BanzattoQd8.3.1
-#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos de Batata
+#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos
+#'     de Batata
 #' @description Grupo de ensaios de competição de genótipos de batata
 #'     realizado por Filgueira (1991) em Anápolis - GO. Cada experimento
 #'     foi instalado em delineamento de blocos casualizados com 4
 #'     repetições. A variável resposta foi a produção, em t
 #'     ha\eqn{^{-1}}, de batata.
-#' @format Um \code{data.frame} com 40 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -1017,10 +999,8 @@ NULL
 #'     em cada um dos experimentos. As estimativas dos quadrados médios
 #'     residuais em cada experimento estão disponíveis no atributo
 #'     \code{"qmr"} do objeto.
-#' @keywords GE DBC
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.3.1,
-#'     pág. 196)
+#' @keywords GE
+#' @source BANZATTO; KRONKA (2013), Quadro 8.3.1, pág. 196.
 #'
 #' Filgueira, F. A. R. (1991). Interação genótipo ambiente em batata
 #'     (\emph{Solanum tuberosum} L. spp \emph{tuberosum}). Tese
@@ -1051,11 +1031,12 @@ NULL
 NULL
 
 #' @name BanzattoQd8.4.1
-#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos de Cebola
+#' @title Grupo de Ensaios de Competi\enc{çã}{ca}o de Gen\enc{ó}{o}tipos
+#'     de Cebola
 #' @description Grupo de experimentos de competição de genótipos de
 #'     cebola realizado por Santos (2003). O delineamento considerado em
 #'     cada ensaio não foi informado.
-#' @format Um \code{data.frame} com 60 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 60 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -1070,9 +1051,7 @@ NULL
 #'
 #' }
 #' @keywords GE
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.4.1,
-#'     pág. 200)
+#' @source BANZATTO; KRONKA (2013), Quadro 8.4.1, pág. 200.
 #'
 #' Santos, G. M. (2003). Adaptabilidade e estabilidade de genótipos de
 #'     cebola. Tese (Doutorado em Genética e Melhoramento de
@@ -1101,12 +1080,13 @@ NULL
 NULL
 
 #' @name BanzattoQd8.4.3
-#' @title Grupo de Experimentos de Aduba\enc{çã}{ca}o Nitrogenada em Milho
+#' @title Grupo de Experimentos de Aduba\enc{çã}{ca}o Nitrogenada em
+#'     Milho
 #' @description Dados referentes à produção de milho em grãos de ensaios
 #'     fatoriais \eqn{3^3} de adubação NPK na cultura do milho. Os
 #'     experimentos foram realizados em 8 locais. O delineamento
 #'     experimental não foi informado.
-#' @format Um \code{data.frame} com 24 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -1126,9 +1106,7 @@ NULL
 #' O \code{data.frame} possui um atributo com os quadrados médios
 #'     residuais em cada experimento.
 #' @keywords GE
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 8.4.3,
-#'     pág. 202)
+#' @source BANZATTO; KRONKA (2013), Quadro 8.4.3, pág. 202.
 #' @examples
 #'
 #' library(lattice)
@@ -1156,7 +1134,7 @@ NULL
 #'     de cultivares de milho. O experimento foi instalado em
 #'     delineamento de blocos casualizados. Além da produção em cada
 #'     parcela, contou-se o número de plantas por parcela (stand)
-#' @format Um \code{data.frame} com 24 observações e 6 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 6 variáveis, em que
 #'
 #' \describe{
 #'
@@ -1184,9 +1162,7 @@ NULL
 #'     níveis.
 #'
 #' @keywords DBC COV
-#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
-#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 9.2.1,
-#'     pág. 206)
+#' @source BANZATTO; KRONKA (2013), Quadro 9.2.1, pág. 206.
 #' @examples
 #'
 #' library(lattice)
@@ -1205,4 +1181,3 @@ NULL
 #'        ylab = expression("Produção"~(g~parcela^{-1})))
 #'
 NULL
-

R/Barbin.R

 #' @name BarbinEx1
-#' @title Altura de \emph{Pinus elliottii} aos 10 anos de idade
+#' @title Altura de \emph{Pinus elliottii} aos 10 Anos de Idade
 #' @description Os dados referem-se à altura (m) de \emph{Pinus
 #'     elliottii}, var. \emph{elliottii}, com 10 anos de idade plantadas
 #'     no espaçamento 2\eqn{\times}2,5 metros.
 #' @format Um vetor com 50 elementos de valor numérico.
 #' @keywords AAS
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 1, pág. 199)
+#' @source BARBIN (2013), Exercício 1, pág. 199.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -56,12 +54,13 @@
 NULL
 
 #' @name BarbinEx13
-#' @title Di\enc{â}{a}metro M\enc{é}{e}dio do Tronco de Esp\enc{é}{e}cies de Eucalipto
+#' @title Di\enc{â}{a}metro M\enc{é}{e}dio do Tronco de
+#'     Esp\enc{é}{e}cies de Eucalipto
 #' @description Diâmetro médio (cm), aos 5 anos de idade, de plantas
 #'     úteis da parcela de um ensaio fatorial 2 \eqn{\times} 4, em
 #'     blocos casualizados com 3 repetições, conduzido por H. A. Mello e
 #'     outros, Mogi-Guaçu (1966-1971).
-#' @format Um \code{data.frame} com 24 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -77,9 +76,7 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 13, pág. 206)
+#' @source BARBIN (2013), Exercício 13, pág. 206.
 #' @examples
 #'
 #' library(lattice)
@@ -103,7 +100,7 @@ NULL
 #' @description Ensaio fatorial de adubação NPK, fatorial \eqn{2^3}, com
 #'     resultados referentes à produção de milho (kg ha\eqn{^{-1}}),
 #'     conduzido em delineamento de blocos casualizados em Limoeiro, PE.
-#' @format Um \code{data.frame} com 24 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
@@ -121,10 +118,8 @@ NULL
 #' \item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords DBC FAT3
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 14, pág. 206)
+#' @keywords DBC FAT2K
+#' @source BARBIN (2013), Exercício 14, pág. 206.
 #' @examples
 #'
 #' library(lattice)
@@ -154,7 +149,7 @@ NULL
 #'     delineamento inteiramente casualizado, portanto este é o fator da
 #'     parcela. O corte é o fator da subparcela porque são medidas
 #'     repetidas (no tempo, inclusive) na mesma unidade experimental.
-#' @format Um \code{data.frame} com 40 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 40 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -173,10 +168,8 @@ NULL
 #'     hectare.}
 #'
 #' }
-#' @keywords PS FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 16, pág. 208)
+#' @keywords PS
+#' @source BARBIN (2013), Exercício 16, pág. 208.
 #' @examples
 #'
 #' library(lattice)
@@ -200,7 +193,8 @@ NULL
 NULL
 
 #' @name BarbinEx17
-#' @title Efeito do Espa\enc{ç}{c}amento na Produtividade de Laranjeira Val\enc{ê}{e}ncia
+#' @title Efeito do Espa\enc{ç}{c}amento na Produtividade de Laranjeira
+#'     Val\enc{ê}{e}ncia
 #' @description Dados de produtividade de laranja, em kg por planta, de
 #'     um ensaio em blocos casualizados estudando o efeito do
 #'     espaçamento de plantio de laranjeira Valência (clone novo) sobre
@@ -224,10 +218,8 @@ NULL
 #'     de duas plantas por parcela).}
 #'
 #' }
-#' @keywords DBC PS FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 17, pág. 209)
+#' @keywords PS
+#' @source BARBIN (2013), Exercício 17, pág. 209.
 #' @examples
 #'
 #' library(lattice)
@@ -257,7 +249,8 @@ NULL
 NULL
 
 #' @name BarbinEx18
-#' @title Altura de Plantas de Esp\enc{é}{e}cies de Eucalipto em V\enc{á}{a}rios Locais
+#' @title Altura de Plantas de Esp\enc{é}{e}cies de Eucalipto em
+#'     V\enc{á}{a}rios Locais
 #' @description Dados referentes à altura de plantas de eucalipto, com 3
 #'     anos de idade, em ensaios inteiramente casualizados estudando o
 #'     efeito da espécie de eucalipto em vários municípios (grupo de
@@ -282,10 +275,8 @@ NULL
 #'     idade.}
 #'
 #' }
-#' @keywords GE DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 18, pág. 210)
+#' @keywords GE
+#' @source BARBIN (2013), Exercício 18, pág. 210.
 #' @examples
 #'
 #' library(lattice)
@@ -304,25 +295,25 @@ NULL
 NULL
 
 #' @name BarbinEx3
-#' @title Podrid\enc{ã}{a}o Mole de Manga em Fun\enc{çã}{ca}o do Tratamento T\enc{é}{e}rmico
+#' @title Podrid\enc{ã}{a}o Mole de Manga em Fun\enc{çã}{ca}o do
+#'     Tratamento T\enc{é}{e}rmico
 #' @description Os dados referem-se as notas (médias de 6 frutos)
 #'     atribuídas a podridão mole de manga (fruto) sob diferentes
 #'     tratamentos térmicos, de um experimento inteiramente ao acaso
 #'     realizado pelo Prof. Vladimir R. Sampaio, do Departamento de
 #'     Horticultura, ESALQ-USP.
-#' @format Um \code{data.frame} com 28 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 28 observações e 2 variáveis, em que
 #' \describe{
 #'
-#' \item{\code{tterm}}{Fator categórico que indica o tratamento térmico.}
+#' \item{\code{tterm}}{Fator categórico que indica o tratamento
+#'     térmico.}
 #'
 #' \item{\code{nota}}{Nota atribuída a podridão mole de manga, valor
 #'     resultante da média de 6 frutos avaliados.}
 #'
 #' }
 #' @keywords DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 3, pág. 119)
+#' @source BARBIN (2013), Exercício 3, pág. 119.
 #' @examples
 #'
 #' library(lattice)
@@ -343,8 +334,7 @@ NULL
 #' @description Os dados referem-se à altura (cm) de mudas de
 #'     \emph{E. saligna} Sm., de um ensaio inteiramente casualizado, de
 #'     controle químico de "Damping-off" conduzido por Krugner (1971).
-#'
-#' @format Um \code{data.frame} com 45 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 45 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -360,9 +350,7 @@ NULL
 #'
 #' }
 #' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 8, pág. 202)
+#' @source BARBIN (2013), Exercício 8, pág. 202.
 #'
 #'  Krugner, T. L. Controle químico do "damping-off" em
 #'     eucalipto. Piracicaba, 1971. 60p. Dissertação (Mestrado) - Escola
@@ -387,14 +375,15 @@ NULL
 
 #' @name BarbinEx9
 #' @aliases BarbinEx10
-#' @title Ensaio de Competi\enc{çã}{ca}o de Clones de Laranja Pera-do-Rio
+#' @title Ensaio de Competi\enc{çã}{ca}o de Clones de Laranja
+#'     Pera-do-Rio
 #' @description Ensaio de competição de 13 clones de laranja Pera-do-Rio
 #'     onde foram obtidos os resultados de produção, em kg de frutos
 #'     planta, para o ano de 1987, em que as plantas estavam com 16 anos
 #'     de idade. O ensaio foi conduzido pelo Dr. Joaquim Teófilo Sobrino
 #'     em delineamento de blocos ao acaso na Estação Experimental de
 #'     Limeira, do IAC.
-#' @format Um \code{data.frame} com 78 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 78 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
@@ -413,9 +402,7 @@ NULL
 #' @details O dataset \code{BarbinEx10} resulta de uma agregação dos
 #'     dados do \code{BarbinEx9} que está disponível na seção Examples.
 #' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (Exercício 9, pág. 203)
+#' @source BARBIN (2013), Exercício 9, pág. 203.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -450,7 +437,7 @@ NULL
 #' @name BarbinPg104
 #' @title Produ\enc{çã}{ca}o de Cultivares de Cana-de-a\enc{çú}{cu}car
 #' @description Experimento em delineamento quadrado latino que avaliou
-#'     a produção de cultivares de cana-ade-açúcar.
+#'     a produção de cultivares de cana-de-açúcar.
 #' @format Um \code{data.frame} com 25 observações e 4 variáveis, em que
 #'
 #' \describe{
@@ -469,9 +456,7 @@ NULL
 #'
 #' }
 #' @keywords DQL
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 104)
+#' @source BARBIN (2013), pág. 104.
 #' @examples
 #'
 #' library(lattice)
@@ -503,7 +488,8 @@ NULL
 NULL
 
 #' @name BarbinPg114
-#' @title Influ\enc{ê}{e}ncia do Aparelho e Operador na Medi\enc{çã}{ca}o de \enc{Á}{A}rvores
+#' @title Influ\enc{ê}{e}ncia do Aparelho e Operador na
+#'     Medi\enc{çã}{ca}o de \enc{Á}{A}rvores
 #' @description Dados de um experimento fatorial 5 \eqn{\times} 4, em
 #'     delineamento de blocos casualizados, sobre e influência do
 #'     aparelho e do operador na determinação de altura de árvores, aos
@@ -520,7 +506,8 @@ NULL
 #'     sorteio continuava até as combinações fossem realizadas na
 #'     árvore, então passava-se para a próxima árvore. Evidentemente, a
 #'     medida feita com o trena ficava sempre para o final (testemunha).
-#' @format Um \code{data.frame} com 200 observações e 4 variáveis.
+#' @format Um \code{data.frame} com 200 observações e 4 variáveis, em
+#'     que
 #'
 #' \describe{
 #'
@@ -541,9 +528,7 @@ NULL
 #'
 #' }
 #' @keywords DBC FAT2
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 114)
+#' @source BARBIN (2013), pág. 114.
 #'
 #' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos
 #'     aparelhos e e influência do operador na medição de altura total
@@ -584,7 +569,7 @@ NULL
 #'     com dois níveis (fatorial \eqn{2^3}), na produção de café
 #'     coco. Os níveis dos fertilizantes foram codificados para 0 e 1 e
 #'     não foi informada as doses reais de cada um deles.
-#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
@@ -593,7 +578,8 @@ NULL
 #'
 #' \item{\code{P}}{Inteiro que codifica dois níveis de fósforo (0 e 1).}
 #'
-#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e 1).}
+#' \item{\code{K}}{Inteiro que codifica dois níveis de potássio (0 e
+#'     1).}
 #'
 #' \item{\code{bloc}}{Fator de níveis categóricos considerado para
 #'     controle local.}
@@ -603,10 +589,8 @@ NULL
 #'     m).}
 #'
 #' }
-#' @keywords DBC FAT3
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 125)
+#' @keywords DBC FAT2K
+#' @source BARBIN (2013), pág. 125).
 #' @examples
 #'
 #' library(lattice)
@@ -627,13 +611,14 @@ NULL
 NULL
 
 #' @name BarbinPg137
-#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de Algod\enc{ã}{a}o Herb\enc{á}{a}ceo
+#' @title Aduba\enc{çã}{ca}o NPK na Produ\enc{çã}{ca}o de
+#'     Algod\enc{ã}{a}o Herb\enc{á}{a}ceo
 #' @description Produção de algodão herbáceo de um ensaio de adubação
 #'     NPK \eqn{3^3} com confundimento (grupo W) de dois graus de
 #'     liberdade da interação tripla. Cada combinação NPK teve duas
 #'     repetições por bloco e o ensaio foi conduzido por Cavalcanti
 #'     (1977) em Pernambuco.
-#' @format Um \code{data.frame} com 54 observações e 6 variáveis.
+#' @format Um \code{data.frame} com 54 observações e 6 variáveis, em que
 #'     \describe{
 #'
 #' \item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na
@@ -655,10 +640,8 @@ NULL
 #'     ha\eqn{^{-1}}.}
 #'
 #' }
-#' @keywords DBC FAT3 confundimento
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 137)
+#' @keywords FAT3K confundimento
+#' @source BARBIN (2013), pág. 137.
 #'
 #' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão
 #'     (\emph{Gossypium hirsutum} L.) no Estado de
@@ -703,7 +686,8 @@ NULL
 NULL
 
 #' @name BarbinPg156
-#' @title Aplica\enc{çã}{ca}o de Aduba\enc{çã}{ca}o Fosfatada na Produ\enc{çã}{ca}o de Milho
+#' @title Aplica\enc{çã}{ca}o de Aduba\enc{çã}{ca}o Fosfatada na
+#'     Produ\enc{çã}{ca}o de Milho
 #' @description Dados de um ensaio de adubação fosfatada em milho,
 #'     realizado no esquema de parcelas subdivididas em delineamento de
 #'     blocos ao acaso, que avaliou o efeito da forma de aplicação da
@@ -726,10 +710,8 @@ NULL
 #' \item{\code{prod}}{Produção de milho (kg ha\eqn{^{-1}}).}
 #'
 #' }
-#' @keywords PS DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 156)
+#' @keywords PS
+#' @source BARBIN (2013), pág. 156.
 #' @examples
 #'
 #' library(lattice)
@@ -748,7 +730,8 @@ NULL
 NULL
 
 #' @name BarbinPg167
-#' @title Produ\enc{çã}{ca}o de Porta-enxertos para Laranjeira em V\enc{á}{a}rias Safras
+#' @title Produ\enc{çã}{ca}o de Porta-enxertos para Laranjeira em
+#'     V\enc{á}{a}rias Safras
 #' @description Dados de produção de laranja de um ensaio de competição
 #'     de porta-enxertos para laranjeira Valência realizado na Estação
 #'     Experimental de Limeira, em delineamento de blocos casualizados.
@@ -769,10 +752,8 @@ NULL
 #'     plantas por parcela.}
 #'
 #' }
-#' @keywords PS DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 167)
+#' @keywords PS
+#' @source BARBIN (2013), pág. 167.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -796,7 +777,8 @@ NULL
 NULL
 
 #' @name BarbinPg177
-#' @title Altura de Prog\enc{ê}{e}nies de \emph{E. grandis} em Tr\enc{ê}{e}s Locais
+#' @title Altura de Prog\enc{ê}{e}nies de \emph{E. grandis} em
+#'     Tr\enc{ê}{e}s Locais
 #' @description Dados de experimento que mediu a altura (m) de árvores
 #'     seis progênies de \emph{Eucaliptus grandis} em experimentos
 #'     instalados em 3 locais sob o delineamento de blocos casualizados.
@@ -817,10 +799,8 @@ NULL
 #'     anos de idade.}
 #'
 #' }
-#' @keywords GE DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 177)
+#' @keywords GE
+#' @source BARBIN (2013), pág. 177.
 #' @examples
 #'
 #' library(latticeExtra)
@@ -843,7 +823,7 @@ NULL
 #'     foram comparadas quatro cultivares de pêssego quando ao
 #'     enraizamento de estacas. Experimento foi instalado em
 #'     delineamento inteiramente casualizado.
-#' @format Um \code{data.frame} com 20 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
@@ -859,9 +839,7 @@ NULL
 #'     posição das observações consideradas perdidas para se ilustrar a
 #'     análise do experimento com número não igual de repetições.
 #' @keywords DIC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 25)
+#' @source BARBIN (2013), pág. 25.
 #'
 #' Sambão, J. C., Sampaio, V. R., Barbin, D. (1982). Enraizamento de
 #'     estacas herbáceas de pessegueiro (\emph{Prunus persica}
@@ -886,7 +864,7 @@ NULL
 #' @description Dados de produção de laranjeira aos 12 anos de idade sob
 #'     diferentes porta-enxertos. O experimento foi instalado em
 #'     delineamento de blocos casualizados.
-#' @format Um \code{data.frame} com 27 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 27 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
@@ -904,9 +882,7 @@ NULL
 #'     consideradas como perdidas para ilustrar como fazer a análise do
 #'     experimento desbalanceado.
 #' @keywords DBC
-#' @source Barbin, D. (2013). Planejamento e Análise Estatística de
-#'     Experimentos Agronômicos (2nd ed.). Londrina, PR:
-#'     Mecenas. (pág. 72)
+#' @source BARBIN (2013), pág. 72.
 #'
 #' Teófilo Sobrinho, J. (1972). Comportamento da laranjeira valência
 #'     (\emph{Citrus sinensis} L., Osbeck) sob diferentes
@@ -926,4 +902,3 @@ NULL
 #'        ylab = "Número médio de frutos por planta")
 #'
 NULL
-

R/BracarensePg114.R

+#' @name BracarensePg114
+#' @title Intenções de Voto
+#' @description Pesquisas de intençõeses de voto feitas para eleição da
+#'     Bahia em 2006, em diferentes datas antes da eleição.
+#' @format Um \code{data.frame} com 8 linhas e 4 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+#'     voto ou do resultado final das eleições.}
+#'
+#' \item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+#'
+#' \item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+#'
+#' \item{\code{OC}}{Porcentagem de votos para outros candidatos.}
+#'
+#' }
+#' @keywords estat?stica b?sica
+#' @source BRACARENSE (2009), exemplo p?gina 114.
+#' @examples
+#'
+#' data(BracarensePg114)
+#' str(BracarensePg114)
+#'
+#' # Porque algumas somas passam de 100%?
+#' rowSums(BracarensePg114[, -1])
+#'
+#' BracarensePg114$Data <- factor(BracarensePg114$Data,
+#'                                levels = as.character(BracarensePg114$Data))
+#'
+#' dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
+#'
+#' barplot(dados,
+#'         names.arg = rep(c("Paulo Souto",
+#'                           "Jaques Wagner"), each = 2),
+#'         col = rep(c("red", "pink"), times = 2),
+#'         main = paste0("Intenções de Voto em 18/5\n",
+#'                       "Comparadas com o Resultado Final da Eleições"),
+#'         ylim = c(0, 80),
+#'         legend = c("18/5", "Resultado Oficial"))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+#'
+#' barchart(~PS + JW + OC | Data,
+#'          data = BracarensePg114,
+#'          as.table = TRUE)
+#'
+#' xyplot(PS + JW + OC ~ Data,
+#'        data = BracarensePg114,
+#'        xlab = "Datas das pesquisas e resultado final",
+#'        ylab = "Proporção de votos (%)",
+#'        type = "o",
+#'        pch = 19) +
+#'     layer(panel.text(x = tapply(x, groups, tail, 1),
+#'                      y = tapply(y, groups, tail, 1),
+#'                      labels = levels(groups),
+#'                      pos = 4, cex = 1.1))
+#'
+NULL

R/BracarensePg177.R

+#' @name BracarensePg177
+#' @title População Recenseada e Estimada em 2007
+#' @description População recenseada e estimada, segundo as unidades da
+#'     federação (2007).
+#' @format Um \code{data.frame} com 27 linhas e 3 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Região a qual pertence o estado.}
+#'
+#' \item{\code{Est}}{Estado do Brasil.}
+#'
+#' \item{\code{Pop}}{População do Estado.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 177.
+#' @examples
+#'
+#' data(BracarensePg177)
+#' str(BracarensePg177)
+#'
+#' dados  <- aggregate(Pop ~ Reg,
+#'                     data = BracarensePg177,
+#'                     FUN = sum)
+#' dados
+#'
+#' barplot(dados$Pop/sum(dados$Pop),
+#'         names.arg = dados$Reg,
+#'         col = rainbow(5),
+#'         main = "Porcentagem da População Brasileira por Região")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' # Gráfico de pareto da distribuição da população.
+#' barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+#'          data = BracarensePg177,
+#'          ylim = c(0, NA),
+#'          scales = list(x = list(rot = 90)),
+#'          xlab = "Estados brasileiros",
+#'          ylab = "Poporção da população total") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.2f", y),
+#'                      cex = 0.8,
+#'                      adj = c(-0.25, 0.5),
+#'                      srt = 90))
+#'
+NULL

R/BracarensePg184.R

+#' @name BracarensePg184
+#' @title Taxa de Fecundidade por Grupos de Anos de Estudo da Mulher
+#' @description Taxa de fecundidade total por grupos de anos de estudos
+#'     da mulher, por regiões.
+#' @format Um \code{data.frame} com 6 linhas e 5 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{de0a3}}{Taxa de fecundidade de mulheres com até 3 anos de
+#'     estudo.}
+#'
+#' \item{\code{de4a7}}{taxa de fecundidade de mulheres de 4 a 7 anos de
+#'     estudo.}
+#'
+#' \item{\code{de8acima}}{Taxa de fecundidade de mulheres com 8 anos ou
+#'     mais de estudo.}
+#'
+#' \item{\code{Total}}{Taxa de fecundidade total.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 184.
+#' @examples
+#'
+#' data(BracarensePg184)
+#' str(BracarensePg184)
+#'
+#' names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+#'
+#' barplot(BracarensePg184$Total,
+#'         ylim = c(0, 3),
+#'         names.arg = BracarensePg184$Reg,
+#'         main = "Taxa de Fecundidade Por Região",
+#'         col = rainbow(6))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+#'          data = BracarensePg184,
+#'          auto.key = list(columns = 4),
+#'          ylab = "Taxa de fecundidade",
+#'          xlab = "Regiões")
+#'
+NULL

R/BracarensePg189.R

+#' @name BracarensePg189
+#' @title Razão de Sexo um Unidades Regiões do Brasil
+#' @description Razão entre os sexos das pessoas de 60, 65 e 70 anos ou
+#'     mais de idade, segundo a Região Nordeste, Unidades da Federação e
+#'     Regiões metropolitanas em 2006.
+#' @format Um \code{data.frame} com 12 linhas e 4 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{UF}}{Unidades da Federação.}
+#'
+#' \item{\code{60a}}{Razão entre os sexos para pessoas de 60 anos ou
+#'     mais.}
+#'
+#' \item{\code{65a}}{Razão entre os sexos para pessoas de 65 anos ou
+#'     mais.}
+#'
+#' \item{\code{70a}}{Razão entre os sexos para pessoas de 70 anos ou
+#'     mais.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 189.
+#' @examples
+#'
+#' data(BracarensePg189)
+#' str(BracarensePg189)
+#'
+#' barplot(BracarensePg189$X60a[1:5],
+#'         names.arg = BracarensePg189$UF[1:5],
+#'         ylim = c(0, 100),
+#'         col = "yellow",
+#'         main = "Razão de sexo de pessoas de 60 anos ou mais")
+#'
+#' library(lattice)
+#'
+#' barchart(X60a + X65a + X70a ~ UF,
+#'          data = BracarensePg189,
+#'          auto.key = list(columns = 3))
+#'
+NULL

R/BracarensePg194.R

+#' @name BracarensePg194
+#' @title Índices de Urbanização
+#' @description Índices de Urbanização por região no Brasil nos anos
+#'     1950, 1970 e 2000.
+#' @format Um \code{data.frame} com 15 linhas e 3 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{Ano}}{Ano em que o índice foi registrado.}
+#'
+#' \item{\code{Ind}}{Índice de urbanização.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 194.
+#' @examples
+#'
+#' data(BracarensePg194)
+#' str(BracarensePg194)
+#'
+#' library(lattice)
+#'
+#' xyplot(Ind ~ Ano,
+#'        groups = Reg,
+#'        data = BracarensePg194,
+#'        type = "o",
+#'        auto.key = list(corner = c(0.05, 0.95),
+#'                        title = "Regiões",
+#'                        cex.title = 1.1),
+#'        xlab = "Anos",
+#'        ylab = "Índice de urbanização")
+#'
+NULL

R/BracarensePg205.R

+#' @name BracarensePg205
+#' @title Índices de Desenvolvimento Humano
+#' @description Valor do IDH dos 20 países com maiores índices.
+#' @format Um \code{data.frame} com 20 linhas e 2 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{Nomes dos Países.}
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 205.
+#' @examples
+#'
+#' data(BracarensePg205)
+#' str(BracarensePg205)
+#'
+#' boxplot(BracarensePg205$IDH,
+#'         col = "pink",
+#'         ylab = "Índice de Desenvolvimento Humano (20 Países)")
+#' rug(BracarensePg205$IDH, side = 2)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg205,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (20 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL

R/BracarensePg206.R

+#' @name BracarensePg206
+#' @title Índices de Desenvolvimento Humano
+#' @description Valor do IDH dos 10 países com os menores índices.
+#' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{Nomes dos Países.}
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 206.
+#' @examples
+#'
+#' data(BracarensePg206)
+#' str(BracarensePg206)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg206,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (10 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL

R/BracarensePg207.R

+#' @name BracarensePg207
+#' @title Índices de Gini
+#' @description Valor do índice de Gini dos 10 Países com pior
+#'     distribuição de renda.
+#' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{Nomes dos Países.}
+#'
+#' \item{\code{Ind}}{Índice de Gini.}
+#'
+#' }
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 207.
+#' @examples
+#'
+#' data(BracarensePg207)
+#' str(BracarensePg207)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, Ind) ~ Ind,
+#'         data = BracarensePg207,
+#'         pch = 19,
+#'         xlab = "Índice de Gini") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.1f", x),
+#'                      pos = 4))
+#'
+NULL

R/BracarensePg27.R

+#' @name BracarensePg27
+#' @title Relação dos Funcionários de uma Empresa Imaginária
+#' @description Relação dos funcionários constando sexo, idade, salário
+#'     e setor.
+#' @format Um \code{data.frame} com 40 linhas e 4 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Sexo}}{Sexo do trabalhador.}
+#'
+#' \item{\code{Idade}}{Idade do trabalhador, em anos.}
+#'
+#' \item{\code{Salario}}{Salário recebido.}
+#'
+#' \item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
+#'     \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
+#'     \code{adm} - administrativo, \code{ger} - gerência.}
+#'
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 27.
+#' @examples
+#'
+#' data(BracarensePg27)
+#' str(BracarensePg27)
+#'
+#' tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
+#' mosaicplot(tb)
+#'
+#' library(lattice)
+#'
+#' xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
+#'
+NULL

R/BracarensePg41.R

+#' @name BracarensePg41
+#' @title Peso de Recém Nascidos
+#' @description Os dados a seguir são relativos ao peso, ao nascer (em
+#'     gramas), de recém nascidos com síndrome de desconforto idiopático
+#'     grave.
+#' @format Um \code{vetor} com 50 valores de peso em gramas.
+#' @keywords sociometria
+#' @source BRACARENSE (2009), Exercício 1, página 41.
+#' @examples
+#'
+#' data(BracarensePg41)
+#' str(BracarensePg41)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg41) + layer(panel.rug(x)),
+#'   densityplot(~BracarensePg41, plot.points = "rug"),
+#'   ecdfplot(~BracarensePg41), layout = c(NA, 1))
+#'
+NULL

R/BracarensePg43.R

+#' @name BracarensePg43
+#' @title Pessoas Condenadas Por Embriaguez
+#' @description Os dados a seguir foram publicados pela Unidade de
+#'     Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
+#'     mostra o número de pessoas condenadas por embriaguez nos
+#'     tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
+#'     primeiro de janeiro a 27 de junho de 1970, classificados segundo
+#'     idade e sexo.
+#' @format Um \code{data.frame} com 5 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{NH}}{Número de Homens.}
+#'
+#' \item{\code{NM}}{Número de Mulheres.}
+#'
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE(2009), Exercício 2, página 43.
+#' @examples
+#'
+#' data(BracarensePg43)
+#' str(BracarensePg43)
+#' levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
+#'
+#' tb <- as.matrix(BracarensePg43[, -1])
+#' rownames(tb) <- BracarensePg43[, 1]
+#'
+#' mosaicplot(tb, main = NULL)
+#'
+#' barplot(tb,
+#'         beside = TRUE,
+#'         ylab = "Número de pessoas condenados por embriaguez")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' desloc <- function(x, groups, box.ratio, subscripts) {
+#'     d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
+#'     g <- (as.numeric(groups[subscripts]) - 1)
+#'     g <- (g - median(g)) * d
+#'     return(as.integer(x[subscripts]) + g)
+#' }
+#'
+#' barchart(tb,
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          ylab = "Número de pessoas condenados por embriaguez") +
+#'     layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#'                      y = y,
+#'                      label = y,
+#'                      pos = 3))
+#'
+#' barchart(t(tb),
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          ylab = "Número de pessoas condenados por embriaguez") +
+#'     layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#'                      y = y,
+#'                      label = y,
+#'                      pos = 3))
+#'
+NULL

R/BracarensePg44.R

+#' @name BracarensePg44
+#' @title Altura de Mulheres Idosas
+#' @description Os dados a seguir são de altura (em centímetros) de uma
+#'     amostra de 351 mulheres idosas selecionadas aleatoriamente de uma
+#'     comunidade para um estudo de osteoporose.
+#' @format Um \code{vetor} com 351 valures de altura, em cm.
+#' @keywords sociometria
+#' @source BRACARENSE (2009), Exercício 3, página 44.
+#' @examples
+#'
+#' data(BracarensePg44)
+#' str(BracarensePg44)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg44) + layer(panel.rug(x)),
+#'   densityplot(~BracarensePg44, plot.points = "rug"),
+#'   ecdfplot(~BracarensePg44), layout = c(NA, 1))
+#'
+NULL

R/BracarensePg78.R

+#' @name BracarensePg78
+#' @title Notas Padronizadas por Matéria
+#' @description Notas padronizadas de um candidato, por matéria.
+#' @format Um \code{data.frame} com 24 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Mate}}{Matéria.}
+#
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 78.
+#' @examples
+#'
+#' data(BracarensePg78)
+#' str(BracarensePg78)
+#'
+#' BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+#' levels(BracarensePg78$Mate)
+#'
+#' medias <- aggregate(Nota ~ Mate,
+#'                     data = BracarensePg78,
+#'                     FUN = mean)
+#' medias
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(Nota ~ Mate, data = medias) +
+#'     layer(panel.text(x = x, y = y, labels = y, pos = 3))
+#'
+#' xyplot(Nota ~ Serie,
+#'        groups = Mate,
+#'        data = BracarensePg78,
+#'        type = "o",
+#'        auto.key = list(space = "right",
+#'                        title = "Matéria",
+#'                        cex.title = 1.1))
+#'
+NULL

R/BracarensePg79.R

+#' @name BracarensePg79
+#' @title Peso de Recém Nascidos
+#' @description Peso, em gramas, de 44 bebês recém nascidos em um
+#'     período de 24 horas em um hospital de Brisbane na Austrália.
+#' @format Um \code{vetor} com 44 valores de peso.
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), atividade 1, página 79.
+#' @examples
+#'
+#' data(BracarensePg79)
+#' str(BracarensePg79)
+#'
+#' summary(BracarensePg79)
+#'
+#' xlim <- extendrange(BracarensePg79, f = 0.15)
+#'
+#' nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+#'              height = c(1, 3))
+#' par(mar = c(1.1, 4.1, 3.1, 2.1))
+#' boxplot(BracarensePg79,
+#'         horizontal = TRUE,
+#'         col = "green1",
+#'         ylim = xlim,
+#'         axes = FALSE,
+#'         frame = FALSE)
+#' axis(side = 3)
+#' rug(BracarensePg79, side = 3, ticksize = 0.1)
+#' par(mar = c(4.1, 4.1, 1.1, 2.1))
+#' hist(BracarensePg79,
+#'      xlim = xlim,
+#'      main = NULL,
+#'      col = "pink",
+#'      xlab = "Peso de bebês recém nascidos (g)")
+#' abline(v = median(BracarensePg79), col = 4)
+#' rug(BracarensePg79, side = 1)
+#' layout(1)
+#'
+NULL

R/CamposEx2.3.6.2.R

+#' @name CamposEx2.3.6.2
+#' @title Ensaio com Bananeiras
+#' @description Ensaio com bananeiras, realizado pelo Dr. Jairo Ribeiro
+#'     de Mattos, da E.S.A. "Luiz de Queiroz", em Piracicaba, SP,
+#'     obtendo o peso médio em Kg por cacho de banana.
+#' @format Um vetor com 25 observações.
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 2, seção 2.3.6, pág. 47.
+#' @examples
+#'
+#' data(CamposEx2.3.6.2)
+#' ks.test(CamposEx2.3.6.2, "pnorm", mean = 20, sd = sqrt(5.25))
+#'
+NULL

R/CamposEx2.3.6.3.R

+#' @name CamposEx2.3.6.3
+#' @title Dados Fictícios para Distribuicão de Poisson.
+#' @description Verificar se os dados seguem uma distribuicão de
+#'     Poisson.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Xi}}{ Valor de uma variável genérica. }
+#'
+#' \item{\code{fi}}{ Frequência de Xi. }
+#'
+#' }
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 3, seção 2.3.6, pág. 51.
+#' @examples
+#'
+#' data(CamposEx2.3.6.3)
+#' # Tamanho da amostra
+#' n <- sum(CamposEx2.3.6.3$fi)
+#' # Função de distribuição acumulada considerando Poisson(1.2)
+#' FXi <- cumsum(dpois(CamposEx2.3.6.3$Xi, lambda = 1.2))
+#' # Função empírica de distribuição
+#' SXi <- cumsum(CamposEx2.3.6.3$fi)/n
+#' # Distâncias (absolutas) entre FXi e SXi
+#' FXi_SXi <- abs(FXi - SXi)
+#' # Tabela completa
+#' cbind(CamposEx2.3.6.3, FXi, SXi, FXi_SXi)
+#' # Calcula D
+#' D <- max(FXi_SXi)
+#' # Não existe forma fechada para calcular o p-valor, por isso o D deve
+#' # ser comparado com valores tabelados
+#'
+NULL

R/CamposEx2.3.6.4.R

+#' @name CamposEx2.3.6.4
+#' @title Produção de 50 Experimentos Fatoriais 3^3 de Adubação de
+#'     Milho.
+#' @description Produção de 50 experimentos fatoriais 3^3 de adubação de
+#'     milho, realizados em Ribeirão Preto, Estado de São Paulo, pelo
+#'     Dr. Hermano Vaz de Arruda, Pesquisador-Chefe do Instituto
+#'     Biológico do Estado de São Paulo, e que foram reunidos em cinco
+#'     grupos de dez experimentos cada.
+#' @format Um \code{data.frame} com 27 observações e 5 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Grupo1}}{ Produção média de milho no Grupo 1 }
+#'
+#' \item{\code{Grupo2}}{ Produção média de milho no Grupo 2 }
+#'
+#' \item{\code{Grupo3}}{ Produção média de milho no Grupo 3 }
+#'
+#' \item{\code{Grupo4}}{ Produção média de milho no Grupo 4 }
+#'
+#' \item{\code{Grupo5}}{ Produção média de milho no Grupo 5 }
+#'
+#' }
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 4, seção 2.3.6, pág. 53.
+#' @examples
+#'
+#' data(CamposEx2.3.6.4)
+#' str(CamposEx2.3.6.4)
+#' boxplot(values ~ ind, data = stack(CamposEx2.3.6.4))
+#'
+NULL

R/CamposEx2.5.1.R

+#' @name CamposEx2.5.1
+#' @title Dados Genericos para Teste de Cram\enc{é}{e}r Von Mises.
+#' @description Estudo de dados genericos através do Teste de Cramér-von Mises
+#' @format Um vetor com 8 observações.
+#' @keywords NP
+#' @source CAMPOS (1983), Exemplo 1, seção 2.5.1, pág. 60.
+#' @examples
+#'
+#' data(CamposEx2.5.1)
+#' str(CamposEx2.5.1)
+#'
+NULL