Correçoes no Tb8.12.

R/RamalhoTb8.12.R

 #' @name RamalhoTb8.12
-#' @title Produção média de grãos de café-cereja
+#' @title Produção Média de Grãos de Café-cereja
 #' @description Experimento da produção média de grãos de café-cereja,
 #'     dados obtidos por Mendes (1994). Delineamento em blocos
 #'     casualizados.
-#' @format Um \code{data.frame} com 120 observações e 4 variáveis, em que
+#' @format Um \code{data.frame} com 120 observações e 4 variáveis, em
+#'     que
 #'
 #' \describe{
 #'
-#' \item{\code{prog}}{Progênie do cultivar Icatu.}
+#' \item{\code{prog}}{Fator que distingue as progênies do cultivar de
+#'     café Icatu.}
 #'
 #' \item{\code{colh}}{Fator de 3 níveis, colheitas realizadas em
 #'     anos sucessivos.}
@@ -20,19 +22,23 @@
 #'
 #' }
 #' @keywords DBC
-#' @source Ramalho, M. A. P., Ferreira, D. F. & Oliveira, A. C. (2005).
+#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
 #'     Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#'     Lavras: UFLA. (pg 128)
+#'     Lavras: UFLA. (Tabela 8.12, pág. 128)
 #' @examples
 #'
 #' library(lattice)
 #'
-#' xyplot(prod ~ rept | colh, data = RamalhoTb8.12,
+#' data(RamalhoTb8.12)
+#'
+#' str(RamalhoTb8.12)
+#'
+#' xyplot(prod ~ prog | colh, data = RamalhoTb8.12,
 #'        jitter.x = TRUE,
 #'        xlab = "Repetição",
 #'        ylab = "Produção")
 #'
-#' aggregate(prod ~ rept,  data = RamalhoTb8.12,
+#' aggregate(prod ~ prog,  data = RamalhoTb8.12,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
 NULL