From e48b3d68d5b5f8f61c1a63e074e074ec18b94ca2 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 27 Oct 2016 11:23:58 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es/padroniza=C3=A7?=
 =?UTF-8?q?=C3=B5es=20e=20adiciona=20os=20Rd's?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/AndradeEg2.17.R    | 17 +++++++-------
 R/AndradePg90.R      |  4 ++--
 R/AndradeTb2.34.R    | 29 +++++++++++++++---------
 R/AndradeTb2.36.R    | 15 +++++++------
 R/AndradeTb2.37.R    | 14 ++++++------
 R/AndradeTb2.38.R    | 10 +++++----
 R/AndradeTb2.42.R    | 25 ++++++++++++++++-----
 R/AndradeTb2.44.R    | 25 ++++++++++++++++-----
 man/AndradeEg2.17.Rd | 15 ++++++-------
 man/AndradePg90.Rd   | 53 ++++++++++++++++++++++++++++++++++++++++++++
 man/AndradeTb2.32.Rd | 31 ++++++++++++++++++++------
 man/AndradeTb2.34.Rd | 27 ++++++++++++++--------
 man/AndradeTb2.36.Rd | 13 ++++++-----
 man/AndradeTb2.37.Rd | 12 +++++-----
 man/AndradeTb2.38.Rd |  8 ++++---
 man/AndradeTb2.42.Rd | 23 ++++++++++++++-----
 man/AndradeTb2.44.Rd | 23 ++++++++++++++-----
 17 files changed, 244 insertions(+), 100 deletions(-)
 create mode 100644 man/AndradePg90.Rd

diff --git a/R/AndradeEg2.17.R b/R/AndradeEg2.17.R
index 192e9a98..7c615d22 100644
--- a/R/AndradeEg2.17.R
+++ b/R/AndradeEg2.17.R
@@ -1,20 +1,19 @@
 #' @name AndradeEg2.17
-#' @title Comprimento e Peso de \emph{Penaeus Paulensis}
-#' @description Comprimento do corpo \eqn{X_c}, dado em mm, e peso
-#'     \eqn{X_p} de fêmeas, dado em g, de Penaeus paulensis (Crustacea,
-#'     Decapoda, Penaidae), obtidos nas despescas dos viveiros do Centro
-#'     de Ciências Agrárias (CCA) da Universidade Federal de Santa
-#'     Catarina (UFSC).
+#' @title Comprimento e Peso de Camarões-Rosa (\emph{Penaeus Paulensis})
+#' @description Comprimento do corpo (\eqn{X_c}) e peso (\eqn{X_p}) de
+#'     Camarões-Rosa fêmeas da espécie \emph{Penaeus Paulensis}, obtidos
+#'     nas despescas dos viveiros do Centro de Ciências Agrárias (CCA)
+#'     da Universidade Federal de Santa Catarina (UFSC).
 #' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{xc}}{Comprimento do Corpo em mm.}
+#' \item{\code{xc}}{Comprimento do corpo em milímetros.}
 #'
 #' \item{\code{xp}}{Peso em gramas.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords RS
 #' @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. (Exemplo 2.17, pág.
@@ -31,4 +30,4 @@
 #'        xlab = "Comprimento do Corpo (em mm)",
 #'        ylab = "Peso (em gramas)")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradePg90.R b/R/AndradePg90.R
index 3338728b..2e89619f 100644
--- a/R/AndradePg90.R
+++ b/R/AndradePg90.R
@@ -6,8 +6,8 @@
 #'
 #' \describe{
 #'
-#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
-#'     dos bezerros (Charoleza e Gir).}
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+#'     (Charoleza e Gir).}
 #'
 #' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
 #'
diff --git a/R/AndradeTb2.34.R b/R/AndradeTb2.34.R
index 3ad07bdc..8bbc50dc 100644
--- a/R/AndradeTb2.34.R
+++ b/R/AndradeTb2.34.R
@@ -1,19 +1,20 @@
 #' @name AndradeTb2.34
-#' @title Crescimento do Pseudobulbo de \emph{Laelia Purpurata}
-#' @description Dados de crescimento, em cm, do pseudobulbo da espécie
-#'     de orquídea \emph{Laelia purpurata}, sob duas condições de
-#'     luminosidade, cada uma com 25 observações.
+#' @title Crescimento do Pseudobulbo de Orquídeas (\emph{Laelia
+#'     Purpurata})
+#' @description Dados de crescimento, em centímetros, do pseudobulbo de
+#'     orquídeas da espécie \emph{Laelia purpurata}, sob duas condições
+#'     de luminosidade.
 #' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{luz}}{Fator de 2 níveis qualitativos que são as condições
-#'     de luminosidade.}
+#' \item{\code{luz}}{Fator de 2 níveis que representa as condições de
+#'     luminosidade.}
 #'
-#' \item{\code{cresc}}{Crescimento do pseudobulbo em cm.}
+#' \item{\code{cresc}}{Crescimento do pseudobulbo em centí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. (Tabela 2.34, pág. 133)
@@ -27,5 +28,13 @@
 #'        data = AndradeTb2.34,
 #'        xlab = "Condição de Luminosidade",
 #'        ylab = "Crescimento (em cm)")
-#'        
-NULL
\ No newline at end of file
+#'
+#' densityplot(~cresc, groups = luz,
+#'             data = AndradeTb2.34,
+#'             auto.key = list(
+#'                 corner = c(0.95, 1),
+#'                 title = "Condições de\nluminosidade",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL
diff --git a/R/AndradeTb2.36.R b/R/AndradeTb2.36.R
index 668cf245..92bfc1df 100644
--- a/R/AndradeTb2.36.R
+++ b/R/AndradeTb2.36.R
@@ -1,17 +1,18 @@
 #' @name AndradeTb2.36
 #' @title Produção de Matéria Seca e Radiação de uma Cultura
-#' @description Dados de produção de matéria seca de uma cultura e
+#' @description Dados de produção de matéria seca de uma cultura [QUAL
+#'     CULTURA? SE NÃO HOUVER INDIQUE "DE UMA CULTURA NÃO INFORMADA"] e
 #'     quantidade de radiação fotossintética ativa.
 #' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{prod}}{Produção de matéria seca em \eqn{g.m^{-2}}.}
+#' \item{\code{prod}}{Produção de matéria seca em \eqn{g\,m^{-2}}.}
 #'
-#' \item{\code{rad}}{Radiação fotossintética em \eqn{W.m^{-2}}.}
+#' \item{\code{rad}}{Radiação fotossintética em \eqn{W\,m^{-2}}.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords RS
 #' @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 2.36, pág. 140)
@@ -24,7 +25,7 @@
 #' xyplot(prod ~ rad,
 #'        data = AndradeTb2.36,
 #'        type = c("p", "r"),
-#'        xlab = expression(Radiação ~ fotossintética ~ (W / m^2)),
-#'        ylab = expression(Produção ~ (g / m^2)))
+#'        xlab = expression(Radiação ~ fotossintética ~ (W/m^2)),
+#'        ylab = expression(Produção ~ (g/m^2)))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.37.R b/R/AndradeTb2.37.R
index 91b8a4cf..0c04bf4e 100644
--- a/R/AndradeTb2.37.R
+++ b/R/AndradeTb2.37.R
@@ -1,21 +1,21 @@
 #' @name AndradeTb2.37
 #' @title Radiação e Espaçamento na Cultura da Soja
-#' @description Deseja-se saber se existe correlação entre o espaçamento
-#'     das linhas na cultura da soja e a fração da radiação solar
-#'     extinta pela planta. Para atender a esse objetivo foram coletados
-#'     pares de valores das duas variáveis.
+#' @description Estudo que objetiva avaliar se há relação entre o
+#'     espaçamento das linhas na cultura da soja e a fração da radiação
+#'     solar extinta pela planta. Para atender tal objetivo foram
+#'     coletados pares de valores das duas variáveis.
 #' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{rad}}{Fração da raciação solar extinta pela planta, em
+#' \item{\code{rad}}{Fração da radiação solar extinta pela planta, em
 #'     porcentagem.}
 #'
 #' \item{\code{esp}}{Espaçamento das linhas na cultura da soja, em
 #'     metros.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords RS
 #' @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 2.37, pág. 141)
@@ -31,4 +31,4 @@
 #'        xlab = "Espaçamento (m)",
 #'        ylab = "Radiação (%)")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.38.R b/R/AndradeTb2.38.R
index d70e553a..aec5fbdf 100644
--- a/R/AndradeTb2.38.R
+++ b/R/AndradeTb2.38.R
@@ -8,12 +8,12 @@
 #'
 #' \describe{
 #'
-#' \item{\code{temp}}{Temperatura da lagoa, em ºC.}
+#' \item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
 #'
-#' \item{\code{salin}}{Salinidade da lagoa, em g/l.}
+#' \item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
 #'
 #' }
-#' @keywords AAS
+#' @keywords RS
 #' @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 2.38, pág. 142)
@@ -22,6 +22,8 @@
 #' data(AndradeTb2.38)
 #' str(AndradeTb2.38)
 #'
+#' cor.test(~temp + salin, data = AndradeTb2.38)
+#'
 #' library(lattice)
 #' xyplot(temp ~ salin,
 #'        data = AndradeTb2.38,
@@ -29,4 +31,4 @@
 #'        xlab = "Salinidade (g/l)",
 #'        ylab = "Temperatura (ºC)")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.42.R b/R/AndradeTb2.42.R
index 968d4721..265e936f 100644
--- a/R/AndradeTb2.42.R
+++ b/R/AndradeTb2.42.R
@@ -1,18 +1,18 @@
 #' @name AndradeTb2.42
-#' @title Peso de Carne de Mexilhões
-#' @description Resultados da variável peso de carne, em gramas, de
-#'     mexilhões de dois locais: 1) Sambaqui e 2) Manguezal.
+#' @title Peso de Carne de Mexilhões em Áreas de Sambaqui e Manguezal
+#' @description Resultados do peso de carne, em gramas, de mexilhões
+#'     provenientes de área de sambaqui e manguezal.
 #' @format Um \code{data.frame} com 30 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{local}}{Fator de 2 níveis qualitativos, que são os locais
+#' \item{\code{local}}{Fator de 2 níveis que representa os locais
 #'     habituais dos mexilhões.}
 #'
 #' \item{\code{peso}}{Peso de carne de mexilhões, em gramas.}
 #'
 #' }
-#' @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 2.42, pág. 146)
@@ -21,9 +21,22 @@
 #' data(AndradeTb2.42)
 #' str(AndradeTb2.42)
 #'
+#' # Box-plots
 #' boxplot(peso ~ local,
 #'         data = AndradeTb2.42,
 #'         xlab = "Local",
 #'         ylab = "Peso de Carne (em gramas)")
 #'
-NULL
\ No newline at end of file
+#' # Gráficos de densidades
+#' dens <- with(AndradeTb2.42, tapply(peso, local, density))
+#' plot(x = 0, y = 0, type = "n",
+#'      xlim = range(sapply(dens, function(d) range(d$x))),
+#'      ylim = range(sapply(dens, function(d) range(d$y))),
+#'      xlab = "Peso em carne (em gramas)",
+#'      ylab = "Densidade estimada")
+#' lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
+#' legend("topright", title = "Habitat dos mexilhões",
+#'        legend = unique(AndradeTb2.42$local),
+#'        lwd = 1, col = 1:2, bty = "n")
+#'
+NULL
diff --git a/R/AndradeTb2.44.R b/R/AndradeTb2.44.R
index a980bc4c..442d4c2f 100644
--- a/R/AndradeTb2.44.R
+++ b/R/AndradeTb2.44.R
@@ -1,19 +1,19 @@
 #' @name AndradeTb2.44
 #' @title Produção de Duas Variedades de Cana-de-açúcar
-#' @description Estudo no qual foi analisado o comportamento de
-#'     duas variedades de cana-de-açúcar.
+#' @description Estudo no qual avaliou-se a produção de cana-de-açúcar
+#'     considerando duas variedades distintas a fim de comparação.
 #' @format Um \code{data.frame} com 21 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{varied}}{Fator de 2 níveis qualitativos, que são as
-#'     variedades de cana-de-açúcar.}
+#' \item{\code{varied}}{Fator de 2 níveis que representa as variedades
+#'     de cana-de-açúcar consideradas.}
 #'
 #' \item{\code{prod}}{Produção de cana-de-açúcar, em toneladas por
 #'     hectare.}
 #'
 #' }
-#' @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 2.44, pág. 147)
@@ -22,9 +22,22 @@
 #' data(AndradeTb2.44)
 #' str(AndradeTb2.44)
 #'
+#' # Box-plots
 #' boxplot(prod ~ varied,
 #'         data = AndradeTb2.44,
 #'         xlab = "Variedade",
 #'         ylab = expression(Produção~(em~t~ha^-1)))
 #'
-NULL
\ No newline at end of file
+#' # Gráficos de densidades
+#' dens <- with(AndradeTb2.44, tapply(prod, varied, density))
+#' plot(x = 0, y = 0, type = "n",
+#'      xlim = range(sapply(dens, function(d) range(d$x))),
+#'      ylim = range(sapply(dens, function(d) range(d$y))),
+#'      xlab = expression(Produção~(em~t~ha^-1)),
+#'      ylab = "Densidade estimada")
+#' lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
+#' legend("topleft", title = "Variedade",
+#'        legend = unique(AndradeTb2.44$varied),
+#'        lwd = 1, col = 1:2, bty = "n")
+#'
+NULL
diff --git a/man/AndradeEg2.17.Rd b/man/AndradeEg2.17.Rd
index a5922c06..61697be2 100644
--- a/man/AndradeEg2.17.Rd
+++ b/man/AndradeEg2.17.Rd
@@ -2,12 +2,12 @@
 % Please edit documentation in R/AndradeEg2.17.R
 \name{AndradeEg2.17}
 \alias{AndradeEg2.17}
-\title{Comprimento e Peso de \emph{Penaeus Paulensis}}
+\title{Comprimento e Peso de Camarões-Rosa (\emph{Penaeus Paulensis})}
 \format{Um \code{data.frame} com 18 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{xc}}{Comprimento do Corpo em mm.}
+\item{\code{xc}}{Comprimento do corpo em milímetros.}
 
 \item{\code{xp}}{Peso em gramas.}
 
@@ -19,11 +19,10 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     128)
 }
 \description{
-Comprimento do corpo \eqn{X_c}, dado em mm, e peso
-    \eqn{X_p} de fêmeas, dado em g, de Penaeus paulensis (Crustacea,
-    Decapoda, Penaidae), obtidos nas despescas dos viveiros do Centro
-    de Ciências Agrárias (CCA) da Universidade Federal de Santa
-    Catarina (UFSC).
+Comprimento do corpo (\eqn{X_c}) e peso (\eqn{X_p}) de
+    Camarões-Rosa fêmeas da espécie \emph{Penaeus Paulensis}, obtidos
+    nas despescas dos viveiros do Centro de Ciências Agrárias (CCA)
+    da Universidade Federal de Santa Catarina (UFSC).
 }
 \examples{
 
@@ -38,5 +37,5 @@ xyplot(jitter(xp) ~ xc,
        ylab = "Peso (em gramas)")
 
 }
-\keyword{AAS}
+\keyword{RS}
 
diff --git a/man/AndradePg90.Rd b/man/AndradePg90.Rd
new file mode 100644
index 00000000..a8de3e51
--- /dev/null
+++ b/man/AndradePg90.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradePg90.R
+\name{AndradePg90}
+\alias{AndradePg90}
+\title{Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)}
+\format{Um \code{data.frame} com 24 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+    (Charoleza e Gir).}
+
+\item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
+
+}}
+\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. (Página 90)
+}
+\description{
+Pesos ao nascer de 24 bezerros machos das raças
+    Charoleza e Gir.
+}
+\examples{
+
+data(AndradePg90)
+str(AndradePg90)
+
+library(lattice)
+densityplot(~peso, groups = raca,
+            data = AndradePg90,
+            auto.key = list(
+                corner = c(0.1, 0.9),
+                title = "Raça do bezerro",
+                cex.title = 1
+            ))
+
+# Agrupando dados de AndradeTb2.32, um estudo similar.
+# help(AndradeTb2.32)
+
+da <- rbind(AndradePg90, AndradeTb2.32)
+bwplot(peso ~ raca,
+       data = da,
+       xlab = "Raça do Bezerro",
+       ylab = "Peso (em kg)")
+
+}
+\seealso{
+\code{\link{AndradeTb2.32}}
+}
+\keyword{AASI}
+
diff --git a/man/AndradeTb2.32.Rd b/man/AndradeTb2.32.Rd
index 31c5e7f6..94cd13dc 100644
--- a/man/AndradeTb2.32.Rd
+++ b/man/AndradeTb2.32.Rd
@@ -2,13 +2,13 @@
 % Please edit documentation in R/AndradeTb2.32.R
 \name{AndradeTb2.32}
 \alias{AndradeTb2.32}
-\title{Pesos de Bezerros Recém-Nascidos}
+\title{Pesos de Bezerros Recém-Nascidos (Crioula e Nelore)}
 \format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
-    dos bezerros recém-nascidos.}
+\item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+    recém-nascidos.}
 
 \item{\code{peso}}{Peso, em kg, do bezerro recém-nascido.}
 
@@ -19,20 +19,37 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.32, pág. 113)
 }
 \description{
-Pesos, em kg, ao nascer de 10 bezerros da raça de gado
-    Crioula, e 10 da raça Nelore.
+Pesos, em quilogramas, ao nascer de bezerros da raça de
+    gado Crioula e Nelore.
 }
 \examples{
 
 data(AndradeTb2.32)
 str(AndradeTb2.32)
 
+with(AndradeTb2.32, by(peso, raca, summary))
+
 library(lattice)
+densityplot(~peso, groups = raca,
+            data = AndradePg90,
+            auto.key = list(
+                corner = c(0.1, 0.9),
+                title = "Raça do bezerro",
+                cex.title = 1
+            ))
+
+# Agrupando dados de AndradePg90, um estudo similar.
+# help(AndradePg90)
+
+da <- rbind(AndradeTb2.32, AndradePg90)
 bwplot(peso ~ raca,
-       data = AndradeTb2.32,
+       data = da,
        xlab = "Raça do Bezerro",
        ylab = "Peso (em kg)")
 
 }
-\keyword{AAS}
+\seealso{
+\code{\link{AndradePg90}}
+}
+\keyword{AASI}
 
diff --git a/man/AndradeTb2.34.Rd b/man/AndradeTb2.34.Rd
index 547a2800..c685fcd2 100644
--- a/man/AndradeTb2.34.Rd
+++ b/man/AndradeTb2.34.Rd
@@ -2,15 +2,16 @@
 % Please edit documentation in R/AndradeTb2.34.R
 \name{AndradeTb2.34}
 \alias{AndradeTb2.34}
-\title{Crescimento do Pseudobulbo de \emph{Laelia Purpurata}}
+\title{Crescimento do Pseudobulbo de Orquídeas (\emph{Laelia
+    Purpurata})}
 \format{Um \code{data.frame} com 50 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{luz}}{Fator de 2 níveis qualitativos que são as condições
-    de luminosidade.}
+\item{\code{luz}}{Fator de 2 níveis que representa as condições de
+    luminosidade.}
 
-\item{\code{cresc}}{Crescimento do pseudobulbo em cm.}
+\item{\code{cresc}}{Crescimento do pseudobulbo em centímetros.}
 
 }}
 \source{
@@ -19,9 +20,9 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.34, pág. 133)
 }
 \description{
-Dados de crescimento, em cm, do pseudobulbo da espécie
-    de orquídea \emph{Laelia purpurata}, sob duas condições de
-    luminosidade, cada uma com 25 observações.
+Dados de crescimento, em centímetros, do pseudobulbo de
+    orquídeas da espécie \emph{Laelia purpurata}, sob duas condições
+    de luminosidade.
 }
 \examples{
 
@@ -33,7 +34,15 @@ bwplot(cresc ~ luz,
        data = AndradeTb2.34,
        xlab = "Condição de Luminosidade",
        ylab = "Crescimento (em cm)")
-       
+
+densityplot(~cresc, groups = luz,
+            data = AndradeTb2.34,
+            auto.key = list(
+                corner = c(0.95, 1),
+                title = "Condições de\\nluminosidade",
+                cex.title = 1
+            ))
+
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeTb2.36.Rd b/man/AndradeTb2.36.Rd
index bde18d74..9b500bda 100644
--- a/man/AndradeTb2.36.Rd
+++ b/man/AndradeTb2.36.Rd
@@ -7,9 +7,9 @@
 
 \describe{
 
-\item{\code{prod}}{Produção de matéria seca em \eqn{g.m^{-2}}.}
+\item{\code{prod}}{Produção de matéria seca em \eqn{g\,m^{-2}}.}
 
-\item{\code{rad}}{Radiação fotossintética em \eqn{W.m^{-2}}.}
+\item{\code{rad}}{Radiação fotossintética em \eqn{W\,m^{-2}}.}
 
 }}
 \source{
@@ -18,7 +18,8 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.36, pág. 140)
 }
 \description{
-Dados de produção de matéria seca de uma cultura e
+Dados de produção de matéria seca de uma cultura [QUAL
+    CULTURA? SE NÃO HOUVER INDIQUE "DE UMA CULTURA NÃO INFORMADA"] e
     quantidade de radiação fotossintética ativa.
 }
 \examples{
@@ -30,9 +31,9 @@ library(lattice)
 xyplot(prod ~ rad,
        data = AndradeTb2.36,
        type = c("p", "r"),
-       xlab = expression(Radiação ~ fotossintética ~ (W / m^2)),
-       ylab = expression(Produção ~ (g / m^2)))
+       xlab = expression(Radiação ~ fotossintética ~ (W/m^2)),
+       ylab = expression(Produção ~ (g/m^2)))
 
 }
-\keyword{AAS}
+\keyword{RS}
 
diff --git a/man/AndradeTb2.37.Rd b/man/AndradeTb2.37.Rd
index 518d430f..39c71583 100644
--- a/man/AndradeTb2.37.Rd
+++ b/man/AndradeTb2.37.Rd
@@ -7,7 +7,7 @@
 
 \describe{
 
-\item{\code{rad}}{Fração da raciação solar extinta pela planta, em
+\item{\code{rad}}{Fração da radiação solar extinta pela planta, em
     porcentagem.}
 
 \item{\code{esp}}{Espaçamento das linhas na cultura da soja, em
@@ -20,10 +20,10 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.37, pág. 141)
 }
 \description{
-Deseja-se saber se existe correlação entre o espaçamento
-    das linhas na cultura da soja e a fração da radiação solar
-    extinta pela planta. Para atender a esse objetivo foram coletados
-    pares de valores das duas variáveis.
+Estudo que objetiva avaliar se há relação entre o
+    espaçamento das linhas na cultura da soja e a fração da radiação
+    solar extinta pela planta. Para atender tal objetivo foram
+    coletados pares de valores das duas variáveis.
 }
 \examples{
 
@@ -38,5 +38,5 @@ xyplot(rad ~ esp,
        ylab = "Radiação (\%)")
 
 }
-\keyword{AAS}
+\keyword{RS}
 
diff --git a/man/AndradeTb2.38.Rd b/man/AndradeTb2.38.Rd
index ea2562d5..666953c3 100644
--- a/man/AndradeTb2.38.Rd
+++ b/man/AndradeTb2.38.Rd
@@ -8,9 +8,9 @@
 
 \describe{
 
-\item{\code{temp}}{Temperatura da lagoa, em ºC.}
+\item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
 
-\item{\code{salin}}{Salinidade da lagoa, em g/l.}
+\item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
 
 }}
 \source{
@@ -28,6 +28,8 @@ Estudo com o objetivo de verificar se existe correlação
 data(AndradeTb2.38)
 str(AndradeTb2.38)
 
+cor.test(~temp + salin, data = AndradeTb2.38)
+
 library(lattice)
 xyplot(temp ~ salin,
        data = AndradeTb2.38,
@@ -36,5 +38,5 @@ xyplot(temp ~ salin,
        ylab = "Temperatura (ºC)")
 
 }
-\keyword{AAS}
+\keyword{RS}
 
diff --git a/man/AndradeTb2.42.Rd b/man/AndradeTb2.42.Rd
index 70e119fd..4809c479 100644
--- a/man/AndradeTb2.42.Rd
+++ b/man/AndradeTb2.42.Rd
@@ -2,12 +2,12 @@
 % Please edit documentation in R/AndradeTb2.42.R
 \name{AndradeTb2.42}
 \alias{AndradeTb2.42}
-\title{Peso de Carne de Mexilhões}
+\title{Peso de Carne de Mexilhões em Áreas de Sambaqui e Manguezal}
 \format{Um \code{data.frame} com 30 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{local}}{Fator de 2 níveis qualitativos, que são os locais
+\item{\code{local}}{Fator de 2 níveis que representa os locais
     habituais dos mexilhões.}
 
 \item{\code{peso}}{Peso de carne de mexilhões, em gramas.}
@@ -19,19 +19,32 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.42, pág. 146)
 }
 \description{
-Resultados da variável peso de carne, em gramas, de
-    mexilhões de dois locais: 1) Sambaqui e 2) Manguezal.
+Resultados do peso de carne, em gramas, de mexilhões
+    provenientes de área de sambaqui e manguezal.
 }
 \examples{
 
 data(AndradeTb2.42)
 str(AndradeTb2.42)
 
+# Box-plots
 boxplot(peso ~ local,
         data = AndradeTb2.42,
         xlab = "Local",
         ylab = "Peso de Carne (em gramas)")
 
+# Gráficos de densidades
+dens <- with(AndradeTb2.42, tapply(peso, local, density))
+plot(x = 0, y = 0, type = "n",
+     xlim = range(sapply(dens, function(d) range(d$x))),
+     ylim = range(sapply(dens, function(d) range(d$y))),
+     xlab = "Peso em carne (em gramas)",
+     ylab = "Densidade estimada")
+lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
+legend("topright", title = "Habitat dos mexilhões",
+       legend = unique(AndradeTb2.42$local),
+       lwd = 1, col = 1:2, bty = "n")
+
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeTb2.44.Rd b/man/AndradeTb2.44.Rd
index 3e3c41c6..700d72e3 100644
--- a/man/AndradeTb2.44.Rd
+++ b/man/AndradeTb2.44.Rd
@@ -7,8 +7,8 @@
 
 \describe{
 
-\item{\code{varied}}{Fator de 2 níveis qualitativos, que são as
-    variedades de cana-de-açúcar.}
+\item{\code{varied}}{Fator de 2 níveis que representa as variedades
+    de cana-de-açúcar consideradas.}
 
 \item{\code{prod}}{Produção de cana-de-açúcar, em toneladas por
     hectare.}
@@ -20,19 +20,32 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.44, pág. 147)
 }
 \description{
-Estudo no qual foi analisado o comportamento de
-    duas variedades de cana-de-açúcar.
+Estudo no qual avaliou-se a produção de cana-de-açúcar
+    considerando duas variedades distintas a fim de comparação.
 }
 \examples{
 
 data(AndradeTb2.44)
 str(AndradeTb2.44)
 
+# Box-plots
 boxplot(prod ~ varied,
         data = AndradeTb2.44,
         xlab = "Variedade",
         ylab = expression(Produção~(em~t~ha^-1)))
 
+# Gráficos de densidades
+dens <- with(AndradeTb2.44, tapply(prod, varied, density))
+plot(x = 0, y = 0, type = "n",
+     xlim = range(sapply(dens, function(d) range(d$x))),
+     ylim = range(sapply(dens, function(d) range(d$y))),
+     xlab = expression(Produção~(em~t~ha^-1)),
+     ylab = "Densidade estimada")
+lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
+legend("topleft", title = "Variedade",
+       legend = unique(AndradeTb2.44$varied),
+       lwd = 1, col = 1:2, bty = "n")
+
 }
-\keyword{AAS}
+\keyword{AASI}
 
-- 
GitLab