diff --git a/R/ZimmermannTb12.27.R b/R/ZimmermannTb12.27.R
index 053b1f8a7bae58bd6dee6f7350fa28d37ad95c3d..e3c8c5a373e12d9ed5ce71bdb45e58e51e028584 100644
--- a/R/ZimmermannTb12.27.R
+++ b/R/ZimmermannTb12.27.R
@@ -1,19 +1,21 @@
 #' @name ZimmermannTb12.27
-#' @title Dados de produtividade de espiguetas
-#' @description Ensaio 2 de um experimento em DQL, que avaliou a resistência
-#'      a insetos em seis cultivares de arroz, sendo uma delas comum ao 
-#'      ensaio 1. Os dados são de produtividade de espiguetas, em gramas.  
+#' @title Produtividade de arroz pela resistência a insetos
+#' @description Ensaio 2 de um experimento em delineamento quadrado
+#'     latino, que avaliou a resistência a insetos em seis cultivares de
+#'     arroz, sendo uma delas comum ao ensaio 1. Os dados são de
+#'     produtividade de espiguetas, em gramas.
 #' @format Um \code{data.frame} com 36 observações e 4 variáveis
 #'
 #' \describe{
 #'
-#' \item{linha}{Fator de níveis numéricos. Indica em que linha do quadrado a 
-#'      UE se encontra.}
+#' \item{linha}{Fator de níveis nominais. Indica em que linha do
+#'      quadrado latino a unidade experimental está.}
 #'
-#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do quadrado a
-#'      UE se encontra}
+#' \item{coluna}{Fator de níveis nominais. Indica em que coluna do
+#'     quadrado latino a unidade experimental está.}
 #'
-#' \item{cult}{Indica a cultivar.}
+#' \item{cult}{Fator de níveis nominais que representam as cultivares
+#'     de arroz.}
 #'
 #' \item{prod}{Produção de espiguetas, em gramas.}
 #'
@@ -21,28 +23,29 @@
 #' @keywords DQL
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (pg 262)
+#'     Feijão. (Tabela 12.27, pág 262)
 #' @examples
 #'
 #' library(lattice)
-#' library(latticeExtra)
 #' library(reshape)
 #'
 #' data(ZimmermannTb12.27)
-#'
-#' cast(ZimmermannTb12.27, linha~coluna, value="prod")
-#' cast(ZimmermannTb12.27, linha~coluna, value="cult")
-#' 
-#' levelplot(prod~linha+coluna,
-#'           data=ZimmermannTb12.27, aspect="iso",
-#'           panel=function(x, y, z, subscripts, ...){
-#'             panel.levelplot(x, y, z, subscripts=subscripts)
-#'             panel.text(x, y, ZimmermannTb12.27$cult[subscripts])
-#'             panel.text(x, y, z, pos=1)
+#' str(ZimmermannTb12.27)
+#'
+#' cast(ZimmermannTb12.27, linha ~ coluna, value = "cult")
+#' cast(ZimmermannTb12.27, linha ~ coluna, value = "prod")
+#'
+#' levelplot(prod ~ linha + coluna,
+#'           data = ZimmermannTb12.27, aspect = "iso",
+#'           panel = function(x, y, z, subscripts, ...) {
+#'               panel.levelplot(x, y, z, subscripts = subscripts, ...)
+#'               panel.text(x, y, ZimmermannTb12.27$cult[subscripts],
+#'                          cex = 0.8)
+#'               panel.text(x, y, z, pos = 1)
 #'           })
-#' 
-#' xyplot(prod~cult, data=ZimmermannTb12.27, type=c("p","a"), col="magenta", 
-#'        xlab="Cultivar", ylab="Produtividade de Espiguetas", 
-#'        main="Experimento em DQL")
 #'
-NULL
\ No newline at end of file
+#' xyplot(prod ~ cult, data = ZimmermannTb12.27, type = c("p", "a"),
+#'        xlab = "Cultivares",
+#'        ylab = expression("Produtividade de espiguetas"~(g)))
+#'
+NULL
diff --git a/R/ZimmermannTb5.11.R b/R/ZimmermannTb5.11.R
index 0fe0b029f06591ad5075450f189a8ac5f2ad0b45..9e6bb8de2a99f1c108f658e8d783caeda3e65a1d 100644
--- a/R/ZimmermannTb5.11.R
+++ b/R/ZimmermannTb5.11.R
@@ -1,48 +1,65 @@
-#' @name ZimmermannTb5.11 
-#' @title Dados de hastes sobreviventes ao ataque de insetos
-#' @description Experimento em DQL com mais de uma observação por parcela,
-#'     onde foram tomadas quatro amostras em cada uma das parcelas no que 
-#'     diz respeito ao número total de hastes e número de hastes mortas 
-#'     por cupim (Sinthermes sp.) e lagarta elasmo (Elasmopalpus sp.). 
-#'     Com base nestes números, a proporção de hastes sobreviventes ao 
-#'     ataque de insetos foi calculada. Cada parcela corresponde a um 
-#'     tratamento. 
+#' @name ZimmermannTb5.11
+#' @title Proposrção de hastes sobreviventes ao ataque de insetos
+#' @description Experimento em delineamento quadrado latino onde foram
+#'     tomadas quatro amostras em cada uma das parcelas no que diz
+#'     respeito ao número total de hastes e número de hastes mortas por
+#'     cupim (\emph{Sinthermes} sp.) e lagarta elasmo
+#'     (\emph{Elasmopalpus} sp.).  Com base nestes números, a proporção
+#'     de hastes sobreviventes ao ataque de insetos foi calculada.
 #' @format Um \code{data.frame} com 484 observações e 5 variáveis
 #'
 #' \describe{
 #'
-#' \item{linha}{Fator de níveis numéricos. Indica em que linha do quadrado a 
-#'      UE se encontra.}
+#' \item{linha}{Fator de níveis nominais. Indica em que linha do
+#'      quadrado latino em que está a unidade experimental.}
 #'
-#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do quadrado a
-#'      UE se encontra.}
-#'      
-#' \item{amostra}{Fator de níveis numéricos. Indica em que amostra a
-#'      UE se encontra.}
+#' \item{coluna}{Fator de níveis nominais. Indica em que coluna do
+#'      quadrado latino a unidade experimental está.}
 #'
-#' \item{parcela}{Fator de níveis numéricos. Indica o tratamento aplicado.}
+#' \item{amostra}{Fator de níveis numéricos. Identifica a amostra em
+#'     cada unidade experimental.}
 #'
-#' \item{prop}{Proporção de hastes sobreviventes ao ataque de insetos.}
+#' \item{parcela}{Fator de níveis nominais. Indica o tratamento
+#'     aplicado.}
+#'
+#' \item{prop}{Proporção de hastes sobreviventes ao ataque de insetos. O
+#'     Só é conhecida a proporção amostral. Não são conhecidos o
+#'     númerador (número hastes sobreviventes) e denominador (total de
+#'     hastes avaliadas).}
 #'
 #' }
 #' @keywords DQL
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (pg 101)
+#'     Feijão. (Tabela 5.1, pág 101)
 #' @examples
 #'
 #' library(lattice)
-#' library(latticeExtra)
-#' library(reshape)
 #'
 #' data(ZimmermannTb5.11)
 #'
-#' cast(ZimmermannTb5.11, linha~coluna, value="prop", fun.aggregate = mean)
-#' 
-#' levelplot(prop~linha+coluna,
-#'           data=ZimmermannTb5.11, aspect="iso")
-#' 
-#' xyplot(prop~amostra, data=ZimmermannTb5.11, type=c("p","a"), col="orange", 
-#'        xlab="Amostra", ylab="Proporção de Hastes", 
-#'        main="Experimento em DQL")
-NULL
\ No newline at end of file
+#' str(ZimmermannTb5.11)
+#'
+#' ZimmermannTb5.11$prop <- as.numeric(as.character(ZimmermannTb5.11$prop))
+#'
+#' aux <- aggregate(prop ~ linha + coluna + parcela,
+#'                  data = ZimmermannTb5.11, FUN = mean)
+#' str(aux)
+#'
+#' levelplot(prop ~ linha + coluna,
+#'           data = aux, aspect = "iso",
+#'           lbl = as.character(aux$parcela),
+#'           panel = function(x, y, z, lbl, ...) {
+#'               panel.levelplot(x, y, z, ...)
+#'               panel.text(x = x, y = y, labels = lbl, pos = 3)
+#'               panel.text(x = x, y = y,
+#'                          labels = sprintf("%0.2f", z),
+#'                          pos = 1, cex = 0.8)
+#'           })
+#'
+#' xyplot(prop ~ parcela, data = ZimmermannTb5.11,
+#'        type = c("p", "a"),
+#'        xlab = "Tratamento",
+#'        ylab = "Proporção de hastes sobreviventes")
+#'
+NULL
diff --git a/R/ZimmermannTb5.2.R b/R/ZimmermannTb5.2.R
index c07a667b5d36c59f9d23909c6ebdc67e694e3555..047ad97a63106c62caf1930dada90ca1abe0fad3 100644
--- a/R/ZimmermannTb5.2.R
+++ b/R/ZimmermannTb5.2.R
@@ -1,49 +1,52 @@
-#' @name ZimmermannTb5.2 
+#' @name ZimmermannTb5.2
 #' @title Dados de produção de grãos de arroz
-#' @description Experimento em DQL, cujo objetivo foi medir a resposta 
-#'     de um grupo de oito genótipos de arroz ao ataque inicial de pragas.
-#'     Os dados se referem à produção de arroz em kg/ha.
+#' @description Experimento em delineamento quadrado latino cujo
+#'     objetivo foi medir a resposta em produtividade de um grupo de
+#'     oito genótipos de arroz ao ataque inicial de pragas.
 #' @format Um \code{data.frame} com 64 observações e 4 variáveis
 #'
 #' \describe{
 #'
-#' \item{linha}{Fator de níveis numéricos. Indica em que linha do quadrado a 
-#'      UE se encontra.}
+#' \item{linha}{Fator de níveis nominais. Indica em que linha do
+#'      quadrado latino a unidade experimental está.}
 #'
-#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do quadrado a
-#'      UE se encontra}
+#' \item{coluna}{Fator de níveis nominais. Indica em que coluna do
+#'     quadrado latino a unidade experimental está.}
 #'
-#' \item{geno}{Indica o genótipo do arroz.}
+#' \item{geno}{Fator de níveis nominais que representam os genótipos de
+#'     arroz em estudo.}
 #'
-#' \item{prod}{Produção de arroz, em kg/ha.}
+#' \item{prod}{Produção de arroz, em kg ha\eqn{^{-1}}.}
 #'
 #' }
 #' @keywords DQL
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (pg 92)
+#'     Feijão. (Tabela 5.2, pág 92)
 #' @examples
 #'
 #' library(lattice)
-#' library(latticeExtra)
 #' library(reshape)
 #'
 #' data(ZimmermannTb5.2)
 #'
-#' cast(ZimmermannTb5.2, linha~coluna, value="geno")
-#' cast(ZimmermannTb5.2, linha~coluna, value="prod")
-#' 
-#' levelplot(prod~linha+coluna,
-#'           data=ZimmermannTb5.2, aspect="iso",
-#'           panel=function(x, y, z, subscripts, ...){
-#'             panel.levelplot(x, y, z, subscripts=subscripts)
-#'             panel.text(x, y, q$geno[subscripts])
-#'             panel.text(x, y, z, pos=1)
+#' str(ZimmermannTb5.2)
+#' ZimmermannTb5.2 <- transform(ZimmermannTb5.2, geno = factor(geno))
+#'
+#' cast(ZimmermannTb5.2, linha ~ coluna, value = "geno")
+#' cast(ZimmermannTb5.2, linha ~ coluna, value = "prod")
+#'
+#' levelplot(prod ~ linha + coluna,
+#'           data = ZimmermannTb5.2, aspect = "iso",
+#'           panel = function(x, y, z, subscripts, ...) {
+#'               panel.levelplot(x, y, z, subscripts = subscripts)
+#'               panel.text(x, y, ZimmermannTb5.2$geno[subscripts],
+#'                          pos = 3)
+#'               panel.text(x, y, sprintf("%0.1f", z), pos = 1)
 #'           })
-#' 
-#' xyplot(prod~geno, data=ZimmermannTb5.2, type=c("p","a"), col="red", 
-#'        xlab="Tipo de Tratamento", ylab="Produção Total", 
-#'        main="Experimento com diferentes tipos 
-#'        de tratamento em DQL")
 #'
-NULL
\ No newline at end of file
+#' xyplot(prod ~ geno, data = ZimmermannTb5.2, type = c("p", "a"),
+#'        xlab = "Genótipos de arroz",
+#'        ylab = expression("Produção de arroz"~(kg~ha^{-1})))
+#'
+NULL