Modifica dados em Pg90 para adequá-los conforme Tb2.32

Ambos datasets referem-se a pesos de bezerros, padronizou-se o nome das
colunas e os níveis (com primeira maiúscula), além disso adiciou-se o
@seealso e uma ilustração conjunta nos exemplos.

R/AndradePg90.R

+#' @name AndradePg90
+#' @title Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)
+#' @description Pesos ao nascer de 24 bezerros machos das raças
+#'     Charoleza e Gir.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
+#'     dos bezerros (Charoleza e Gir).}
+#'
+#' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.32}}
+#' @keywords AASI
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Página 90)
+#' @examples
+#'
+#' data(AndradePg90)
+#' str(AndradePg90)
+#'
+#' library(lattice)
+#' densityplot(~peso, groups = raca,
+#'             data = AndradePg90,
+#'             auto.key = list(
+#'                 corner = c(0.1, 0.9),
+#'                 title = "Raça do bezerro",
+#'                 cex.title = 1
+#'             ))
+#'
+#' # Agrupando dados de AndradeTb2.32, um estudo similar.
+#' # help(AndradeTb2.32)
+#'
+#' da <- rbind(AndradePg90, AndradeTb2.32)
+#' bwplot(peso ~ raca,
+#'        data = da,
+#'        xlab = "Raça do Bezerro",
+#'        ylab = "Peso (em kg)")
+#'
+NULL

R/AndradeTb2.32.R

 #' @name AndradeTb2.32
-#' @title Pesos de Bezerros Recém-Nascidos
-#' @description Pesos, em kg, ao nascer de 10 bezerros da raça de gado
-#'     Crioula, e 10 da raça Nelore.
+#' @title Pesos de Bezerros Recém-Nascidos (Crioula e Nelore)
+#' @description Pesos, em quilogramas, ao nascer de bezerros da raça de
+#'     gado Crioula e Nelore.
 #' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
-#'     dos bezerros recém-nascidos.}
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+#'     recém-nascidos.}
 #'
 #' \item{\code{peso}}{Peso, em kg, do bezerro recém-nascido.}
 #'
 #' }
-#' @keywords AAS
+#' @seealso \code{\link{AndradePg90}}
+#' @keywords AASI
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 #'     ciências agrárias e biológicas com noções de experimentação (2nd
 #'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.32, pág. 113)
@@ -21,9 +22,23 @@
 #' data(AndradeTb2.32)
 #' str(AndradeTb2.32)
 #'
+#' with(AndradeTb2.32, by(peso, raca, summary))
+#'
 #' library(lattice)
+#' densityplot(~peso, groups = raca,
+#'             data = AndradePg90,
+#'             auto.key = list(
+#'                 corner = c(0.1, 0.9),
+#'                 title = "Raça do bezerro",
+#'                 cex.title = 1
+#'             ))
+#'
+#' # Agrupando dados de AndradePg90, um estudo similar.
+#' # help(AndradePg90)
+#'
+#' da <- rbind(AndradeTb2.32, AndradePg90)
 #' bwplot(peso ~ raca,
-#'        data = AndradeTb2.32,
+#'        data = da,
 #'        xlab = "Raça do Bezerro",
 #'        ylab = "Peso (em kg)")
 #'

data-raw/AndradePg90.txt

+raca	peso
+Charoleza	47
+Charoleza	45
+Charoleza	37
+Charoleza	41
+Charoleza	46
+Charoleza	47
+Charoleza	34
+Charoleza	25
+Charoleza	40
+Charoleza	45
+Charoleza	48
+Charoleza	40
+Gir	40
+Gir	43
+Gir	44
+Gir	46
+Gir	48
+Gir	51
+Gir	54
+Gir	55
+Gir	56
+Gir	57
+Gir	55
+Gir	54