diff --git a/R/AndradeEx7.15.R b/R/AndradeEx7.15.R
index 2ec950d86836c0b6de9f286d2f3b3d57dd203ade..fcaf743d94dc96c69fd0ca646d42c079ec2c8f44 100644
--- a/R/AndradeEx7.15.R
+++ b/R/AndradeEx7.15.R
@@ -1,10 +1,12 @@
 #' @name AndradeEx7.15
-#' @title DAP de Forófitos Possuidores de \emph{Vriesea incurvata}
-#' @description Estudo sobre os valores de DAP (Diâmetro à Altura do
-#'     Peito), em cm, de uma amostra piloto de forófitos possuidores de
-#'     \emph{Vriesea incurvata} (bromélia, conhecida como espada de
-#'     Davi), em vegetação primária da Floresta Tropical Atlântica, em
-#'     Santo Amaro da Imperatriz, SC.
+#' @title Diâmetro de Forófitos Possuidores de Bromélias \emph{Vriesea
+#'     incurvata}
+#' @description Estudo sobre os valores de diâmetro à altura do peito
+#'     (DAP), em centímetros, de uma amostra piloto de forófitos,
+#'     árvores suporte para epífitas, possuidores de \emph{Vriesea
+#'     incurvata} (bromélia, conhecida como espada de Davi), em
+#'     vegetação primária da Floresta Tropical Atlântica, em Santo Amaro
+#'     da Imperatriz, SC.
 #' @format Um \code{vector} numérico com 30 observações.
 #' @keywords AAS
 #' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -13,8 +15,6 @@
 #'     15, pág. 346)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeEx7.15)
 #' str(AndradeEx7.15)
 #'
@@ -26,7 +26,6 @@
 #'      col = "darkturquoise",
 #'      xlab = "DAP (cm)",
 #'      ylab = "Densidade")
-#'
 #' lines(density(AndradeEx7.15), lwd = 2)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx8.11.R b/R/AndradeEx8.11.R
index 81fee5b7797b7d5d5d4b6fc1556766b5ff9a5124..e35695d318e0096e2e34f6c4fb67bf1156d173f7 100644
--- a/R/AndradeEx8.11.R
+++ b/R/AndradeEx8.11.R
@@ -17,7 +17,7 @@
 #' \item{\code{peso}}{Peso do animais, em kg.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASP
 #' @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 8, Exercício
@@ -27,15 +27,23 @@
 #' data(AndradeEx8.11)
 #' str(AndradeEx8.11)
 #'
+#' # Dados apresentados em formato largo ("wide")
+#' library(reshape2)
+#' (da <- dcast(AndradeEx8.11, animal ~ estado, value.var = "peso"))
+#'
+#' # Pares de peso para cada animal
 #' library(lattice)
-#' dotplot(jitter(peso) ~ animal,
+#' dotplot(animal ~ peso,
 #'         groups = estado,
 #'         auto.key = list(title = "Estado",
 #'                         cex.title = 1.1,
 #'                         columns = 2),
-#'         type = "o",
 #'         data = AndradeEx8.11,
-#'         xlab = "Animal",
-#'         ylab = "Peso (kg)")
+#'         xlab = "Peso (kg)",
+#'         ylab = "Animal")
+#'
+#' # Distribuição das diferenças
+#' densityplot(~jejum - vivo, data = da)
 #'
-NULL
\ No newline at end of file
+
+NULL
diff --git a/R/AndradeEx8.13.R b/R/AndradeEx8.13.R
index 2b43db25afd38ec32b1d66d58bc77ebe0055203a..c9eaaa2504f3f3ebdbd9d6186f5890d851e5ad70 100644
--- a/R/AndradeEx8.13.R
+++ b/R/AndradeEx8.13.R
@@ -1,22 +1,21 @@
 #' @name AndradeEx8.13
-#' @title Estudo do Desenvolvimento das Espécies Bracatinga e
-#'     Canafístula
-#' @description Estudo, realizado por um agrônomo, sobre o
-#'     desenvolvimento de duas espécies de árvores, a Bracatinga (
-#'     \emph{Mimosa scabrella} e a Canafístula \emph{Peltophorum
-#'     dubium}. Para essa finalidade foram coletadas duas amostras de
-#'     tamanhos iguais a 30 árvores.
+#' @title Altura de Árvores Bracatinga e Canafístula
+#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
+#'     de duas espécies de árvores, Bracatinga (\emph{Mimosa scabrella})
+#'     e Canafístula (\emph{Peltophorum dubium}). O objetivo é
+#'     verificar diferença entre o densenvolvimento das duas espécies,
+#'     para tal uma amostra de 30 árvores foi avaliada. O
+#'     desenvolvimento foi mensurado pela altura das altura das árvores.
 #' @format Um \code{data.frame} com 60 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{arvores}}{Fator de 2 níveis qualitativos, que são as
-#'     espécies de árvores.}
+#' \item{\code{arvores}}{Espécie da árvore, Bracatinga ou Canafístula.}
 #'
-#' \item{\code{altura}}{Altura das árvores, em metros.}
+#' \item{\code{altura}}{Altura da árvore, em metros.}
 #'
 #' }
-#' @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. (Capítulo 8, Exercício
@@ -26,9 +25,15 @@
 #' data(AndradeEx8.13)
 #' str(AndradeEx8.13)
 #'
-#' boxplot(altura ~ arvores,
-#'         data = AndradeEx8.13,
-#'         xlab = "Árvore",
-#'         ylab = "Altura (m)")
+#' with(AndradeEx8.13, by(altura, arvores, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~altura, groups = arvores,
+#'             data = AndradeEx8.13,
+#'             auto.key = list(
+#'                 title = "Espécies",
+#'                 cex.title = 1,
+#'                 corner = c(0.9, 0.95)
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx8.17.R b/R/AndradeEx8.17.R
index 61750419b0b2d1ab74c9ef7bf9d60106ebc35e4c..f7914e30c08ecfc5359442517c853ed701ec3fd5 100644
--- a/R/AndradeEx8.17.R
+++ b/R/AndradeEx8.17.R
@@ -4,24 +4,22 @@
 #'     da espécie \emph{Mandevilla velutina} (Apocinácea), proveniente
 #'     de duas regiões: cerrado e restinga. Após isolar os explantes,
 #'     com um nó com duas gemas axilares, obtidos das plantas matrizes,
-#'     foi instalado o experimento com delineamento inteiramente
+#'     foi instalado o experimento em delineamento inteiramente
 #'     casualizado com 20 repetições (20 explantes para o cerrado de 20
-#'     para a restinga); portanto, temos um total de 40 unidades
-#'     experimentais. A variável utilizada foi a altura em cm dos
-#'     explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
-#'     45 dias.
+#'     para a restinga), totalizando 40 unidades experimentais. A
+#'     variável mensurada foi a altura em centímetros dos explantes de
+#'     \emph{Mandevilla}, cultivadas \emph{in vitro} durante 45 dias.
 #' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{regiao}}{Fator de 2 níveis qualitativos, que indica a
-#'     região da plantação.}
+#' \item{\code{regiao}}{Região da plantação (Cerrado ou Rastinga).}
 #'
-#' \item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
-#'     cultivadas \emph{in vitro} durante 45 dias.}
+#' \item{\code{altura}}{Altura, em centímetros, dos explantes de
+#'     \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
 #'
 #' }
-#' @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. (Capítulo 8, Exercício
@@ -31,9 +29,15 @@
 #' data(AndradeEx8.17)
 #' str(AndradeEx8.17)
 #'
-#' boxplot(altura ~ regiao,
-#'         data = AndradeEx8.17,
-#'         xlab = "Região",
-#'         ylab = "Altura (cm)")
+#' with(AndradeEx8.17, by(altura, regiao, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~altura, groups = regiao,
+#'             data = AndradeEx8.17,
+#'             auto.key = list(
+#'                 title = "Região",
+#'                 cex.title = 1,
+#'                 corner = c(0.9, 0.95)
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx8.23.R b/R/AndradeEx8.23.R
index cb2fbbb81531525b30bf9b5c735f12e8a63c7857..0bf6953687dbb19ee2c7f1c3cb2de9740e41f1d3 100644
--- a/R/AndradeEx8.23.R
+++ b/R/AndradeEx8.23.R
@@ -3,21 +3,19 @@
 #' @description Estudo para verificar a influência da incidência solar
 #'     sobre a produção de espiguetas nas gramíneas da espécie
 #'     \emph{Paspalum notatum} Flügge, conhecida como grama batatais.
-#'     Com esta finalidade efetuou-se a contagem das espiguetas
-#'     produzidas pelas plantas em dois locais, quais sejam: adjacentes
-#'     ao sol e à sombra leve.
+#'     Realizou-se no estudo a contagem das espiguetas produzidas pelas
+#'     plantas em dois locais: adjacentes ao sol e à sombra leve.
 #' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ambiente}}{Fator de 2 níveis qualitativos, que indica se
-#'     o ambiente é iluminado ou sombrio.}
+#' \item{\code{ambiente}}{Indica se o ambiente é iluminado ou sombrio.}
 #'
-#' \item{\code{espiguetas}}{Produção de espiguetas nas gramíneas da
+#' \item{\code{espiguetas}}{Contagem de espiguetas nas gramíneas da
 #'     espécie \emph{Paspalum notatum} Flügge.}
 #'
 #' }
-#' @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. (Capítulo 8, Exercício
@@ -27,9 +25,15 @@
 #' data(AndradeEx8.23)
 #' str(AndradeEx8.23)
 #'
-#' boxplot(espiguetas ~ ambiente,
-#'         data = AndradeEx8.23,
-#'         xlab = "Ambiente",
-#'         ylab = "Produção de Espiguetas")
+#' with(AndradeEx8.23, by(espiguetas, ambiente, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~espiguetas, groups = ambiente,
+#'             data = AndradeEx8.23,
+#'             auto.key = list(
+#'                 title = "Ambiente",
+#'                 cex.title = 1,
+#'                 corner = c(0.9, 0.95)
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
index 9b4eb017556d61e138222a10fd876c438c33594f..ff321ef8c1ce69318da335c9032bba96c6be48ce 100644
--- a/R/AndradeEx8.9.R
+++ b/R/AndradeEx8.9.R
@@ -3,7 +3,7 @@
 #' @description Estudo sobre a possibilidade da quantidade de proteínas
 #'     totais no plasma, depois de determinada operação em portadores de
 #'     esquistossomose mansônica, ser diferente da quantidade de antes
-#'     da operação.
+#'     da operação.[VERIFICAR DESCRICAO]
 #' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -18,7 +18,7 @@
 #' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASP
 #' @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 8, Exercício
@@ -28,15 +28,27 @@
 #' data(AndradeEx8.9)
 #' str(AndradeEx8.9)
 #'
+#' # Dados apresentados em formato largo ("wide")
+#' library(reshape2)
+#' (da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
+#'
+#' # Pares de peso para cada animal
 #' library(lattice)
-#' dotplot(jitter(prot) ~ paciente,
+#' dotplot(prot ~ paciente,
 #'         groups = periodo,
 #'         auto.key = list(title = "Período",
 #'                         cex.title = 1.1,
 #'                         columns = 2),
-#'         type = "o",
+#'         type = "p",
 #'         data = AndradeEx8.9,
 #'         xlab = "Paciente",
 #'         ylab = "Quantidade de Proteínas Totais no Plasma")
 #'
-NULL
\ No newline at end of file
+#' # Distribuição das diferenças
+#' densityplot(~antes - depois, data = da)
+#'
+#' # Testes de hipóteses
+#' t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
+#' t.test(da$antes - da$depois)
+#'
+NULL
diff --git a/R/AndradeTb8.6.R b/R/AndradeTb8.6.R
index 337e930aaa36af9ba4ab08d7a1c3cdd5d57ed707..6e8195507f9e15a2b03dec92c844092728540d31 100644
--- a/R/AndradeTb8.6.R
+++ b/R/AndradeTb8.6.R
@@ -1,48 +1,40 @@
 #' @name AndradeTb8.6
-#' @title Experimento de Avaliação de Classes Fenotípicas de Plantas
-#'     Dihíbridas
+#' @title Avaliação de Classes Fenotípicas de Plantas Dihíbridas
 #' @description Na descendência obtida de cruzamentos entre plantas
-#'     puras de ervilhas com sementes amarelas lisas e outras de
-#'     sementes verdes rugosas, obtemos na primeira geração (F1),
-#'     ervilhas amarelas lisas. Estas, por autofecundação, produzem, na
+#'     puras de ervilhas com sementes amarelas lisas e outras com
+#'     sementes verdes rugosas, obtêm-se na primeira geração (F1),
+#'     ervilhas amarelas lisas. Essas, por autofecundação, produzem, na
 #'     segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
-#'     verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
-#'     experimento avalia se o padrão de segregação dos caracteres
-#'     envolvidos segue aquele proposto pela segunda lei de Mendel (lei
-#'     da segregação independente), que diz que as proporções esperadas
-#'     para esses tipos de ervilhas são: 9/16, 3/16, 3/16 e 1/16,
-#'     respectivamente.
+#'     verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+#'     segunda lei de Mendel (lei da segregação independente), as
+#'     proporções esperadas para esses tipos de ervilhas são: 9/16,
+#'     3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+#'     experimento é avaliar se o padrão de segregação dos caracteres
+#'     envolvidos segue o proposto pela segunda lei de Mendel.
 #' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{textura}}{Fator de 2 níveis qualitativos, que são as
-#'     texturas das ervilhas.}
+#' \item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
 #'
-#' \item{\code{cor}}{Fator de 2 níveis qualitativos, que são as cores
-#'     das ervilhas.}
+#' \item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
 #'
 #' \item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
 #'
 #' }
-#' @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. (Tabela 8.6, pág. 372)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeTb8.6)
 #' str(AndradeTb8.6)
 #'
-#' xyplot(freq ~ cor,
-#'        groups = textura,
-#'        data = AndradeTb8.6,
-#'        auto.key = list(title = "Textura",
-#'                        cex.title = 1.1,
-#'                        columns = 2),
-#'        xlab = "Cor",
-#'        ylab = "Frequência")
+#' (xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+#' prop.table(xt)
+#'
+#' plot(xt, cex.axis = 1, main = "")
+#' barplot(xt, legend.text = TRUE)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb8.7.R b/R/AndradeTb8.7.R
index 4c3cba29d5dcad01f4d17a6fa4ddfa89153af8a4..a6399013420ad92bc4a001ddd95951a9722b585e 100644
--- a/R/AndradeTb8.7.R
+++ b/R/AndradeTb8.7.R
@@ -1,22 +1,20 @@
 #' @name AndradeTb8.7
-#' @title Número de Árvores por Quadrante de \emph{Guapira opposita}
-#' @description Estudo sobre o número de árvores por quadrante da
-#'     espécie \emph{Guapira opposita}, realizado com o objetivo de
-#'     verificar a distribuição espacial dessa espécie num local de
-#'     restinga. Foi utilizado um total de 94 quadrantes e contou-se o
-#'     número de quadrantes com zero árvores, uma árvore, duas árvores,
-#'     e assim por diante.
+#' @title Número de Árvores \emph{Guapira opposita} em Restinga
+#' @description Estudo sobre o número de árvores da espécie
+#'     \emph{Guapira opposita} em local de restinga. Estudo realizado
+#'     com o objetivo de verificar a distribuição das árvores em local
+#'     de restinga. A área avaliada foi dividida em 94 quadrantes de
+#'     mesma área e contou-se o número de árvores por quadrante.
 #' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{arvores}}{Fator de 10 níveis qualitativos, que representa
-#'     o número de árvores por quadrante.}
+#' \item{\code{arvores}}{Número de árvores por quadrante.}
 #'
-#' \item{\code{quadr}}{Número de quandrantes com X árvores.}
+#' \item{\code{quadr}}{Número de quadrantes com \code{arvores} árvores.}
 #'
 #' }
-#' @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. (Tabela 8.7, pág. 374)
@@ -31,4 +29,4 @@
 #'         xlab = "Número de Árvores",
 #'         ylab = "Número de Quadrandres")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data/AndradeEx8.23.rda b/data/AndradeEx8.23.rda
index 0612e4e81f8aab29a9bdaad63c08740667aac2fa..de6e99892af8298837dd8d43691dc66f17d97de5 100644
Binary files a/data/AndradeEx8.23.rda and b/data/AndradeEx8.23.rda differ
diff --git a/data/AndradeTb8.7.rda b/data/AndradeTb8.7.rda
index 34929f63576975092b3e33acc1f899c881a2f8b3..b9a9cf56c92852c1b3772cc7c6769c6ca0e455f1 100644
Binary files a/data/AndradeTb8.7.rda and b/data/AndradeTb8.7.rda differ
diff --git a/man/AndradeEx7.15.Rd b/man/AndradeEx7.15.Rd
index af011b7ec3d1206e53f7f385214933500cb5518d..bdbbef55d6ba7f98312eef15d07e48e36917d10c 100644
--- a/man/AndradeEx7.15.Rd
+++ b/man/AndradeEx7.15.Rd
@@ -2,7 +2,8 @@
 % Please edit documentation in R/AndradeEx7.15.R
 \name{AndradeEx7.15}
 \alias{AndradeEx7.15}
-\title{DAP de Forófitos Possuidores de \emph{Vriesea incurvata}}
+\title{Diâmetro de Forófitos Possuidores de Bromélias \emph{Vriesea
+    incurvata}}
 \format{Um \code{vector} numérico com 30 observações.}
 \source{
 Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -11,16 +12,15 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     15, pág. 346)
 }
 \description{
-Estudo sobre os valores de DAP (Diâmetro à Altura do
-    Peito), em cm, de uma amostra piloto de forófitos possuidores de
-    \emph{Vriesea incurvata} (bromélia, conhecida como espada de
-    Davi), em vegetação primária da Floresta Tropical Atlântica, em
-    Santo Amaro da Imperatriz, SC.
+Estudo sobre os valores de diâmetro à altura do peito
+    (DAP), em centímetros, de uma amostra piloto de forófitos,
+    árvores suporte para epífitas, possuidores de \emph{Vriesea
+    incurvata} (bromélia, conhecida como espada de Davi), em
+    vegetação primária da Floresta Tropical Atlântica, em Santo Amaro
+    da Imperatriz, SC.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeEx7.15)
 str(AndradeEx7.15)
 
@@ -32,7 +32,6 @@ hist(AndradeEx7.15,
      col = "darkturquoise",
      xlab = "DAP (cm)",
      ylab = "Densidade")
-
 lines(density(AndradeEx7.15), lwd = 2)
 
 }
diff --git a/man/AndradeEx8.11.Rd b/man/AndradeEx8.11.Rd
index c0fe89c321bec6f5d3ec5b54cb883166cc5fbc70..828100fe9196964c3e7be5b666bb8edb7b206732 100644
--- a/man/AndradeEx8.11.Rd
+++ b/man/AndradeEx8.11.Rd
@@ -33,17 +33,24 @@ Para comparar o peso vivo e o peso jejum do gado crioulo
 data(AndradeEx8.11)
 str(AndradeEx8.11)
 
+# Dados apresentados em formato largo ("wide")
+library(reshape2)
+(da <- dcast(AndradeEx8.11, animal ~ estado, value.var = "peso"))
+
+# Pares de peso para cada animal
 library(lattice)
-dotplot(jitter(peso) ~ animal,
+dotplot(animal ~ peso,
         groups = estado,
         auto.key = list(title = "Estado",
                         cex.title = 1.1,
                         columns = 2),
-        type = "o",
         data = AndradeEx8.11,
-        xlab = "Animal",
-        ylab = "Peso (kg)")
+        xlab = "Peso (kg)",
+        ylab = "Animal")
+
+# Distribuição das diferenças
+densityplot(~jejum - vivo, data = da)
 
 }
-\keyword{AAS}
+\keyword{AASP}
 
diff --git a/man/AndradeEx8.13.Rd b/man/AndradeEx8.13.Rd
index 2ed2bdb502965dc22843ee7356a5fd917bd21395..9a3459a25af293588ba254b602732400c609b623 100644
--- a/man/AndradeEx8.13.Rd
+++ b/man/AndradeEx8.13.Rd
@@ -2,16 +2,14 @@
 % Please edit documentation in R/AndradeEx8.13.R
 \name{AndradeEx8.13}
 \alias{AndradeEx8.13}
-\title{Estudo do Desenvolvimento das Espécies Bracatinga e
-    Canafístula}
+\title{Altura de Árvores Bracatinga e Canafístula}
 \format{Um \code{data.frame} com 60 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{arvores}}{Fator de 2 níveis qualitativos, que são as
-    espécies de árvores.}
+\item{\code{arvores}}{Espécie da árvore, Bracatinga ou Canafístula.}
 
-\item{\code{altura}}{Altura das árvores, em metros.}
+\item{\code{altura}}{Altura da árvore, em metros.}
 
 }}
 \source{
@@ -21,22 +19,29 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     13, pág. 410)
 }
 \description{
-Estudo, realizado por um agrônomo, sobre o
-    desenvolvimento de duas espécies de árvores, a Bracatinga (
-    \emph{Mimosa scabrella} e a Canafístula \emph{Peltophorum
-    dubium}. Para essa finalidade foram coletadas duas amostras de
-    tamanhos iguais a 30 árvores.
+Estudo realizado por um agrônomo sobre o desenvolvimento
+    de duas espécies de árvores, Bracatinga (\emph{Mimosa scabrella})
+    e Canafístula (\emph{Peltophorum dubium}). O objetivo é
+    verificar diferença entre o densenvolvimento das duas espécies,
+    para tal uma amostra de 30 árvores foi avaliada. O
+    desenvolvimento foi mensurado pela altura das altura das árvores.
 }
 \examples{
 
 data(AndradeEx8.13)
 str(AndradeEx8.13)
 
-boxplot(altura ~ arvores,
-        data = AndradeEx8.13,
-        xlab = "Árvore",
-        ylab = "Altura (m)")
+with(AndradeEx8.13, by(altura, arvores, summary))
+
+library(lattice)
+densityplot(~altura, groups = arvores,
+            data = AndradeEx8.13,
+            auto.key = list(
+                title = "Espécies",
+                cex.title = 1,
+                corner = c(0.9, 0.95)
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeEx8.17.Rd b/man/AndradeEx8.17.Rd
index 1a1bb3f432f9812e03293e3f99610db84e94faaa..1b3957b7825eaf5fce2d2583a6af99ed392e960d 100644
--- a/man/AndradeEx8.17.Rd
+++ b/man/AndradeEx8.17.Rd
@@ -7,11 +7,10 @@
 
 \describe{
 
-\item{\code{regiao}}{Fator de 2 níveis qualitativos, que indica a
-    região da plantação.}
+\item{\code{regiao}}{Região da plantação (Cerrado ou Rastinga).}
 
-\item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
-    cultivadas \emph{in vitro} durante 45 dias.}
+\item{\code{altura}}{Altura, em centímetros, dos explantes de
+    \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
 
 }}
 \source{
@@ -25,23 +24,28 @@ Experimento para avaliar o comportamento \emph{in vitro}
     da espécie \emph{Mandevilla velutina} (Apocinácea), proveniente
     de duas regiões: cerrado e restinga. Após isolar os explantes,
     com um nó com duas gemas axilares, obtidos das plantas matrizes,
-    foi instalado o experimento com delineamento inteiramente
+    foi instalado o experimento em delineamento inteiramente
     casualizado com 20 repetições (20 explantes para o cerrado de 20
-    para a restinga); portanto, temos um total de 40 unidades
-    experimentais. A variável utilizada foi a altura em cm dos
-    explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
-    45 dias.
+    para a restinga), totalizando 40 unidades experimentais. A
+    variável mensurada foi a altura em centímetros dos explantes de
+    \emph{Mandevilla}, cultivadas \emph{in vitro} durante 45 dias.
 }
 \examples{
 
 data(AndradeEx8.17)
 str(AndradeEx8.17)
 
-boxplot(altura ~ regiao,
-        data = AndradeEx8.17,
-        xlab = "Região",
-        ylab = "Altura (cm)")
+with(AndradeEx8.17, by(altura, regiao, summary))
+
+library(lattice)
+densityplot(~altura, groups = regiao,
+            data = AndradeEx8.17,
+            auto.key = list(
+                title = "Região",
+                cex.title = 1,
+                corner = c(0.9, 0.95)
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeEx8.23.Rd b/man/AndradeEx8.23.Rd
index 42dc9cf681c5bbdfb9e69b962a868d02e529e2a2..c0105a637563afda76f68a3f94eef534d6eb354c 100644
--- a/man/AndradeEx8.23.Rd
+++ b/man/AndradeEx8.23.Rd
@@ -7,10 +7,9 @@
 
 \describe{
 
-\item{\code{ambiente}}{Fator de 2 níveis qualitativos, que indica se
-    o ambiente é iluminado ou sombrio.}
+\item{\code{ambiente}}{Indica se o ambiente é iluminado ou sombrio.}
 
-\item{\code{espiguetas}}{Produção de espiguetas nas gramíneas da
+\item{\code{espiguetas}}{Contagem de espiguetas nas gramíneas da
     espécie \emph{Paspalum notatum} Flügge.}
 
 }}
@@ -24,20 +23,25 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 Estudo para verificar a influência da incidência solar
     sobre a produção de espiguetas nas gramíneas da espécie
     \emph{Paspalum notatum} Flügge, conhecida como grama batatais.
-    Com esta finalidade efetuou-se a contagem das espiguetas
-    produzidas pelas plantas em dois locais, quais sejam: adjacentes
-    ao sol e à sombra leve.
+    Realizou-se no estudo a contagem das espiguetas produzidas pelas
+    plantas em dois locais: adjacentes ao sol e à sombra leve.
 }
 \examples{
 
 data(AndradeEx8.23)
 str(AndradeEx8.23)
 
-boxplot(espiguetas ~ ambiente,
-        data = AndradeEx8.23,
-        xlab = "Ambiente",
-        ylab = "Produção de Espiguetas")
+with(AndradeEx8.23, by(espiguetas, ambiente, summary))
+
+library(lattice)
+densityplot(~espiguetas, groups = ambiente,
+            data = AndradeEx8.23,
+            auto.key = list(
+                title = "Ambiente",
+                cex.title = 1,
+                corner = c(0.9, 0.95)
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
index 84f9223d48d45dbae5e604fe05fc8a5b8e54e326..d5933b89482cd326d81c734e84444baf63029cbe 100644
--- a/man/AndradeEx8.9.Rd
+++ b/man/AndradeEx8.9.Rd
@@ -27,24 +27,36 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 Estudo sobre a possibilidade da quantidade de proteínas
     totais no plasma, depois de determinada operação em portadores de
     esquistossomose mansônica, ser diferente da quantidade de antes
-    da operação.
+    da operação.[VERIFICAR DESCRICAO]
 }
 \examples{
 
 data(AndradeEx8.9)
 str(AndradeEx8.9)
 
+# Dados apresentados em formato largo ("wide")
+library(reshape2)
+(da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
+
+# Pares de peso para cada animal
 library(lattice)
-dotplot(jitter(prot) ~ paciente,
+dotplot(prot ~ paciente,
         groups = periodo,
         auto.key = list(title = "Período",
                         cex.title = 1.1,
                         columns = 2),
-        type = "o",
+        type = "p",
         data = AndradeEx8.9,
         xlab = "Paciente",
         ylab = "Quantidade de Proteínas Totais no Plasma")
 
+# Distribuição das diferenças
+densityplot(~antes - depois, data = da)
+
+# Testes de hipóteses
+t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
+t.test(da$antes - da$depois)
+
 }
-\keyword{AAS}
+\keyword{AASP}
 
diff --git a/man/AndradeTb8.6.Rd b/man/AndradeTb8.6.Rd
index 90bef0f5a3f2a8c01b4a155063c9ac138360633d..acc1f6737d31a0a22464a1e4f914585eb407aee0 100644
--- a/man/AndradeTb8.6.Rd
+++ b/man/AndradeTb8.6.Rd
@@ -2,17 +2,14 @@
 % Please edit documentation in R/AndradeTb8.6.R
 \name{AndradeTb8.6}
 \alias{AndradeTb8.6}
-\title{Experimento de Avaliação de Classes Fenotípicas de Plantas
-    Dihíbridas}
+\title{Avaliação de Classes Fenotípicas de Plantas Dihíbridas}
 \format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
 
 \describe{
 
-\item{\code{textura}}{Fator de 2 níveis qualitativos, que são as
-    texturas das ervilhas.}
+\item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
 
-\item{\code{cor}}{Fator de 2 níveis qualitativos, que são as cores
-    das ervilhas.}
+\item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
 
 \item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
 
@@ -24,33 +21,28 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 }
 \description{
 Na descendência obtida de cruzamentos entre plantas
-    puras de ervilhas com sementes amarelas lisas e outras de
-    sementes verdes rugosas, obtemos na primeira geração (F1),
-    ervilhas amarelas lisas. Estas, por autofecundação, produzem, na
+    puras de ervilhas com sementes amarelas lisas e outras com
+    sementes verdes rugosas, obtêm-se na primeira geração (F1),
+    ervilhas amarelas lisas. Essas, por autofecundação, produzem, na
     segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
-    verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
-    experimento avalia se o padrão de segregação dos caracteres
-    envolvidos segue aquele proposto pela segunda lei de Mendel (lei
-    da segregação independente), que diz que as proporções esperadas
-    para esses tipos de ervilhas são: 9/16, 3/16, 3/16 e 1/16,
-    respectivamente.
+    verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+    segunda lei de Mendel (lei da segregação independente), as
+    proporções esperadas para esses tipos de ervilhas são: 9/16,
+    3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+    experimento é avaliar se o padrão de segregação dos caracteres
+    envolvidos segue o proposto pela segunda lei de Mendel.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeTb8.6)
 str(AndradeTb8.6)
 
-xyplot(freq ~ cor,
-       groups = textura,
-       data = AndradeTb8.6,
-       auto.key = list(title = "Textura",
-                       cex.title = 1.1,
-                       columns = 2),
-       xlab = "Cor",
-       ylab = "Frequência")
+(xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+prop.table(xt)
+
+plot(xt, cex.axis = 1, main = "")
+barplot(xt, legend.text = TRUE)
 
 }
-\keyword{AAS}
+\keyword{contingência}
 
diff --git a/man/AndradeTb8.7.Rd b/man/AndradeTb8.7.Rd
index 3e938168cec8d87df1d9409bad4aa54effb02bfd..a58b4f5fa25ff9613dd4df80600395ce36b45e58 100644
--- a/man/AndradeTb8.7.Rd
+++ b/man/AndradeTb8.7.Rd
@@ -2,15 +2,14 @@
 % Please edit documentation in R/AndradeTb8.7.R
 \name{AndradeTb8.7}
 \alias{AndradeTb8.7}
-\title{Número de Árvores por Quadrante de \emph{Guapira opposita}}
+\title{Número de Árvores \emph{Guapira opposita} em Restinga}
 \format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{arvores}}{Fator de 10 níveis qualitativos, que representa
-    o número de árvores por quadrante.}
+\item{\code{arvores}}{Número de árvores por quadrante.}
 
-\item{\code{quadr}}{Número de quandrantes com X árvores.}
+\item{\code{quadr}}{Número de quadrantes com \code{arvores} árvores.}
 
 }}
 \source{
@@ -19,12 +18,11 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.7, pág. 374)
 }
 \description{
-Estudo sobre o número de árvores por quadrante da
-    espécie \emph{Guapira opposita}, realizado com o objetivo de
-    verificar a distribuição espacial dessa espécie num local de
-    restinga. Foi utilizado um total de 94 quadrantes e contou-se o
-    número de quadrantes com zero árvores, uma árvore, duas árvores,
-    e assim por diante.
+Estudo sobre o número de árvores da espécie
+    \emph{Guapira opposita} em local de restinga. Estudo realizado
+    com o objetivo de verificar a distribuição das árvores em local
+    de restinga. A área avaliada foi dividida em 94 quadrantes de
+    mesma área e contou-se o número de árvores por quadrante.
 }
 \examples{
 
@@ -38,5 +36,5 @@ barplot(AndradeTb8.7$quadr,
         ylab = "Número de Quadrandres")
 
 }
-\keyword{DBC}
+\keyword{contingência*}