diff --git a/R/RamalhoEg7.8.R b/R/RamalhoEg7.8.R
index 41fb1d19ed16cdda681d8c48c8568d47a7d02e31..d04a3d42cfab3001139e52a0a04784be9c272e13 100644
--- a/R/RamalhoEg7.8.R
+++ b/R/RamalhoEg7.8.R
@@ -1,21 +1,21 @@
 #' @name RamalhoEg7.8
-#' @title Produção de grãos de 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 
+#' @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).
 #'     Experimento realizado em blocos incompletos.
-#' @format Um \code{data.frame} com 240 observações e 4 variáveis, em 
+#' @format Um \code{data.frame} com 240 observações e 4 variáveis, em
 #'     que
 #'
 #' \describe{
 #'
-#' \item{\code{fam}}{Família \eqn{F_{5}} do cruzamento Jalo x Small 
+#' \item{\code{fam}}{Família \eqn{F_{5}} do cruzamento Jalo x Small
 #'     White.}
 #'
-#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou 
+#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou
 #'     segunda repetição.}
 #'
-#' \item{\code{plant}}{Inteiro que representa os grãos de feijão no 
+#' \item{\code{plant}}{Inteiro que representa os grãos de feijão no
 #'     experimento.}
 #'
 #' \item{\code{prod}}{Produção de grãos de feijão, em g/planta.}
@@ -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
diff --git a/R/RamalhoEx7.10.R b/R/RamalhoEx7.10.R
index e16ef94be3957999cc0fc5929cb8a86bd1f355f3..3947242d97553c6e3e2c4d94c1020ae10797271a 100644
--- a/R/RamalhoEx7.10.R
+++ b/R/RamalhoEx7.10.R
@@ -1,17 +1,17 @@
 #' @name RamalhoEx7.10
-#' @title Produção de arroz
-#' @description Experimento referente a 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 
+#' @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.
-#' @format Um \code{data.frame} com 540 observações e 4 variáveis, em 
+#' @format Um \code{data.frame} com 540 observações e 4 variáveis, em
 #'     que
 #'
 #' \describe{
 #'
 #' \item{\code{pop}}{População \eqn{F_{2}} de arroz.}
 #'
-#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou 
+#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou
 #'     segunda linhagem.}
 #'
 #' \item{\code{plant}}{Inteiro que representa o arroz no experimento.}
@@ -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
diff --git a/R/RamalhoTb7.1.R b/R/RamalhoTb7.1.R
index fe46dae9942400a7c38b52af5c4b7025e23e2891..6382291c41970e149ae979d126957e3c67491e36 100644
--- a/R/RamalhoTb7.1.R
+++ b/R/RamalhoTb7.1.R
@@ -1,37 +1,42 @@
 #' @name RamalhoTb7.1
-#' @title Volume de madeira por árvore
-#' @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 
+#' @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
 #'     Ltda. Experimento realizado em blocos casualizados.
-#' @format Um \code{data.frame} com 180 observações e 4 variáveis, em 
+#' @format Um \code{data.frame} com 180 observações e 4 variáveis, em
 #'     que
 #'
 #' \describe{
 #'
 #' \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", 
-#'     ylab = "Volume")
+#'        jitter.x = TRUE,
+#'        xlab = "Progênie",
+#'        ylab = "Volume")
 #'
 NULL