diff --git a/R/ZimmermannTb12.13.R b/R/ZimmermannTb12.13.R
index 085004d49211e76dad619614e881e7ebaa4b36fe..3710c0e62d966524818192f1a9b3dc7d6583ec43 100644
--- a/R/ZimmermannTb12.13.R
+++ b/R/ZimmermannTb12.13.R
@@ -1,37 +1,45 @@
 #' @name ZimmermannTb12.13
 #' @title Dados da proporção de insetos infectados
 #' @description Dados do ensaio 1 de um experimento em DBC que estudou a
-#'     patogenicidade de fungos as percevejo do grão de arroz. A
+#'     patogenicidade de fungos ao percevejo do grão de arroz. A
 #'     testemunha sem infecção (1) era o tratamento comum entre os dois
 #'     experimentos. Os dados se referem à proporção de percevejos
-#'     infectados e transformados por arcoseno da raiz quadrada da
+#'     infectados e transformados por arco seno da raiz quadrada da
 #'     proporção.
 #' @format Um \code{data.frame} com 35 observações e 3 variáveis
 #'
+#'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     arroz.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Proporção de insetos infectados.}
+#' \item{\code{asinprop}}{Arco seno da raíz quadrada
+#'     (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
+#'     infectados.}
 #'
 #' }
 #' @keywords DBC proporção
 #' @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 255)
+#'     Feijão. (Tab 12.13, pág 255)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.13)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.13,
-#'        type=c("p","a"),
+#' str(ZimmermannTb12.13)
+#'
+#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.13,
+#'        type = c("p", "a"), jitter.x = TRUE,
 #'        xlab = "Tratamentos",
-#'        ylab = "Proporção de insetos infectados")
+#'        ylab = "Arco seno da raíz da proporção de insetos infectados")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.13,
+#' aggregate(asinprop ~ trat, data = ZimmermannTb12.13,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/R/ZimmermannTb12.14.R b/R/ZimmermannTb12.14.R
index ecd62e57df15fa1badcea786c9c803fd393a1d97..4bc57cdd5f5fd617001ccdeb206aad5480309b6e 100644
--- a/R/ZimmermannTb12.14.R
+++ b/R/ZimmermannTb12.14.R
@@ -4,17 +4,20 @@
 #'     patogenicidade de fungos as percevejo do grão de arroz. A
 #'     testemunha sem infecção (1) era o tratamento comum entre os dois
 #'     experimentos. Os dados se referem à proporção de percevejos
-#'     infectados e transformados por arcoseno da raiz quadrada da
+#'     infectados e transformados por arco seno da raiz quadrada da
 #'     proporção.
-#' @format Um \code{data.frame} com 30 observações e 3 variáveis
-#'
+#' @format Um \code{data.frame} com 35 observações e 3 variáveis
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     arroz.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Proporção de insetos infectados.}
+#' \item{\code{asinprop}}{Arco seno da raíz quadrada
+#'     (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
+#'     infectados.}
 #'
 #' }
 #' @keywords DBC proporção
@@ -27,11 +30,14 @@
 #'
 #' data(ZimmermannTb12.14)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.14,
-#'        type = c("p", "a"),
+#' str(ZimmermannTb12.14)
+#'
+#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.14,
+#'        type = c("p", "a"), jitter.x = TRUE,
 #'        xlab = "Tratamentos",
-#'        ylab = "Proporção de insetos infectados")
+#'        ylab = "Arco seno da raíz da proporção de insetos infectados")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.14,
+#' aggregate(asinprop ~ trat, data = ZimmermannTb12.14,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/R/ZimmermannTb12.19.R b/R/ZimmermannTb12.19.R
index d17f72f9af42d47014df662aa9440d8785aa56a9..41f2c236fec31d893a8697517e0ca789da2fcf34 100644
--- a/R/ZimmermannTb12.19.R
+++ b/R/ZimmermannTb12.19.R
@@ -1,5 +1,5 @@
 #' @name ZimmermannTb12.19
-#' @title Dados de produtividade de grãos de feijão
+#' @title Produtividade de feijão em ensaio de competição de cultivares
 #' @description Dados do ensaio 1 de um experimento em DBC de competição
 #'     de cultivares de feijão do grupo preto. Este ensaio foi realizado
 #'     no município de Senador Canedo (GO). Houveram três cultivares
@@ -10,28 +10,34 @@
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     plantas.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Produtividade de grãos.}
+#' \item{\code{prod}}{Produtividade de grãos (kg ha\eqn{^{-1}}).}
 #'
 #' }
 #' @keywords DBC
 #' @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 258)
+#'     Feijão. (Tabela 12.19, pág 258)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.19)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.19,
-#'        type = c("p", "a"),
+#' str(ZimmermannTb12.19)
+#'
+#' xyplot(prod ~ trat, data = ZimmermannTb12.19,
+#'        groups = bloco, type = "b",
 #'        xlab = "Tratamentos",
-#'        ylab = "Produtividade de grãos")
+#'        ylab = "Produtividade de grãos",
+#'        scales = list(x = list(rot = 90)))
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb12.19,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/R/ZimmermannTb12.7.R b/R/ZimmermannTb12.7.R
index c012a40609e385d2842b7cc1f64adf4193f508be..6febc2596dc1bcf03348784d42b5e53f7de7cb65 100644
--- a/R/ZimmermannTb12.7.R
+++ b/R/ZimmermannTb12.7.R
@@ -1,12 +1,12 @@
 #' @name ZimmermannTb12.7
-#' @title Dados de área sob a curva do progresso de uma doença
+#' @title Dados de área sob a curva do progresso de brusone
 #' @description Dados de um ensaio que avaliou as cultivares para a área
-#'     foliar atacada por brusone (Pyricularia Orizae L.) em diferentes
-#'     datas e se calculou área sob a curva do progresso da doença. Este
-#'     primeiro experimento foi semeado na densidade de oitenta sementes
-#'     por metro. Os dados foram transformados por logaritmo natural,
-#'     procurando-se uma maior homogeneização das variâncias.
-#'      A unidade de medida não é conhecida. 
+#'     foliar atacada por brusone (\emph{Pyricularia Orizae} L.) em
+#'     diferentes datas e se calculou área sob a curva do progresso da
+#'     doença. Este primeiro experimento foi semeado na densidade de
+#'     oitenta sementes por metro. Os dados foram transformados por
+#'     logaritmo natural, procurando-se uma maior homogeneização das
+#'     variâncias.
 #' @format Um \code{data.frame} com 18 observações e 3 variáveis
 #'
 #' \describe{
@@ -14,26 +14,31 @@
 #' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
 #'     plantas.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Área sob a curva do progresso de uma doença.}
+#' \item{\code{prod}}{Logaritmo natural da área sob a curva de progresso
+#'     da doença. A unidade de medida não é conhecida.}
 #'
 #' }
 #' @keywords DBC
 #' @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 251)
+#'     Feijão. (Tabela 12.7, pág 251)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.7)
 #'
+#' str(ZimmermannTb12.7)
+#'
 #' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.7,
 #'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
-#'        ylab = "Área sob a curva do progresso da doença")
+#'        ylab = "Logaritmo da área sob a curva de progresso da doença")
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb12.7,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/R/ZimmermannTb4.11.R b/R/ZimmermannTb4.11.R
index afa463ccd4622c619a988dc9e3ac6f3976c05df2..9ca1c2db8d94805bc88ef393a22c2f7398295499 100644
--- a/R/ZimmermannTb4.11.R
+++ b/R/ZimmermannTb4.11.R
@@ -7,36 +7,38 @@
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
-#'     plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado nas
+#'     parcelas.}
 #'
-#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual amostra
-#'                pertence a observação.}
+#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual
+#'     amostra pertence a observação.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Altura média de perfilhos.}
+#' \item{\code{prod}}{Altura média de perfilhos (cm).}
 #'
 #' }
 #' @keywords DBC
 #' @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 79)
+#'     Feijão. (Tabela 4.11, pág 79)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb4.11)
 #'
-#' levelplot(prod ~ amostra + bloco,
-#'           data = ZimmermannTb4.11, aspect = "iso")
+#' str(ZimmermannTb4.11)
 #'
-#' xyplot(prod ~ trat | amostra, groups = bloco,
+#' xyplot(prod ~ trat, groups = bloco,
 #'        data = ZimmermannTb4.11,
-#'        type = c("p", "a"),
+#'        type = c("p", "a"), jitter.x = TRUE,
 #'        xlab = "Tratamentos",
-#'        ylab = "Altura média de perfilhos")
+#'        ylab = "Altura média de perfilhos (cm)",
+#'        scales=list(x=list(rot=90)))
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb4.11,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/R/ZimmermannTb4.4.R b/R/ZimmermannTb4.4.R
index 3e5dc40be6811f92a322d92112270695d052f9aa..b32abde2ca5df8863ebd92a49150b568ff3a87e0 100644
--- a/R/ZimmermannTb4.4.R
+++ b/R/ZimmermannTb4.4.R
@@ -1,35 +1,42 @@
 #' @name ZimmermannTb4.4
-#' @title Estudo sobre produtividade de grãos de feijão
+#' @title Competição de cultivares de feijão
 #' @description Dados de um ensaio de competição de cultivares, em
 #'     blocos completos ao acaso, da produção de grãos de feijão em
-#'     kg/ha.  O experimento teve quinze tratamentos (cultivares e/ou
+#'     kg/ha. O experimento teve quinze tratamentos (cultivares e/ou
 #'     linhagens) e quatro blocos.
 #' @format Um \code{data.frame} com 60 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em feijão.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     feijão.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Produção de grãos de feijão.}
+#' \item{\code{prod}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
 #'
 #' }
 #' @keywords DBC
 #' @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 72)
+#'     Feijão. (Tabela 4.4, pág 72)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb4.4)
 #'
+#' str(ZimmermannTb4.4)
+#'
 #' xyplot(prod ~ trat, data = ZimmermannTb4.4,
-#'        type = "o", jitter.x = TRUE, groups = bloco,
-#'        xlab = "Tratamento", ylab = "Produção de feijão",
-#'        main = "Experimento de competição de cultivares")
+#'        groups = bloco, type = "o", jitter.x = TRUE,
+#'        xlab = "Cultivares",
+#'        ylab = expression("Produção de feijão"~(kg~ha^{-1})),
+#'        main = "Experimento de competição de cultivares",
+#'        scales = list(x = list(rot = 90)))
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb4.4,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/data/ZimmermannTb12.13.rda b/data/ZimmermannTb12.13.rda
index c7ea8f945d27265fa1a3b0f8b3b4d3b258c76d7d..37f8877d2ca751223ad335b6e49e9ae1b7c38204 100644
Binary files a/data/ZimmermannTb12.13.rda and b/data/ZimmermannTb12.13.rda differ
diff --git a/data/ZimmermannTb12.14.rda b/data/ZimmermannTb12.14.rda
index c18dd9682f2b6e285fa427bc1ffb75579da0b5ee..0f19e7b56aeccddbaff4df2897eebd13c7e3b4af 100644
Binary files a/data/ZimmermannTb12.14.rda and b/data/ZimmermannTb12.14.rda differ