diff --git a/R/AndradeEg7.5.R b/R/AndradeEg7.5.R
index faa070288da560d9b0d206e17a8dee9ba806a77b..3675115a2686837e8be2c8e155ae104395b8db22 100644
--- a/R/AndradeEg7.5.R
+++ b/R/AndradeEg7.5.R
@@ -1,9 +1,9 @@
 #' @name AndradeEg7.5
 #' @title Pesos de Pacotes de Sementes de Milho
-#' @description Sabendo-se que a distribuição dos pesos de pacotes de
-#'     sementes de milho enchidos automaticamente por uma certa máquina,
-#'     é normal, com desvio padrão conhecido e igual a 0,20kg, uma
-#'     amostra de 15 pacotes foi retirada ao acaso.
+#' @description Amostra de 15 pacotes de sementes de milho, enchidos por
+#'     uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+#'     são normalmente distribuídos com média [???] e desvio padrão 0,2
+#'     Kg.
 #' @format Um \code{vector} numérico com 15 observações.
 #' @keywords AAS
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -15,16 +15,13 @@
 #' str(AndradeEg7.5)
 #'
 #' hist(AndradeEg7.5,
-#'      prob = TRUE,
 #'      labels = TRUE,
 #'      col = "darkturquoise",
 #'      xlab = "Peso do Pacote (em kg)",
 #'      ylab = "Densidade",
 #'      main = NULL,
-#'      ylim = c(0, 2.8))
-#'
-#' lines(density(AndradeEg7.5), lwd = 2)
-#' rug(AndradeEg7.5)
+#'      border = "white")
+#' rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
 #'
 #' boxplot(AndradeEg7.5,
 #'         ylab = "Peso do Pacote (em kg)")
@@ -33,4 +30,4 @@
 #' sd(AndradeEg7.5)
 #' fivenum(AndradeEg7.5)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx4.14.R b/R/AndradeEx4.14.R
index f20c93f6f461b943ce859df07f4d2f3fdbf05ab0..896e1a629b2092a9f110cf6f73c1a27ff9ca5fe3 100644
--- a/R/AndradeEx4.14.R
+++ b/R/AndradeEx4.14.R
@@ -1,18 +1,19 @@
 #' @name AndradeEx4.14
-#' @title Número de Parcelas com X Plantas Doentes
-#' @description Avaliaram-se 30 parcelas (área da terra de
-#'     \eqn{20 m^{2}}) de 27 plantas de mandioca cada uma, de acordo com
-#'     o número de plantas doentes colhidas.
+#' @title Plantas Doentes no Cultivo de Mandioca
+#' @description Avaliaram-se 30 parcelas (área da terra de \eqn{20
+#'     m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+#'     número de plantas doentes colhidas.
 #' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{x}}{Número de plantas doentes na parcela.}
+#' \item{\code{nplantas}}{Número de plantas doentes na parcela.}
 #'
-#' \item{\code{quadrados}}{Número de parcelas com x plantas doentes.}
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+#'     doentes.}
 #'
 #' }
-#' @keywords DBC
+#' @keywords contingência*
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 #'     ciências agrárias e biológicas com noções de experimentação (2nd
 #'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 4, Exercício
@@ -22,10 +23,14 @@
 #' data(AndradeEx4.14)
 #' str(AndradeEx4.14)
 #'
-#' barplot(AndradeEx4.14$parcelas,
+#' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeEx4.14$nparc,
 #'         col = "darkturquoise",
-#'         names.arg = AndradeEx4.14$x,
+#'         names.arg = AndradeEx4.14$nplantas,
 #'         xlab = "Número de Plantas Doentes na Parcela",
 #'         ylab = "Número de Parcelas")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx4.9.R b/R/AndradeEx4.9.R
index 345c19f0884a1e7d6c5abda95f7f8cf1d0794f0d..452ab6530e43070dd5d73028c06452d03df08398 100644
--- a/R/AndradeEx4.9.R
+++ b/R/AndradeEx4.9.R
@@ -1,19 +1,19 @@
 #' @name AndradeEx4.9
-#' @title Número de Quadrados com X Plantas
-#' @description Uma certa região florestal foi dividida em 109 quadrados
-#'     para estudar a distribuição de \emph{Primula simenses} selvagem.
-#'     A priori, supomos que essa espécie distribui-se aleatoriamente na
-#'     região.
+#' @title Ocorrências de Plantas \emph{Primula Sinensis} Selvagens
+#' @description Uma certa região florestal foi dividida em 109 parcelas
+#'     de mesma área (quadrados) para se estudar a distribuição das
+#'     plantas \emph{Primula sinensis} selvagens na região. A priori,
+#'     supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
 #' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{x}}{Número de plantas no quadrado.}
+#' \item{\code{nplantas}}{Número de plantas na parcela.}
 #'
-#' \item{\code{quadrados}}{Número de quadrados com x plantas.}
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords contingência*
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 #'     ciências agrárias e biológicas com noções de experimentação (2nd
 #'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 4, Exercício
@@ -23,10 +23,15 @@
 #' data(AndradeEx4.9)
 #' str(AndradeEx4.9)
 #'
-#' barplot(AndradeEx4.9$quadrados,
-#'         col = "darkturquoise",
-#'         names.arg = AndradeEx4.9$x,
-#'         xlab = "Número de Plantas no Quadrado",
-#'         ylab = "Número de Quadrados")
+#' #' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.9, weighted.mean(nplantas, nparc))
 #'
-NULL
\ No newline at end of file
+#' # Distribuição de frequências
+#' txt <- barplot(AndradeEx4.9$nparc,
+#'                col = "darkturquoise",
+#'                names.arg = AndradeEx4.9$nplantas,
+#'                xlab = "Número de Plantas no Quadrado",
+#'                ylab = "Número de Quadrados")
+#' text(x = txt, y = AndradeEx4.9$nparc)
+#'
+NULL
diff --git a/R/AndradeEx7.13.R b/R/AndradeEx7.13.R
index 6bbf933411bd979977952c34772cb52e7479a6f6..e739283ad613512c395e660b8ac386b55b418348 100644
--- a/R/AndradeEx7.13.R
+++ b/R/AndradeEx7.13.R
@@ -1,20 +1,18 @@
 #' @name AndradeEx7.13
-#' @title Estudo do Desenvolvimento de Duas Espécies de Árvores
-#' @description Estudo, realizado por um agrônomo, sobre o
-#'     desenvolvimento de duas espécies de árvores, a Bracatinga e a
-#'     Canafístula. Para essa finalidade foram coletadas duas amostras
-#'     de tamanhos iguais a 10 árvores.
+#' @title Comparação de Alturas de Duas Espécies de Árvores
+#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
+#'     de duas espécies de árvores, a Bracatinga e a Canafístula. O
+#'     desenvolvimento foi mensurado com base na altura das árvores.
 #' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{arvore}}{Fator de 2 níveis qualitativos, que são as
-#'     espécies das árvores.}
+#' \item{\code{arvore}}{Espécies da árvore.}
 #'
-#' \item{\code{altura}}{Altura das árvores, em metros.}
+#' \item{\code{altura}}{Altura da árvore, em metros.}
 #'
 #' }
-#' @keywords DBC
+#' @keywords AASI
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 #'     ciências agrárias e biológicas com noções de experimentação (2nd
 #'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 7, Exercício
@@ -24,10 +22,15 @@
 #' data(AndradeEx7.13)
 #' str(AndradeEx7.13)
 #'
+#' with(AndradeEx7.13, by(altura, arvore, summary))
+#'
 #' library(lattice)
-#' dotplot(altura ~ arvore,
-#'         data = AndradeEx7.13,
-#'         xlab = "Espécie",
-#'         ylab = "Altura (m)")
+#' densityplot(~altura, groups = arvore,
+#'             data = AndradeEx7.13,
+#'             auto.key = list(
+#'                 corner = c(0.9, 0.9),
+#'                 title = "Espécie da árvore",
+#'                 cex.title = 1
+#'             ))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx7.3.R b/R/AndradeEx7.3.R
index 05e0edbc47f5955d49f5435cde25d66a3a024d9e..257f6f2220e8ce09749d7c9f6421337e8e6d137b 100644
--- a/R/AndradeEx7.3.R
+++ b/R/AndradeEx7.3.R
@@ -1,8 +1,8 @@
 #' @name AndradeEx7.3
 #' @title Diâmetros de Árvores de Eucalipto
-#' @description De um povoamento de eucaliptos, sortearam-se 30 árvores
-#'     e determinaram-se os diâmetros, em cm, com a finalidade de
-#'     estimar o diâmetro médio do povoamento.
+#' @description Estudo em que sortearam-se 30 árvores, de um povoamento
+#'     de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+#'     com a finalidade de se estimar o diâmetro médio do povoamento.
 #' @format Um \code{vector} numérico com 30 observações.
 #' @keywords AAS
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -16,7 +16,6 @@
 #'
 #' hist(AndradeEx7.3,
 #'      prob = TRUE,
-#'      labels = TRUE,
 #'      col = "darkturquoise",
 #'      xlab = "Diâmetro (em cm)",
 #'      ylab = "Densidade",
@@ -24,7 +23,7 @@
 #'      ylim = c(0, 0.055))
 #'
 #' lines(density(AndradeEx7.3), lwd = 2)
-#' rug(AndradeEx7.3)
+#' rug(AndradeEx7.3, lwd = 2)
 #'
 #' boxplot(AndradeEx7.3,
 #'         ylab = "Diâmetro (em cm)")
@@ -33,4 +32,4 @@
 #' sd(AndradeEx7.3)
 #' fivenum(AndradeEx7.3)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb6.1.R b/R/AndradeTb6.1.R
index a5b7ab91dce29278b47be6922e7b10b649f0311a..d5fbbc9a18215266716d3d63398cf8bb2bb32b62 100644
--- a/R/AndradeTb6.1.R
+++ b/R/AndradeTb6.1.R
@@ -1,26 +1,22 @@
 #' @name AndradeTb6.1
-#' @title Produção por Planta de Maçãs das Cultivares Gala e Golden
-#' @description Estudo para avaliar a produção média por palnta da
-#'     cultivar de maçã denominada Gala, para as seguintes condições:
-#'     plantas com idade de aproximadamente 5 anos, em bom estado
-#'     fitossanitário, cultivadas com alta tecnologia e para a região I
-#'     do zoneamento agroclimático de Santa Catarina. A população é
-#'     formada por todas as plantas da cultivar Gala nas condições
-#'     citadas. Mais especificamente, a população é constituída por
-#'     todos os valores de produção por planta. Para essa finalidade,
-#'     foi coletado uma amostra aleatória de 10 plantas, da referida
-#'     cultivar nas condições descritas.
+#' @title Produção de Maçãs das Cultivares Gala e Golden
+#' @description Estudo para avaliar a produção média por planta das
+#'     cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+#'     com plantas nas seguintes condições: idade de aproximadamente 5
+#'     anos, em bom estado fitossanitário, cultivadas com alta
+#'     tecnologia e para a região I do zoneamento agroclimático de Santa
+#'     Catarina. A produção foi avaliada pelo peso de maças produzidas
+#'     por planta (macieira).
 #' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{varied}}{Fator de 2 níveis qualitativos, que são as
-#'     variedades de maçãs.}
+#' \item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
 #'
-#' \item{\code{prod}}{Produção por planta de maçãs, em kg.}
+#' \item{\code{prod}}{Produção da planta (macieira), em kg.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASI
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 #'     ciências agrárias e biológicas com noções de experimentação (2nd
 #'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.1, pág. 284)
@@ -29,9 +25,20 @@
 #' data(AndradeTb6.1)
 #' str(AndradeTb6.1)
 #'
-#' boxplot(prod ~ varied,
-#'         data = AndradeTb6.1,
-#'         xlab = "Variedade",
-#'         ylab = "Produção (kg)")
+#' with(AndradeTb6.1, by(prod, varied, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' bwplot(prod ~ varied,
+#'        data = AndradeTb6.1,
+#'        xlab = "Variedade",
+#'        ylab = "Produção (kg)")
+#'
+#' densityplot(~prod, groups = varied,
+#'             data = AndradeTb6.1,
+#'             auto.key = list(
+#'                 corner = c(0.9, 0.9),
+#'                 title = "Variedade das maças",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL
diff --git a/R/AndradeTb6.2.R b/R/AndradeTb6.2.R
index 9eb43cea205cf6c83d79256c32dc3586d58be0f1..9f2e0ed229829b72e943b9bd0746b8a9710fb66d 100644
--- a/R/AndradeTb6.2.R
+++ b/R/AndradeTb6.2.R
@@ -11,7 +11,7 @@
 #' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
 #'
 #' }
-#' @keywords CENSO
+#' @keywords contingência*
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 #'     ciências agrárias e biológicas com noções de experimentação (2nd
 #'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.2, pág. 289)
@@ -22,22 +22,22 @@
 #'
 #' # Gráfico de barras
 #' with(AndradeTb6.2, {
-#'   fr <- paste0("(", round(100 * freq / sum(freq)), "% )") 
-#'   bp <- barplot(freq, 
-#'                 names.arg = altura, 
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'   bp <- barplot(freq,
+#'                 names.arg = altura,
 #'                 col = "darkturquoise",
-#'                 beside = TRUE, 
+#'                 beside = TRUE,
 #'                 ylim = c(0, 5),
 #'                 xlab = "Altura das Alunas",
 #'                 ylab = "Frequência Absoluta")
-#'   text(bp, freq + 0.3, labels = paste(freq, fr)) 
-#'   }) 
+#'   text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+#'   })
 #'
-#' # Gráfico de setores 
-#' with(AndradeTb6.2, { 
+#' # Gráfico de setores
+#' with(AndradeTb6.2, {
 #'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
-#'   pie(freq, labels = paste(altura, "metros", fr), 
+#'   pie(freq, labels = paste(altura, "metros", fr),
 #'       col = gray.colors(length(freq)))
 #'   })
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/AndradeEx4.14.txt b/data-raw/AndradeEx4.14.txt
index 23357f32bdf73b8f3cb5997bc7e7ca154b9ad64a..36fab3c08a3757633510c6ac87c03a056324087c 100644
--- a/data-raw/AndradeEx4.14.txt
+++ b/data-raw/AndradeEx4.14.txt
@@ -1,4 +1,4 @@
-x	parcelas
+nplantas	nparc
 0	14
 1	8
 2	4
diff --git a/data-raw/AndradeEx4.9.txt b/data-raw/AndradeEx4.9.txt
index d9b0dcea5bc41157928208434e44b97be87ddbc1..cf0fab5159008b17302143c2b92680a79e42535a 100644
--- a/data-raw/AndradeEx4.9.txt
+++ b/data-raw/AndradeEx4.9.txt
@@ -1,4 +1,4 @@
-x	quadrados
+nplantas	nparc
 0	26
 1	21
 2	23
@@ -8,4 +8,3 @@ x	quadrados
 6	5
 7	4
 8	1
->8	0
diff --git a/data/AndradeEx4.14.rda b/data/AndradeEx4.14.rda
index a232daf9d3da4b1b3c6114ec1172ac6096a7cb36..dcea1d8ef2f75b5e7752c43e36bec4a6b35ec321 100644
Binary files a/data/AndradeEx4.14.rda and b/data/AndradeEx4.14.rda differ
diff --git a/data/AndradeEx4.9.rda b/data/AndradeEx4.9.rda
index d5d4bd1fd11b6ba9ac2714336ad807f9f9b94488..b28fc7b4ca3bed31ec7c60e2d50e65ab6460d30d 100644
Binary files a/data/AndradeEx4.9.rda and b/data/AndradeEx4.9.rda differ
diff --git a/man/AndradeEg7.5.Rd b/man/AndradeEg7.5.Rd
index 6c12d5afc447a48aa9af25bdcaf315e8b606f55a..ddab206b9be74d1968a2be9f2c2a283a5ac3c560 100644
--- a/man/AndradeEg7.5.Rd
+++ b/man/AndradeEg7.5.Rd
@@ -10,10 +10,10 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Exemplo 7.5, pág. 324)
 }
 \description{
-Sabendo-se que a distribuição dos pesos de pacotes de
-    sementes de milho enchidos automaticamente por uma certa máquina,
-    é normal, com desvio padrão conhecido e igual a 0,20kg, uma
-    amostra de 15 pacotes foi retirada ao acaso.
+Amostra de 15 pacotes de sementes de milho, enchidos por
+    uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+    são normalmente distribuídos com média [???] e desvio padrão 0,2
+    Kg.
 }
 \examples{
 
@@ -21,16 +21,13 @@ data(AndradeEg7.5)
 str(AndradeEg7.5)
 
 hist(AndradeEg7.5,
-     prob = TRUE,
      labels = TRUE,
      col = "darkturquoise",
      xlab = "Peso do Pacote (em kg)",
      ylab = "Densidade",
      main = NULL,
-     ylim = c(0, 2.8))
-
-lines(density(AndradeEg7.5), lwd = 2)
-rug(AndradeEg7.5)
+     border = "white")
+rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
 
 boxplot(AndradeEg7.5,
         ylab = "Peso do Pacote (em kg)")
diff --git a/man/AndradeEx4.14.Rd b/man/AndradeEx4.14.Rd
index 13d9e155d5e2fd80a6639b7cb5522b9c68348828..b965234b324a78a777371210b7c75af7079fe622 100644
--- a/man/AndradeEx4.14.Rd
+++ b/man/AndradeEx4.14.Rd
@@ -2,14 +2,15 @@
 % Please edit documentation in R/AndradeEx4.14.R
 \name{AndradeEx4.14}
 \alias{AndradeEx4.14}
-\title{Número de Parcelas com X Plantas Doentes}
+\title{Plantas Doentes no Cultivo de Mandioca}
 \format{Um \code{data.frame} com 5 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{x}}{Número de plantas doentes na parcela.}
+\item{\code{nplantas}}{Número de plantas doentes na parcela.}
 
-\item{\code{quadrados}}{Número de parcelas com x plantas doentes.}
+\item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+    doentes.}
 
 }}
 \source{
@@ -19,21 +20,25 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     14, pág. 239)
 }
 \description{
-Avaliaram-se 30 parcelas (área da terra de
-    \eqn{20 m^{2}}) de 27 plantas de mandioca cada uma, de acordo com
-    o número de plantas doentes colhidas.
+Avaliaram-se 30 parcelas (área da terra de \eqn{20
+    m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+    número de plantas doentes colhidas.
 }
 \examples{
 
 data(AndradeEx4.14)
 str(AndradeEx4.14)
 
-barplot(AndradeEx4.14$parcelas,
+# Média do número de plantas doentes por parcela
+with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+
+# Distribuição de frequências
+barplot(AndradeEx4.14$nparc,
         col = "darkturquoise",
-        names.arg = AndradeEx4.14$x,
+        names.arg = AndradeEx4.14$nplantas,
         xlab = "Número de Plantas Doentes na Parcela",
         ylab = "Número de Parcelas")
 
 }
-\keyword{DBC}
+\keyword{contingência*}
 
diff --git a/man/AndradeEx4.9.Rd b/man/AndradeEx4.9.Rd
index 2739ac3ccf5c88fe776218b2fd96fe514f8035a6..f89df1439c7850289586140c501aacbed875a102 100644
--- a/man/AndradeEx4.9.Rd
+++ b/man/AndradeEx4.9.Rd
@@ -2,14 +2,14 @@
 % Please edit documentation in R/AndradeEx4.9.R
 \name{AndradeEx4.9}
 \alias{AndradeEx4.9}
-\title{Número de Quadrados com X Plantas}
+\title{Ocorrências de Plantas \emph{Primula Sinensis} Selvagens}
 \format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{x}}{Número de plantas no quadrado.}
+\item{\code{nplantas}}{Número de plantas na parcela.}
 
-\item{\code{quadrados}}{Número de quadrados com x plantas.}
+\item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
 
 }}
 \source{
@@ -19,22 +19,27 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     9, pág. 238)
 }
 \description{
-Uma certa região florestal foi dividida em 109 quadrados
-    para estudar a distribuição de \emph{Primula simenses} selvagem.
-    A priori, supomos que essa espécie distribui-se aleatoriamente na
-    região.
+Uma certa região florestal foi dividida em 109 parcelas
+    de mesma área (quadrados) para se estudar a distribuição das
+    plantas \emph{Primula sinensis} selvagens na região. A priori,
+    supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
 }
 \examples{
 
 data(AndradeEx4.9)
 str(AndradeEx4.9)
 
-barplot(AndradeEx4.9$quadrados,
-        col = "darkturquoise",
-        names.arg = AndradeEx4.9$x,
-        xlab = "Número de Plantas no Quadrado",
-        ylab = "Número de Quadrados")
+#' # Média do número de plantas doentes por parcela
+with(AndradeEx4.9, weighted.mean(nplantas, nparc))
+
+# Distribuição de frequências
+txt <- barplot(AndradeEx4.9$nparc,
+               col = "darkturquoise",
+               names.arg = AndradeEx4.9$nplantas,
+               xlab = "Número de Plantas no Quadrado",
+               ylab = "Número de Quadrados")
+text(x = txt, y = AndradeEx4.9$nparc)
 
 }
-\keyword{AAS}
+\keyword{contingência*}
 
diff --git a/man/AndradeEx7.13.Rd b/man/AndradeEx7.13.Rd
index 84a7d5c3db9bed9e8adfe64a4801ed976f8ab39b..fc5f4b1887527d0d09a6dfeeff618e699960b97f 100644
--- a/man/AndradeEx7.13.Rd
+++ b/man/AndradeEx7.13.Rd
@@ -2,15 +2,14 @@
 % Please edit documentation in R/AndradeEx7.13.R
 \name{AndradeEx7.13}
 \alias{AndradeEx7.13}
-\title{Estudo do Desenvolvimento de Duas Espécies de Árvores}
+\title{Comparação de Alturas de Duas Espécies de Árvores}
 \format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{arvore}}{Fator de 2 níveis qualitativos, que são as
-    espécies das árvores.}
+\item{\code{arvore}}{Espécies da árvore.}
 
-\item{\code{altura}}{Altura das árvores, em metros.}
+\item{\code{altura}}{Altura da árvore, em metros.}
 
 }}
 \source{
@@ -20,22 +19,26 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     13, pág. 344)
 }
 \description{
-Estudo, realizado por um agrônomo, sobre o
-    desenvolvimento de duas espécies de árvores, a Bracatinga e a
-    Canafístula. Para essa finalidade foram coletadas duas amostras
-    de tamanhos iguais a 10 árvores.
+Estudo realizado por um agrônomo sobre o desenvolvimento
+    de duas espécies de árvores, a Bracatinga e a Canafístula. O
+    desenvolvimento foi mensurado com base na altura das árvores.
 }
 \examples{
 
 data(AndradeEx7.13)
 str(AndradeEx7.13)
 
+with(AndradeEx7.13, by(altura, arvore, summary))
+
 library(lattice)
-dotplot(altura ~ arvore,
-        data = AndradeEx7.13,
-        xlab = "Espécie",
-        ylab = "Altura (m)")
+densityplot(~altura, groups = arvore,
+            data = AndradeEx7.13,
+            auto.key = list(
+                corner = c(0.9, 0.9),
+                title = "Espécie da árvore",
+                cex.title = 1
+            ))
 
 }
-\keyword{DBC}
+\keyword{AASI}
 
diff --git a/man/AndradeEx7.3.Rd b/man/AndradeEx7.3.Rd
index 195ae98d7552de8aa7de18838416ece9ecfc4d0b..89ef43dcfd9443c6387196e2bd586d0afc825bd2 100644
--- a/man/AndradeEx7.3.Rd
+++ b/man/AndradeEx7.3.Rd
@@ -11,9 +11,9 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     3, pág. 342)
 }
 \description{
-De um povoamento de eucaliptos, sortearam-se 30 árvores
-    e determinaram-se os diâmetros, em cm, com a finalidade de
-    estimar o diâmetro médio do povoamento.
+Estudo em que sortearam-se 30 árvores, de um povoamento
+    de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+    com a finalidade de se estimar o diâmetro médio do povoamento.
 }
 \examples{
 
@@ -22,7 +22,6 @@ str(AndradeEx7.3)
 
 hist(AndradeEx7.3,
      prob = TRUE,
-     labels = TRUE,
      col = "darkturquoise",
      xlab = "Diâmetro (em cm)",
      ylab = "Densidade",
@@ -30,7 +29,7 @@ hist(AndradeEx7.3,
      ylim = c(0, 0.055))
 
 lines(density(AndradeEx7.3), lwd = 2)
-rug(AndradeEx7.3)
+rug(AndradeEx7.3, lwd = 2)
 
 boxplot(AndradeEx7.3,
         ylab = "Diâmetro (em cm)")
diff --git a/man/AndradeTb6.1.Rd b/man/AndradeTb6.1.Rd
index cd87660987d5f48742b7b911b2119917c4de228f..29956a5472c59343af7f9406fdcd3cc20ad9bc16 100644
--- a/man/AndradeTb6.1.Rd
+++ b/man/AndradeTb6.1.Rd
@@ -2,15 +2,14 @@
 % Please edit documentation in R/AndradeTb6.1.R
 \name{AndradeTb6.1}
 \alias{AndradeTb6.1}
-\title{Produção por Planta de Maçãs das Cultivares Gala e Golden}
+\title{Produção de Maçãs das Cultivares Gala e Golden}
 \format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{varied}}{Fator de 2 níveis qualitativos, que são as
-    variedades de maçãs.}
+\item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
 
-\item{\code{prod}}{Produção por planta de maçãs, em kg.}
+\item{\code{prod}}{Produção da planta (macieira), em kg.}
 
 }}
 \source{
@@ -19,27 +18,35 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.1, pág. 284)
 }
 \description{
-Estudo para avaliar a produção média por palnta da
-    cultivar de maçã denominada Gala, para as seguintes condições:
-    plantas com idade de aproximadamente 5 anos, em bom estado
-    fitossanitário, cultivadas com alta tecnologia e para a região I
-    do zoneamento agroclimático de Santa Catarina. A população é
-    formada por todas as plantas da cultivar Gala nas condições
-    citadas. Mais especificamente, a população é constituída por
-    todos os valores de produção por planta. Para essa finalidade,
-    foi coletado uma amostra aleatória de 10 plantas, da referida
-    cultivar nas condições descritas.
+Estudo para avaliar a produção média por planta das
+    cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+    com plantas nas seguintes condições: idade de aproximadamente 5
+    anos, em bom estado fitossanitário, cultivadas com alta
+    tecnologia e para a região I do zoneamento agroclimático de Santa
+    Catarina. A produção foi avaliada pelo peso de maças produzidas
+    por planta (macieira).
 }
 \examples{
 
 data(AndradeTb6.1)
 str(AndradeTb6.1)
 
-boxplot(prod ~ varied,
-        data = AndradeTb6.1,
-        xlab = "Variedade",
-        ylab = "Produção (kg)")
+with(AndradeTb6.1, by(prod, varied, summary))
+
+library(lattice)
+bwplot(prod ~ varied,
+       data = AndradeTb6.1,
+       xlab = "Variedade",
+       ylab = "Produção (kg)")
+
+densityplot(~prod, groups = varied,
+            data = AndradeTb6.1,
+            auto.key = list(
+                corner = c(0.9, 0.9),
+                title = "Variedade das maças",
+                cex.title = 1
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeTb6.2.Rd b/man/AndradeTb6.2.Rd
index b08186001ac8b28c51fdf8bfe8ff0e8601894631..1877cd4d0d071ce7418b739cb868fd468d43dc5f 100644
--- a/man/AndradeTb6.2.Rd
+++ b/man/AndradeTb6.2.Rd
@@ -28,24 +28,24 @@ str(AndradeTb6.2)
 
 # Gráfico de barras
 with(AndradeTb6.2, {
-  fr <- paste0("(", round(100 * freq / sum(freq)), "\% )") 
-  bp <- barplot(freq, 
-                names.arg = altura, 
+  fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+  bp <- barplot(freq,
+                names.arg = altura,
                 col = "darkturquoise",
-                beside = TRUE, 
+                beside = TRUE,
                 ylim = c(0, 5),
                 xlab = "Altura das Alunas",
                 ylab = "Frequência Absoluta")
-  text(bp, freq + 0.3, labels = paste(freq, fr)) 
-  }) 
+  text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+  })
 
-# Gráfico de setores 
-with(AndradeTb6.2, { 
+# Gráfico de setores
+with(AndradeTb6.2, {
   fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
-  pie(freq, labels = paste(altura, "metros", fr), 
+  pie(freq, labels = paste(altura, "metros", fr),
       col = gray.colors(length(freq)))
   })
 
 }
-\keyword{CENSO}
+\keyword{contingência*}