Corrige documentaçao.

R/RamalhoEg7.8.R

 #' @name RamalhoEg7.8
-#' @title Produção de grãos de feijão
+#' @title Produção de Grãos de Cruzamentos Feijão
 #' @description Experimento referente à produção de grãos de feijão
 #'     obtida na avaliação de 24 famílias \eqn{F_{5}} do cruzamento
 #'     Jalo x Small White, cujos dados foram obtidos por Souza (1991).
@@ -24,13 +24,20 @@
 #' @keywords DBC
 #' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
 #'     Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#'     Lavras, MG: UFLA. (pg 110).
+#'     Lavras, MG: UFLA. (Exemplo 7.8, pág 110).
 #' @examples
 #'
 #' library(lattice)
 #'
-#' boxplot(prod ~ plant, data = RamalhoEg7.8,
-#'     xlab = "Planta",
-#'     ylab = "Produção de grãos")
+#' xtabs(~fam + rept, data = RamalhoEg7.8)
+#'
+#' ps <- list(box.rectangle = list(col = 1, fill = c("gray90")),
+#'            box.umbrella = list(col = 1, lty = 1),
+#'            plot.symbol = list(col = 1, cex = 0.7))
+#'
+#' bwplot(prod ~ fam, data = RamalhoEg7.8,
+#'        horizontal = FALSE, pch = "|",
+#'        xlab = "Família", ylab = "Produção de grãos",
+#'        par.settings = ps)
 #'
 NULL

R/RamalhoEx7.10.R

 #' @name RamalhoEx7.10
-#' @title Produção de arroz
-#' @description Experimento referente a produção de arroz obtida na 
+#' @title Produção de Arroz em 18 Populações na F2
+#' @description Experimento referente à produção de arroz obtida na
 #'     avaliação de 18 populações \eqn{F_{2}} e duas linhagens
 #'     utilizadas como testemunhas. O Experimento foi realizado em
 #'     blocos casualizados.
@@ -27,9 +27,19 @@
 #'
 #' library(lattice)
 #'
-#' boxplot(prod ~ plant, data = RamalhoEx7.10,
-#'         ylim = c(0, 45),
-#'         xlab = "Plantas de arroz",
-#'         ylab = "Produção")
+#' data(RamalhoEx7.10)
+#'
+#' str(RamalhoEx7.10)
+#'
+#' xtabs(~pop + rept, data = RamalhoEx7.10)
+#'
+#' ps <- list(box.rectangle = list(col = 1, fill = c("gray90")),
+#'            box.umbrella = list(col = 1, lty = 1),
+#'            plot.symbol = list(col = 1, cex = 0.7))
+#'
+#' bwplot(prod ~ pop, data = RamalhoEx7.10,
+#'        horizontal = FALSE, pch = "|",
+#'        xlab = "População", ylab = "Produção de grãos",
+#'        par.settings = ps)
 #'
 NULL

R/RamalhoTb7.1.R

 #' @name RamalhoTb7.1
-#' @title Volume de madeira por árvore
+#' @title Volume de Madeira em Progênies de Eucalipto
 #' @description Pesquisa sobre avaliação de progênies de
 #'     \emph{Eucaliptus camaldulensis}, referente ao volume de madeira
 #'     por árvore, cujos dados foram obtidos pela V. \& M. Florestal
@@ -11,27 +11,32 @@
 #'
 #' \item{\code{prog}}{Progênie de \emph{Eucaliptus camaldulensis}.}
 #'
-#' \item{\code{rept}}{Número inteiro que indica as repetições de medida 
-#'     do volume de cada árvore.}
+#' \item{\code{rept}}{Número inteiro que indica o número da parcela com
+#'     árvores de cada progênie.}
 #'
-#' \item{\code{plant}}{Inteiro que representa as árvores no 
-#'     experimento.}
+#' \item{\code{plant}}{Inteiro que representa as árvores no parcela.}
 #'
-#' \item{\code{vol}}{Volume de madeira por árvore, medido em 
-#'     \eqn{m^3 x 10^4}}
+#' \item{\code{vol}}{Volume de madeira por árvore, medido em m\eqn{^3
+#'     \times 10^4}}
 #'
 #' }
 #' @keywords DBC
 #' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
 #'     Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#'     Lavras, MG: UFLA. (pg 102).
+#'     Lavras, MG: UFLA. (Tabela 7.1, pág 102).
 #' @examples
 #'
 #' library(lattice)
 #'
+#' data(RamalhoTb7.1)
+#'
+#' str(RamalhoTb7.1)
+#'
+#' xtabs(~prog + rept, data = RamalhoTb7.1)
+#'
 #' xyplot(vol ~ plant | rept, data = RamalhoTb7.1,
 #'        jitter.x = TRUE,
-#'     xlab = "Árvore", 
+#'        xlab = "Progênie",
 #'        ylab = "Volume")
 #'
 NULL