diff --git a/R/AndradeEg2.1.R b/R/AndradeEg2.1.R
index 8338742554f9a64352d43c583ad5d2fc0bca116a..c2133761ee39e1661328a90efccb3e689be46567 100644
--- a/R/AndradeEg2.1.R
+++ b/R/AndradeEg2.1.R
@@ -1,6 +1,6 @@
 #' @name AndradeEg2.1
-#' @title Estudo do Crescimento de Pastagem Relacionado a Temperatura
-#' @description Estudo do tipo de relacionamento entre a taxa de
+#' @title Relação entre Crescimento de Pastagem e Temperatura
+#' @description Estudo sobre o relacionamento entre a taxa de
 #'     crescimento de uma pastagem cultivada no Planalto catarinense e a
 #'     temperatura do solo a 10 cm de profundidade, no período de junho
 #'     a novembro.
@@ -11,25 +11,25 @@
 #' \item{\code{temp}}{Temperatura do solo a 10 cm de profundidade, em
 #'     ºC.}
 #'
-#' \item{\code{tc}}{Taxa de crescimento da pastagem, em kg/hadia.}
+#' \item{\code{tc}}{Taxa de crescimento da pastagem, em kg ha\eqn{^-1}
+#'     por dia.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords RS
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Exemplo
 #'     2.1, pág. 60)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeEg2.1)
 #' str(AndradeEg2.1)
 #'
+#' library(lattice)
 #' xyplot(tc ~ temp,
 #'        data = AndradeEg2.1,
 #'        type = c("p", "r"),
 #'        xlab = "Temperatura do solo (ºC)",
-#'        ylab = "Taxa de crescimento (kg/hadia)")
+#'        ylab = expression(Taxa~de~crescimento~(kg~ha^{-1}~dia)))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb1.1.R b/R/AndradeTb1.1.R
index e0bb672755bd9660d3d8e3785c8886c3384c5740..8d3e19253dc03af2d6b322c93c2a05612f53fd4d 100644
--- a/R/AndradeTb1.1.R
+++ b/R/AndradeTb1.1.R
@@ -1,8 +1,9 @@
 #' @name AndradeTb1.1
-#' @title Estudo da Duração do Quinto Estádio Ninfal de Triatoma Klugi
+#' @title Estudo da Duração do Quinto Estádio Ninfal de \emph{Triatoma
+#'     Klugi}
 #' @description Foi feito um experimento, na Universidade Federal de
 #'     Santa Catarina, para estudar a duração, em dias, do quinto
-#'     estádio ninfal de Triatoma klugi com alimentação em galo.
+#'     estádio ninfal de \emph{Triatoma klugi} com alimentação em galo.
 #' @format Um \code{vetor} numérico com 35 observações.
 #' @keywords AAS
 #' @source Estatística para as ciências agrárias e biológicas: com
@@ -12,6 +13,7 @@
 #' @examples
 #'
 #' data(AndradeTb1.1)
+#' str(AndradeTb1.1)
 #'
 #' hist(AndradeTb1.1,
 #'      prob = TRUE,
@@ -23,16 +25,13 @@
 #'      ylim = c(0, 0.062))
 #'
 #' lines(density(AndradeTb1.1), lwd = 2)
-#'
 #' rug(AndradeTb1.1)
 #'
 #' boxplot(AndradeTb1.1,
 #'         ylab = "Duração do Quinto Estádio Ninfal (em dias)")
 #'
 #' mean(AndradeTb1.1)
-#'
 #' sd(AndradeTb1.1)
-#'
 #' fivenum(AndradeTb1.1)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb1.2.R b/R/AndradeTb1.2.R
index fad970bd3d39208ba69c97247d2f71eda454eb98..3ad03226397db9c82171b650f963fbb1864577c8 100644
--- a/R/AndradeTb1.2.R
+++ b/R/AndradeTb1.2.R
@@ -1,43 +1,38 @@
 #' @name AndradeTb1.2
-#' @title Experimento de Produção de Milho em função do Nitrogênio
+#' @title Experimento de Produção de Milho em Função do Nitrogênio
 #' @description Experimento que tem como objetivo verificar o
 #'     comportamento da produção de milho sob o efeito de diferentes
 #'     doses de nitrogênio. Para cada dose de nitrogênio foram plantados
-#'     cinco canteiros de terra de \eqn{10m^{2}} cada. Portanto o
-#'     tamanho da amostra para cada dose de nitrogênio é cinco.
+#'     cinco canteiros de terra de \eqn{10m^{2}} cada. Portanto, são
+#'     cinco observações para cada dose de nitrogênio.
 #' @format Um \code{data.frame} com 25 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de 5 níveis qualitativos que são as dosagens
-#'     de Nitrogênio, em \eqn{kg.ha^{-1}}.}
+#' \item{\code{trat}}{Fator de 5 níveis que são as dosagens de
+#'     Nitrogênio, em \eqn{kg\ ha^{-1}}.}
 #'
 #' \item{\code{rept}}{Fator de 5 níveis qualitativos que são as
 #'     repetições do experimento.}
 #'
-#' \item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.}
+#' \item{\code{prod}}{Produção de milho, em \eqn{kg\ ha^{-1}}.}
 #'
 #' }
-#' @keywords DBC
+#' @keywords DIC
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
 #'     1.2, pág. 40)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeTb1.2)
 #' str(AndradeTb1.2)
 #'
+#' library(lattice)
 #' xyplot(prod ~ trat,
-#'        groups = rept,
 #'        data = AndradeTb1.2,
 #'        type = c("p", "a"),
-#'        auto.key = list(title = "Repetições",
-#'                        cex.title = 1.1,
-#'                        columns = 5),
-#'        xlab = "Dosagem de Nitrogênio (em kg/ha)",
-#'        ylab = "Produção de Milho (em kg/ha)")
+#'        xlab = expression(Dosagem~de~Nitrogênio~(em~kg~ha^{-1})),
+#'        ylab = expression(Produção~de~Milho~(em~kg~ha^{-1})))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.1.R b/R/AndradeTb2.1.R
index 9d0679f6e5479f21e365e28f2f36bdd433c25502..5228325fc88c586c9541b0ec2f86c8276a3e4e51 100644
--- a/R/AndradeTb2.1.R
+++ b/R/AndradeTb2.1.R
@@ -1,8 +1,9 @@
 #' @name AndradeTb2.1
-#' @title Experimento de Competição de Híbridos de Milho
-#' @description Um pesquisador instalou um experimento, na região de
-#'     Chapecó, SC, para avaliação do comportamento de híbridos de
-#'     milho.
+#' @title Competição de Híbridos de Milho
+#' @description Um pesquisador avaliou, na região de Chapecó, SC, o
+#'     comportamento de híbridos de milho mensurados pelo rendimento
+#'     médio de milho, ciclo de vida, altura da planta e altura da
+#'     espiga.
 #' @format Um \code{data.frame} com 32 observações e 7 variáveis, em que
 #'
 #' \describe{
@@ -11,7 +12,7 @@
 #'     híbridos de milho.}
 #'
 #' \item{\code{rm}}{Rendimento médio do híbrido de milho, em
-#'     \eqn{kg.ha^{-1}}.}
+#'     \eqn{kg\ ha^{-1}}.}
 #'
 #' \item{\code{ciclo}}{Ciclo de vida do híbrido de milho, em dias.}
 #'
@@ -21,13 +22,14 @@
 #'
 #' \item{\code{grao}}{Fator de 3 níveis qualitativos que indica o tipo
 #'     de grão.}
-#' 
+#'
 #' \item{\code{resist}}{Fator de 4 níveis qualitativos que indica a
-#'     resistência à ferrugem, sendo: r = resistente; mr = moderadamente
-#'     resistente; ms = moderadamente susceptível; s = susceptível.}
-#' 
+#'     resistência à ferrugem, sendo \code{r}: resistente; \code{mr}:
+#'     moderadamente resistente; \code{ms}: moderadamente susceptível; e
+#'     \code{s}: susceptível.}
+#'
 #' }
-#' @keywords AAS
+#' @keywords AASM
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
@@ -35,73 +37,78 @@
 #' @examples
 #'
 #' library(lattice)
-#' library(plyr)
 #'
 #' data(AndradeTb2.1)
 #' str(AndradeTb2.1)
 #'
-#' xyplot(rm ~ hibr,
-#'        groups = grao,
-#'        type = "b",
-#'        data = AndradeTb2.1,
-#'        auto.key = list(title = "Tipo de Grão",
-#'                        cex.title = 1.1,
-#'                        columns = 3),
-#'        ylab = "Rendimendo Médio (em kg/ha)",
-#'        xlab = "Híbrido de Milho")
+#' levels_resist <- c("Resistente", "Moderadamente Resistente",
+#'                    "Moderadamente Susceptível", "Susceptível")
 #'
-#' xyplot(rm ~ hibr,
+#' # Comportamento do rendimento médio
+#' xyplot(rm ~ hibr | grao,
 #'        groups = resist,
 #'        type = "b",
+#'        layout = c(NA, 1),
 #'        data = AndradeTb2.1,
-#'        auto.key = list(title = "Resistência à Ferrugem",
+#'        auto.key = list(title = "Resistência à ferrugem",
 #'                        cex.title = 1.1,
-#'                        columns = 4),
+#'                        columns = 2,
+#'                        text = levels_resist),
 #'        ylab = "Rendimendo Médio (em kg/ha)",
 #'        xlab = "Híbrido de Milho")
 #'
-#' xyplot(ciclo ~ hibr,
-#'        groups = grao,
-#'        type = "b",
-#'        data = AndradeTb2.1,
-#'        auto.key = list(title = "Tipo de Grão",
-#'                        cex.title = 1.1,
-#'                        columns = 3),
-#'        ylab = "Ciclo (em dias)",
-#'        xlab = "Híbrido de Milho")
-#'
-#' xyplot(ciclo ~ hibr,
+#' # Compartamento do ciclo de vida
+#' xyplot(ciclo ~ hibr | grao,
 #'        groups = resist,
 #'        type = "b",
+#'        layout = c(NA, 1),
 #'        data = AndradeTb2.1,
-#'        auto.key = list(title = "Resistência à Ferrugem",
+#'        auto.key = list(title = "Resistência à ferrugem",
 #'                        cex.title = 1.1,
-#'                        columns = 4),
+#'                        columns = 2,
+#'                        text = levels_resist),
 #'        ylab = "Ciclo (em dias)",
 #'        xlab = "Híbrido de Milho")
 #'
-#' xyplot(ap + ae ~ hibr,
-#'        groups = grao,
-#'        type = "b",
-#'        strip = strip.custom(factor.levels = c("Altura da Planta",
-#'                                               "Altura da Espiga")),
-#'        data = AndradeTb2.1,
-#'        auto.key = list(title = "Tipo de Grão",
-#'                        cex.title = 1.1,
-#'                        columns = 3),
-#'        ylab = "Altura (em cm)",
-#'        xlab = "Híbrido de Milho")
-#'
-#' xyplot(ap + ae ~ hibr,
-#'        groups = resist,
-#'        type = "b",
-#'        strip = strip.custom(factor.levels = c("Altura da Planta",
-#'                                               "Altura da Espiga")),
-#'        data = AndradeTb2.1,
-#'        auto.key = list(title = "Resistência à Ferrugem",
-#'                        cex.title = 1.1,
-#'                        columns = 4),
-#'        ylab = "Altura (em cm)",
-#'        xlab = "Híbrido de Milho")
-#'
-NULL
\ No newline at end of file
+#' # Comportamento das alturas
+#' library(latticeExtra)
+#' useOuterStrips(
+#'     xyplot(ap + ae ~ hibr | grao,
+#'            groups = resist,
+#'            type = "b",
+#'            data = AndradeTb2.1,
+#'            auto.key = list(title = "Resistência à ferrugem",
+#'                            cex.title = 1.1,
+#'                            columns = 2,
+#'                            text = levels_resist),
+#'            ylab = "Altura (em cm)",
+#'            xlab = "Híbrido de Milho"),
+#'     strip.left = strip.custom(factor.levels = c("Planta", "Espiga"))
+#'     )
+#'
+#' # Comportamento geral
+#' vars <- c("Rendimento", "Ciclo de vida", "Altura planta", "Altura espiga")
+#' useOuterStrips(
+#'     xyplot(rm + ciclo + ap + ae ~ hibr | grao,
+#'            groups = resist,
+#'            data = AndradeTb2.1,
+#'            type = "b",
+#'            as.table = TRUE,
+#'            xlab = "Híbrido de Milho",
+#'            ylab = "",
+#'            scales = list(y = "free", x = list(rot = 90)),
+#'            auto.key = list(
+#'                title = "Resistência à Ferrugem",
+#'                cex.title = 1.1,
+#'                columns = 2,
+#'                text = levels_resist)
+#'            ),
+#'     strip.left = strip.custom(factor.levels = vars)
+#' )
+#'
+#' # Relação entre as variáveis de interesse
+#' splom(~AndradeTb2.1[, c("rm", "ciclo", "ap", "ae")],
+#'       type = c("p", "smooth"),
+#'       data = AndradeTb2.1)
+#'
+NULL
diff --git a/R/AndradeTb2.11.R b/R/AndradeTb2.11.R
index 3826cd53af5adf10e90ed6f0ee85219e044bcb7f..db09814a77b5a6311102429d135e82bf1487726b 100644
--- a/R/AndradeTb2.11.R
+++ b/R/AndradeTb2.11.R
@@ -1,5 +1,5 @@
 #' @name AndradeTb2.11
-#' @title Experimento de Contagem de Plantas
+#' @title Relação entre Ciclo e Virescência em Plantas
 #' @description Experimento que tem por objetivo verificar se os
 #'     caracteres ciclo e virescência, de uma progênie da espécie "X",
 #'     segregam de forma independente.
@@ -8,35 +8,36 @@
 #' \describe{
 #'
 #' \item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
-#'     caractere ciclo (Tardio e Precoce).}
+#'     caractere ciclo (tardio e precoce).}
 #'
 #' \item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
-#'     caractere virescência (Normal e Virescente).}
+#'     caractere virescência (normal e virescente).}
 #'
 #' \item{\code{cont}}{Contagem de plantas segregando para dois
 #'     caracteres numa progênie da espécie "X".}
 #'
 #' }
-#' @keywords AAS
+#' @keywords contingência
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
 #'     2.11, pág. 80)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeTb2.11)
 #' str(AndradeTb2.11)
 #'
-#' tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+#' (tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11))
+#'
+#' mosaicplot(tb)
 #'
 #' barplot(t(tb),
 #'         beside = TRUE,
 #'         legend.text = TRUE,
+#'         args.legend = list(x = "topleft"),
 #'         col = c("darkturquoise", "lawngreen"),
 #'         ylim = c(0, 3500),
 #'         xlab = "Ciclo",
 #'         ylab = "Contagem de Plantas")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.12.R b/R/AndradeTb2.12.R
index f44945bb4e67501cb0c774bdf2690cdc850ccafe..8081494abfc36179738dcb370fe2d601b50b60e5 100644
--- a/R/AndradeTb2.12.R
+++ b/R/AndradeTb2.12.R
@@ -1,41 +1,42 @@
 #' @name AndradeTb2.12
-#' @title Estudo de Alimentação de Pássaros
-#' @description Estudo do número de pássadors de uma particular espécie,
-#'     classificados de acordo com o local da floresta onde se
-#'     alimentam, para duas estações do ano.
+#' @title Relação do Número de Pássaros com Local de Alimentação
+#' @description Estudo sobre o número de pássaros de uma particular
+#'     espécie observados em diferentes locais de alimentação na
+#'     floresta. O estudo foi realizado em duas estações do ano.
 #' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
 #' \item{\code{estacao}}{Fator de 2 níveis qualitativos que são as
-#'     estações do ano (Primavera e Outono).}
+#'     estações do ano (primavera e outono).}
 #'
 #' \item{\code{local}}{Fator de 3 níveis qualitativos que são os locais
-#'     da Floresta (Árvores, Arbusto e Chão).}
+#'     da Floresta (árvores, arbusto e chão).}
 #'
 #' \item{\code{passaros}}{Número de pássaros de uma particular espécie.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords contingência
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
 #'     2.12, pág. 81)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeTb2.12)
 #' str(AndradeTb2.12)
 #'
-#' xyplot(passaros ~ estacao,
-#'        groups = local,
-#'        data = AndradeTb2.12,
-#'        type = "b",
-#'        auto.key = list(title = "Local da Floresta",
-#'                        cex.title = 1.1,
-#'                        columns = 3),
-#'        xlab = "Estação do Ano",
-#'        ylab = "Número de Pássaros")
-#'
-NULL
\ No newline at end of file
+#' (tb <- xtabs(passaros ~ estacao + local, data= AndradeTb2.12))
+#'
+#' mosaicplot(tb)
+#'
+#' library(lattice)
+#' barchart(tb,
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          auto.key = list(
+#'              title = "Local de alimentação",
+#'              cex.title = 1.1,
+#'              columns = 3))
+#'
+NULL
diff --git a/R/AndradeTb2.15.R b/R/AndradeTb2.15.R
index 7e2b71503d24e3f21f988af8d904b64a2fb35ab9..08c73993556ed3c6346328648e54f14085a6b8ee 100644
--- a/R/AndradeTb2.15.R
+++ b/R/AndradeTb2.15.R
@@ -12,28 +12,34 @@
 #'     mandioca.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords tabfreq
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
 #'     2.15, pág. 89)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeTb2.15)
 #' str(AndradeTb2.15)
 #'
-#' bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)),
-#'               names.arg = AndradeTb2.15$plantas,
-#'               col = "darkturquoise",
-#'               beside = TRUE,
-#'               ylim = c(0, 50),
-#'               xlab = "Número de Plantas Colhidas Sadias",
-#'               ylab = "Porcentagem do Número de Parcelas")
-#'
-#' text(bp, 0,
-#'      round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1),
-#'      cex= 1, pos = 3)
-#'
-NULL
\ No newline at end of file
+#' # Gráfico de barras
+#' with(AndradeTb2.15, {
+#'     fr <- paste0("(", round(100 * freq / sum(freq)), "% )")
+#'     bp <- barplot(freq,
+#'                   names.arg = plantas,
+#'                   col = "darkturquoise",
+#'                   beside = TRUE,
+#'                   ylim = extendrange(freq),
+#'                   xlab = "Número de Plantas Colhidas Sadias",
+#'                   ylab = "Porcentagem do Número de Parcelas")
+#'     text(bp, freq + 0.3, labels = paste(freq, fr))
+#' })
+#'
+#' # Gráfico de setores
+#' with(AndradeTb2.15, {
+#'     fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'     pie(freq, labels = paste(plantas, "plantas\nsadias", fr),
+#'         col = gray.colors(length(freq)))
+#' })
+#'
+NULL
diff --git a/R/AndradeTb2.6.R b/R/AndradeTb2.6.R
index 26854b4ba44334e39c3f3497c5258541c706d8b1..581b87135ec547485796dd53f9f9d972b53ac4ea 100644
--- a/R/AndradeTb2.6.R
+++ b/R/AndradeTb2.6.R
@@ -8,37 +8,35 @@
 #' \describe{
 #'
 #' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
-#'     crescimento, sendo: 3 = "indeterminado trepador"; 4 =
-#'     "indeterminado prostrado".}
+#'     crescimento, sendo \code}{3}: "indeterminado trepador"; e
+#'     \code{4}: "indeterminado prostrado".}
 #'
 #' \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
-#'     sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+#'     sendo \code{Tr}: "trepador"; \code{EB}: "ereto na base"; e
+#'     \code{Pr}: "prostrado".}
 #'
 #' }
-#' @keywords AAS
+#' @keywords contingência
 #' @source Estatística para as ciências agrárias e biológicas: com
 #'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
 #'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
 #'     2.6, pág. 74)
 #' @examples
 #'
-#' library(lattice)
-#' library(plyr)
-#'
 #' data(AndradeTb2.6)
 #' str(AndradeTb2.6)
 #'
-#' tb <- xtabs(~H+P, data= AndradeTb2.6)
+#' (tb <- xtabs(~H+P, data= AndradeTb2.6))
+#'
+#' mosaicplot(tb)
 #'
 #' barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
-#'         beside=TRUE,
-#'         space = c(0.2,1),
-#'         col = c("darkturquoise","lawngreen","blue"),
+#'         beside = TRUE,
+#'         space = c(0.2, 1),
+#'         col = c("darkturquoise", "lawngreen", "blue"),
 #'         ylim = c(0, 30))
-#'
 #' legend("topleft",
-#'        legend = c("Eb", "Pr", "Tr"),
-#'        col = c("darkturquoise", "lawngreen","blue"),
-#'        pch = 8)
+#'        legend = levels(AndradeTb2.6$P),
+#'        fill = c("darkturquoise", "lawngreen", "blue"))
 #'
-NULL
\ No newline at end of file
+NULL