From c95f6764bffb31b942029559a09223ddd66330ab Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 28 Oct 2016 12:41:32 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es=20e=20padroniza?=
 =?UTF-8?q?=C3=A7=C3=B5es=20para=20aceita=C3=A7=C3=A3o=20de=20MR?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

- Modificações textuais pla fluidez do texto
- Modificações nos datasets (nome de variáveis, nomes dos níveis de
  variáveis categóricas, remoção de variáveis do tipo rownames)
- Adequação das keywords
- Correções/complementações nos exemplos
---
 R/AndradeEg4.11.R          |  32 +++++++------
 R/AndradeEx4.8.R           |  21 ++++----
 R/AndradeTb2.38.R          |  39 +++++++++++++++
 R/AndradeTb2.45.R          |  37 +++++++++-----
 R/AndradeTb2.46.R          |  24 +++++-----
 R/AndradeTb2.47.R          |  96 ++++++++++++++++++++-----------------
 R/AndradeTb3.1.R           |  24 +++++-----
 R/AndradeTb3.2.R           |  32 ++++++++-----
 R/AndradeTb4.1.R           |  24 ++++++----
 data-raw/AndradeEg4.11.txt |   2 +-
 data-raw/AndradeEx4.8.txt  |   2 +-
 data-raw/AndradeTb2.45.txt |  70 +++++++++++++--------------
 data-raw/AndradeTb2.46.txt |  14 +++---
 data-raw/AndradeTb3.1.txt  |  24 +++++-----
 data-raw/AndradeTb3.2.txt  |   8 ++--
 data-raw/AndradeTb4.1.txt  |   2 +-
 data/AndradeEg4.11.rda     | Bin 219 -> 215 bytes
 data/AndradeEx4.8.rda      | Bin 181 -> 187 bytes
 data/AndradeTb2.38.rda     | Bin 0 -> 263 bytes
 data/AndradeTb2.45.rda     | Bin 359 -> 365 bytes
 data/AndradeTb2.46.rda     | Bin 320 -> 273 bytes
 data/AndradeTb3.1.rda      | Bin 251 -> 288 bytes
 data/AndradeTb3.2.rda      | Bin 226 -> 246 bytes
 data/AndradeTb4.1.rda      | Bin 211 -> 220 bytes
 man/AndradeEg4.11.Rd       |  32 +++++++------
 man/AndradeEx4.8.Rd        |  19 +++++---
 man/AndradeTb2.38.Rd       |  49 +++++++++++++++++++
 man/AndradeTb2.45.Rd       |  35 +++++++++-----
 man/AndradeTb2.46.Rd       |  24 ++++++----
 man/AndradeTb2.47.Rd       |  91 +++++++++++++++++++----------------
 man/AndradeTb3.1.Rd        |  22 +++++----
 man/AndradeTb3.2.Rd        |  30 +++++++-----
 man/AndradeTb4.1.Rd        |  22 +++++----
 33 files changed, 477 insertions(+), 298 deletions(-)
 create mode 100644 R/AndradeTb2.38.R
 create mode 100644 data/AndradeTb2.38.rda
 create mode 100644 man/AndradeTb2.38.Rd

diff --git a/R/AndradeEg4.11.R b/R/AndradeEg4.11.R
index 893443b5..30b63947 100644
--- a/R/AndradeEg4.11.R
+++ b/R/AndradeEg4.11.R
@@ -1,37 +1,39 @@
 #' @name AndradeEg4.11
-#' @title Dispersão de Formigas da Espécie \emph{Acromyrmex striatus}
-#' @description Estudo da dispersão de formigas da espécie
-#'     \emph{Acromyrmex striatus}, uma espécie de formiga cortadeira,
-#'     em dunas da praia da Joaquina, Florianópolis, SC, onde uma área
-#'     de 100m x 100m, foi subdividida em 100 quadrantes de 10m x 10m.
-#'     Em cada um desses quadrantes foi contado o número de ninhos de
-#'     \emph{Acromyrmex striatus}. Maiores detalhes sobre esse estudo
-#'     estão em Lopes (2001).
+#' @title Disposição de Ninhos de Formigas (\emph{Acromyrmex striatus})
+#' @description Estudo sobre como se dispõem os ninhos de formigas da
+#'     espécie \emph{Acromyrmex striatus}, uma espécie de formiga
+#'     cortadeira, em dunas da praia de Joaquina, Florianópolis, SC. A
+#'     condução do estudo se deu em uma área de 10.000\eqn{m^2} que foi
+#'     subdividida em 100 quadrantes de mesmo tamanho. Contou-se então,
+#'     o número de ninhos em cada um desses quadrantes. Maiores detalhes
+#'     sobre esse estudo estão em Lopes (2001).
 #' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ninhos}}{Fator de 5 níveis qualitativos, que são os
-#'     os números de ninhos por quadrante.}
+#' \item{\code{ninhos}}{Fator de 5 níveis, que representa a quantidade
+#'     de ninhos por quadrante.}
 #'
-#' \item{\code{quadrantes}}{Número de quadrantes com os respetivos
-#'     números de ninhos.}
+#' \item{\code{freq}}{Frequência de quadrantes em que se observou
+#'     \code{ninhos} ninhos de formiga.}
 #'
 #' }
-#' @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. (Exemplo 4.11, pág.
 #'     228)
+#' @references [REFERENCIAR O TRABALHO DO LOPES DE 2001]
 #' @examples
 #'
 #' data(AndradeEg4.11)
 #' str(AndradeEg4.11)
 #'
-#' barplot(AndradeEg4.11$quadr,
+#' # Distribuição de frequências
+#' barplot(AndradeEg4.11$freq,
 #'         col = "darkturquoise",
 #'         names.arg = AndradeEg4.11$ninhos,
 #'         xlab = "Ninhos por Quadrante",
 #'         ylab = "Número de Quadrantes")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx4.8.R b/R/AndradeEx4.8.R
index d8326098..eca4ee40 100644
--- a/R/AndradeEx4.8.R
+++ b/R/AndradeEx4.8.R
@@ -1,17 +1,18 @@
 #' @name AndradeEx4.8
-#' @title Número de Ninhadas com X Porcos Machos
-#' @description Foram examinadas 2.000 ninhadas de cinco porcos cada
-#'     uma, segundo o número de machos.
+#' @title Número de Machos em Ninhadas de Porcos
+#' @description Estudo onde foram examinadas 2.000 ninhadas de cinco
+#'     porcos, contabilizando o número de machos em cada.
 #' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+#' \item{\code{nmachos}}{Número de machos na ninhada de 5 porcos.}
 #'
-#' \item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+#' \item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+#'     machos.}
 #'
 #' }
-#' @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
@@ -21,10 +22,14 @@
 #' data(AndradeEx4.8)
 #' str(AndradeEx4.8)
 #'
+#' # Média de porcos machos homens por ninhada
+#' with(AndradeEx4.8, weighted.mean(nmachos, ninhadas/sum(ninhadas)))
+#'
+#' # Distribuição de frequências
 #' barplot(AndradeEx4.8$ninhadas,
 #'         col = "darkturquoise",
-#'         names.arg = AndradeEx4.8$x,
+#'         names.arg = AndradeEx4.8$nmachos,
 #'         xlab = "Número de Machos na Ninhada",
 #'         ylab = "Número de Ninhadas")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.38.R b/R/AndradeTb2.38.R
new file mode 100644
index 00000000..ef28482d
--- /dev/null
+++ b/R/AndradeTb2.38.R
@@ -0,0 +1,39 @@
+#' @name AndradeTb2.38
+#' @title Salinidade e Temperatura na Região III da Lagoa da Conceição
+#' @description Estudo com o objetivo de verificar se existe correlação
+#'     entre a salinidade e a temperatura na região III da Lagoa da
+#'     Conceição, Florianópolis, SC.
+#' @format Um \code{data.frame} com 8 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
+#'
+#' \item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.46}}
+#' @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)
+#' @examples
+#'
+#' data(AndradeTb2.38)
+#' str(AndradeTb2.38)
+#'
+#' cor.test(~temp + salin, data = AndradeTb2.38)
+#'
+#' library(lattice)
+#' xyplot(temp ~ salin,
+#'        data = AndradeTb2.38,
+#'        type = c("p", "r"),
+#'        xlab = "Salinidade (g/l)",
+#'        ylab = "Temperatura (ºC)")
+#'
+#' # Agrupando os dados de condutividade, provinientes no dataset
+#' # AndradeTb2.46 [VERIFICAR SE É VÁLIDO]
+#' (da <- merge(AndradeTb2.38, AndradeTb2.46))
+#' splom(da, type = c("g", "p", "r"))
+#'
+NULL
diff --git a/R/AndradeTb2.45.R b/R/AndradeTb2.45.R
index c5b05a69..8a6dc377 100644
--- a/R/AndradeTb2.45.R
+++ b/R/AndradeTb2.45.R
@@ -1,21 +1,21 @@
 #' @name AndradeTb2.45
-#' @title Tamanho de Pecíolos de \emph{Hydrocotille sp}
+#' @title Tamanho dos Pecíolos de Plantas \emph{Hydrocotille sp}
 #' @description Em um estudo do comportamento de uma planta típica de
 #'     dunas, a \emph{Hydrocotille sp}, quanto ao seu desenvolvimento,
-#'     mediu-se o tamanho do pecíolo , em cm, em duas áreas: seca e
-#'     úmida. Selecionou-se de cada uma dessas áreas amostras aleatórias
-#'     de plantas e mediu-se o tamanho dos pacíolos.
+#'     mediu-se o tamanho do pecíolo, em centímetros, em duas áreas:
+#'     seca e úmida. Selecionou-se de cada uma dessas áreas amostras
+#'     aleatórias de plantas e mediu-se o tamanho dos pecíolos.
 #' @format Um \code{data.frame} com 69 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{area}}{Fator de 2 níveis qualitativos, que são as áreas
-#'     seca e úmida.}
+#' \item{\code{area}}{Fator de 2 níveis que representa a característica
+#'     da área onde a planta se desenvolveu.}
 #'
 #' \item{\code{tamanho}}{Tamanho do pecíolo, 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.45, pág. 148)
@@ -24,9 +24,22 @@
 #' data(AndradeTb2.45)
 #' str(AndradeTb2.45)
 #'
-#' barplot(xtabs(data = AndradeTb2.45),
-#'         legend = TRUE,
-#'         xlab = "Tamanho do Pecíolo (em cm)",
-#'         ylab = "Frequência")
+#' # Medidas resumo para cada área
+#' with(AndradeTb2.45, tapply(tamanho, area, summary))
 #'
-NULL
\ No newline at end of file
+#' # Histogramas sobrepostos
+#' hts <- with(AndradeTb2.45, tapply(tamanho, area, hist, plot = FALSE))
+#' plot(0, 0, type = "n",
+#'      xlim = extendrange(AndradeTb2.45$tamanho),
+#'      ylim = range(sapply(hts, function(h) range(h$counts))),
+#'      xlab = "Tamanho do Pecíolo (em cm)",
+#'      ylab = "Frequência")
+#' cols <- c("gray70", "gray30")
+#' lapply(1:length(hts), function(i) {
+#'     plot(hts[[i]], add = TRUE, col = cols[i], labels = TRUE,
+#'          border = "white")
+#' })
+#' legend("top", title = "Área", legend = names(hts),
+#'        fill = cols, bty = "n", border = "white")
+#'
+NULL
diff --git a/R/AndradeTb2.46.R b/R/AndradeTb2.46.R
index 19c06026..1eca3e7c 100644
--- a/R/AndradeTb2.46.R
+++ b/R/AndradeTb2.46.R
@@ -1,22 +1,19 @@
 #' @name AndradeTb2.46
 #' @title Condutividade e Salinidade da Lagoa da Conceição
-#' @description Valores de condutividade (mho) e salinidade (g/l) para a
-#'     região III da Lagoa da Conceição.
+#' @description Estudo com o objetivo de verificar se existe correlação
+#'     entre a condutividade e a salinidade na região III da Lagoa da
+#'     Conceição, Florianópolis, SC.
 #' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{estacao}}{Fator de 6 níveis qualitativos, que são as
-#'     estações da região III da Lagoa da Conceição.}
+#' \item{\code{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
 #'
-#' \item{\code{cond}}{Condutividade da região III da Lagoa da Conceição,
-#'     em mho.}
-#'
-#' \item{\code{salin}}{Salinidade da região III da Lagoa da Conceição,
-#'     em g/l.}
+#' \item{\code{salin}}{Salinidade da lagoa, em \eqn{g/l}.}
 #'
 #' }
-#' @keywords AAS
+#' @seealso \code{\link{AndradeTb2.38}}
+#' @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.46, pág. 149)
@@ -32,4 +29,9 @@
 #'        xlab = "Salinidade (g/l)",
 #'        ylab = "Condutividade (mho)")
 #'
-NULL
\ No newline at end of file
+#' # Agrupando os dados de temperaturas, provinientes do dataset
+#' # AndradeTb2.38 [VERIFICAR SE É VÁLIDO]
+#' (da <- merge(AndradeTb2.46, AndradeTb2.38))
+#' splom(da, type = c("g", "p", "r"))
+#'
+NULL
diff --git a/R/AndradeTb2.47.R b/R/AndradeTb2.47.R
index 471471c2..48e7823a 100644
--- a/R/AndradeTb2.47.R
+++ b/R/AndradeTb2.47.R
@@ -1,31 +1,40 @@
 #' @name AndradeTb2.47
-#' @title Notas Médias de Aroma de Café Torrado e Moído
-#' @description Um estudo sobre vida de prateleira de café torrado e
-#'     moído foi realizado. Os testes sensoriais foram iniciados a
-#'     partir do nono dia de estocagem e, depois, a intervalos de mais
-#'     ou menos sete dias. Em cada uma das seis sessões de avaliação
-#'     sensorial três amostras (pacotes) foram obtidas ao acaso. Seis
-#'     provadores treinados avaliaram as três amostras simultaneamente,
-#'     julgando o produto quanto ao aroma em uma escala descritiva de 1
-#'     a 6 pontos: 6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
-#'     aceitável; 2 = inaceitável e 1 = não bebível.
+#' @title Avaliação do Período de Estocagem no Aroma de Cafés
+#' @description Estudo sobre vida de prateleira de café torrado e
+#'     moído. Cafés estocados durante nove dias foram submetidos a
+#'     sessões de avaliação, realizadas por uma equipe de provadores
+#'     treinados. Ocorreram seis sessões de avaliação com intervalos de
+#'     mais ou menos sete dias com início no nono dia de estocagem. [SE
+#'     É O MESMO PRODUTO AVALIADO EM DIFERENTES TEMPOS] ***Três produtos
+#'     selecionados ao acaso foram avaliados simultaneamente, para cada
+#'     período de estocagem, por seis provadores que os avaliaram quanto
+#'     ao seu aroma, em uma escala descritiva de 6 pontos (6 =
+#'     excelente; 5 = bom; 4 = aceitável; 3 = pouco aceitável; 2 =
+#'     inaceitável e 1 = não bebível). Ao final de cada sessão foram
+#'     registrados as notas médias das seis avaliações.*** [SE A CADA
+#'     SESSÃO SÃO DIFERENTES AMOSTRAS SELECIONADAS] ***Em cada sessão
+#'     seis provadores avaliaram simultaneamente três amostras obtidas
+#'     ao acaso, quanto ao seu aroma, em uma escala descritiva de 6
+#'     pontos (6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
+#'     aceitável; 2 = inaceitável e 1 = não bebível). Ao final de cada
+#'     sessão foram registrados as notas médias das seis avaliações.***
 #' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{sessao}}{Fator de 6 níveis qualitativos, que são as
-#'     sessões de avaliação.}
-#'
 #' \item{\code{tempo}}{Tempo de estocagem, em dias.}
 #'
-#' \item{\code{amostra}}{Fator de 3 níveis qualitativos, que são os
-#'     diferentes pacotes.}
+#' \item{\code{amostra}}{Fator de 3 níveis que identificam as amostras
+#'     (pacotes de café). [SE SÃO DIFERENTES PACOTES SELECIONADOS EM
+#'     CADA TEMPO DEVE-SE EXCLUIR ESSA VARIÁVEL.]}
 #'
-#' \item{\code{result}}{Resultado médio da equipe de provadores para
-#'     cada amostra.}
+#' \item{\code{result}}{Resultado médio das avaliações da equipe de
+#'    provadores.}
 #'
 #' }
-#' @keywords DBC
+#' @keywords
+#'     longitudinal[SE-FOR-OS-MESMOS-PRODUTOS-EM-DIFERENTES-TEMPOS]
+#'     RS[SE-FOREM-PRODUTOS-DIFERENTES] sensorial
 #' @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.47, pág. 149)
@@ -35,29 +44,28 @@
 #' str(AndradeTb2.47)
 #'
 #' library(lattice)
-#' 
-#' graf1 <- xyplot(result ~ sessao,
-#'                 groups = amostra,
-#'                 data = AndradeTb2.47,
-#'                 type = c("p", "r"),
-#'                 auto.key = list(title = "Pacote",
-#'                                 cex.title = 1.1,
-#'                                 columns = 3),
-#'                 xlab = "Seção de Avaliação",
-#'                 ylab = "Resultado Médio da Equipe de Provadores")
-#'
-#' graf2 <- xyplot(result ~ tempo,
-#'                 groups = amostra,
-#'                 data = AndradeTb2.47,
-#'                 type = c("p", "r"),
-#'                 auto.key = list(title = "Pacote",
-#'                                 cex.title = 1.1,
-#'                                 columns = 3),
-#'                 xlab = "Tempo de Estocagem (dias)",
-#'                 ylab = "Resultado Médio da Equipe de Provadores")
-#'
-#' print(graf1, position = c(0, 0.5, 1, 1), more = TRUE)
-#'
-#' print(graf2, position = c(0, 0, 1, 0.5))
-#'
-NULL
\ No newline at end of file
+#' # [SE FOREM OS MESMOS PRODUTOS]
+#' xyplot(result ~ tempo, groups = amostra,
+#'        data = AndradeTb2.47,
+#'        type = c("g", "l"),
+#'        alpha = 0.7,
+#'        auto.key = list(
+#'            column = 3,
+#'            title = "Amostra", cex.title = 1,
+#'            lines = TRUE, points = FALSE
+#'        ),
+#'        xlab = "Tempo de Estocagem (dias)",
+#'        ylab = "Resultado das Avaliações",
+#'        panel = function(x, y, ...) {
+#'            panel.xyplot(x, y, ...)
+#'            panel.xyplot(x, y, type = "a", col = 1, lwd = 2)
+#'        })
+##
+#' # [SE FOREM PRODUTOS DIFERENTES]
+#' xyplot(result ~ tempo,
+#'        data = AndradeTb2.47,
+#'        type = c("g", "p", "r"),
+#'        xlab = "Tempo de Estocagem (dias)",
+#'        ylab = "Resultado das Avaliações")
+#'
+NULL
diff --git a/R/AndradeTb3.1.R b/R/AndradeTb3.1.R
index ebdd9766..65372e0a 100644
--- a/R/AndradeTb3.1.R
+++ b/R/AndradeTb3.1.R
@@ -3,23 +3,21 @@
 #' @description Censo realizado nos domicílios da comunidade polonesa de
 #'     Dom Pedro, próximo a Curitiba, para se estudar a mortalidade dos
 #'     residentes na colônia. O estudo foi realizado sobre três gerações
-#'     no final do século XIX.
+#'     no final do século XIX, contabilizando 99 mortes.
 #' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{idade}}{Fator de 6 níveis qualitativos, que são as idades
-#'     em anos completos, sendo: a = 0 a 1 ano; b = 2 a 4 anos; c = 5 a
-#'     9 anos; d = 10 a 14 anos; e = 15 a 29 anos; g = mais de 29 anos.}
+#' \item{\code{idade}}{Idades dos residentes, em anos completos
+#'     categorizada em 6 níveis (0-1 ano; 2-4 anos; 5-9 anos; 10-14
+#'     anos; 15-29 anos; e >29 anos).}
 #'
-#' \item{\code{sexo}}{Fator de 2 níveis qualitativos, que indica o
-#'     gênero masculino ou feminino.}
+#' \item{\code{sexo}}{Sexo dos residentes (masculino ou feminino).}
 #'
-#' \item{\code{mort}}{Mortalidade dos residentes na colônia polonesa de
-#'     Dom Pedro.}
+#' \item{\code{mort}}{Número de mortes.}
 #'
 #' }
-#' @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 3.1, pág. 172)
@@ -28,15 +26,19 @@
 #' data(AndradeTb3.1)
 #' str(AndradeTb3.1)
 #'
-#' library(lattice)
+#' (xt <- xtabs(mort ~ ., data = AndradeTb3.1))
+#' mosaicplot(xt, cex.axis = 0.9, las = 2, main = "")
 #'
+#' library(lattice)
 #' xyplot(mort ~ idade,
 #'        groups = sexo,
+#'        type = c("g", "o"),
 #'        data = AndradeTb3.1,
 #'        auto.key = list(title = "Gênero",
 #'                        cex.title = 1.1,
+#'                        lines = TRUE,
 #'                        columns = 2),
 #'        xlab = "Idade (anos completos)",
 #'        ylab = "Mortalidade dos Residentes")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb3.2.R b/R/AndradeTb3.2.R
index 674888c1..8ceb70ea 100644
--- a/R/AndradeTb3.2.R
+++ b/R/AndradeTb3.2.R
@@ -1,22 +1,22 @@
 #' @name AndradeTb3.2
 #' @title Fecundidade de Duas Raças Suínas
 #' @description Estudo sobre fecundidade de duas raças suínas, onde
-#'     foram examinados 28 animais.
+#'     foram examinados 14 animais de cada raça. O objetivo do estudo é
+#'     verificar a associação entre raça e fecundidade.
 #' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{raca}}{Fator de 2 níveis qualitativos, que são as raças
-#'     dos suínos.}
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos suínos.}
 #'
-#' \item{\code{fecun}}{Fator de 2 níveis qualitativos, onde F =
-#'     "Fecundas" e Fc = "Não fecundas".}
+#' \item{\code{fecun}}{Fator de 2 níveis que representa a fecundidade da
+#'     raça.}
 #'
-#' \item{\code{freq}}{Frequência absoluta (relativa) da fecundidade das
-#'     duas raças suínas.}
+#' \item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+#'     dadas por \code{raca} e \code{fecun}, respectivamente.}
 #'
 #' }
-#' @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 3.2, pág. 193)
@@ -25,11 +25,19 @@
 #' data(AndradeTb3.2)
 #' str(AndradeTb3.2)
 #'
-#' barplot(AndradeTb3.2$freq,
+#' xt <- xtabs(freq ~ ., AndradeTb3.2)
+#' addmargins(xt)
+#' addmargins(prop.table(xt))
+#'
+#' mosaicplot(t(xt), cex.axis = 0.9, main = "",
+#'            col = c("darkturquoise", "blue"),
+#'            xlab = "Fecundidade",
+#'            ylab = "Raça")
+#'
+#' barplot(xt, beside = TRUE,
 #'         col = c("darkturquoise", "blue"),
-#'         legend.text = c("Raça A", "Raça B"),
-#'         names.arg = c(rep("F", 2), rep("Fc", 2)),
+#'         legend.text = paste("Raça", levels(AndradeTb3.2$raca)),
 #'         xlab = "Fecundidade",
 #'         ylab = "Frequência Absoluta")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb4.1.R b/R/AndradeTb4.1.R
index 43549db2..10286fc0 100644
--- a/R/AndradeTb4.1.R
+++ b/R/AndradeTb4.1.R
@@ -1,18 +1,18 @@
 #' @name AndradeTb4.1
-#' @title Número de Casais com X Filhos Homens
-#' @description Foram observados 10.690 casais com 12 filhos cada, e
-#'     então contou-se o número de filhos do sexo masculino de cada
-#'     casal.
+#' @title Número de Filhos Homens em Casais com 12 Filhos
+#' @description Foram observados 10.690 casais com 12 filhos,
+#'     registrando quantos dos filhos são do sexo masculino.
 #' @format Um \code{data.frame} com 13 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{x}}{Número de filhos homens.}
+#' \item{\code{nfilhos}}{Número de filhos homens.}
 #'
-#' \item{\code{casais}}{Número de casais com x filhos homens.}
+#' \item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+#'     homens.}
 #'
 #' }
-#' @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 4.1, pág. 235)
@@ -21,10 +21,14 @@
 #' data(AndradeTb4.1)
 #' str(AndradeTb4.1)
 #'
-#' barplot(AndradeTb4.1$casais,
+#' # Média de filhos homens por casal
+#' with(AndradeTb4.1, weighted.mean(nfilhos, ncasais/sum(ncasais)))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeTb4.1$ncasais,
 #'         col = "darkturquoise",
-#'         names.arg = AndradeTb4.1$x,
+#'         names.arg = AndradeTb4.1$nfilhos,
 #'         xlab = "Número de Filhos Homens",
 #'         ylab = "Número de Casais")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/AndradeEg4.11.txt b/data-raw/AndradeEg4.11.txt
index fa62dc15..789a2eb2 100644
--- a/data-raw/AndradeEg4.11.txt
+++ b/data-raw/AndradeEg4.11.txt
@@ -1,4 +1,4 @@
-ninhos	quadr
+ninhos	freq
 0	72
 1	21
 2	6
diff --git a/data-raw/AndradeEx4.8.txt b/data-raw/AndradeEx4.8.txt
index 4a220a5e..3bd862ad 100644
--- a/data-raw/AndradeEx4.8.txt
+++ b/data-raw/AndradeEx4.8.txt
@@ -1,4 +1,4 @@
-x	ninhadas
+nmachos	ninhadas
 0	20
 1	360
 2	700
diff --git a/data-raw/AndradeTb2.45.txt b/data-raw/AndradeTb2.45.txt
index e217b0a5..f058feba 100644
--- a/data-raw/AndradeTb2.45.txt
+++ b/data-raw/AndradeTb2.45.txt
@@ -1,39 +1,39 @@
 area	tamanho
-umida	13.8
-umida	14.3
-umida	14.5
-umida	15
-umida	15
-umida	15.5
-umida	15.5
-umida	15.5
-umida	15.6
-umida	15.6
-umida	15.8
-umida	15.8
-umida	15.8
-umida	15.8
-umida	16
-umida	16
-umida	16
-umida	16.1
-umida	16.1
-umida	16.3
-umida	16.3
-umida	16.3
-umida	16.3
-umida	16.5
-umida	16.5
-umida	16.6
-umida	16.6
-umida	16.6
-umida	16.8
-umida	16.8
-umida	16.9
-umida	17
-umida	17
-umida	17.2
-umida	17.4
+úmida	13.8
+úmida	14.3
+úmida	14.5
+úmida	15
+úmida	15
+úmida	15.5
+úmida	15.5
+úmida	15.5
+úmida	15.6
+úmida	15.6
+úmida	15.8
+úmida	15.8
+úmida	15.8
+úmida	15.8
+úmida	16
+úmida	16
+úmida	16
+úmida	16.1
+úmida	16.1
+úmida	16.3
+úmida	16.3
+úmida	16.3
+úmida	16.3
+úmida	16.5
+úmida	16.5
+úmida	16.6
+úmida	16.6
+úmida	16.6
+úmida	16.8
+úmida	16.8
+úmida	16.9
+úmida	17
+úmida	17
+úmida	17.2
+úmida	17.4
 seca	7.3
 seca	7.6
 seca	7.8
diff --git a/data-raw/AndradeTb2.46.txt b/data-raw/AndradeTb2.46.txt
index 2ea4bf1c..9bf9b196 100644
--- a/data-raw/AndradeTb2.46.txt
+++ b/data-raw/AndradeTb2.46.txt
@@ -1,7 +1,7 @@
-estacao	cond	salin
-23	19.92	3.85
-24	11.78	2.26
-25	14.11	2.06
-26	16.1	2.89
-27	36.52	9.61
-28	51.46	11.4
+cond	salin
+19.92	3.85
+11.78	2.26
+14.11	2.06
+16.1	2.89
+36.52	9.61
+51.46	11.4
diff --git a/data-raw/AndradeTb3.1.txt b/data-raw/AndradeTb3.1.txt
index 2cacc6b9..d0a13a9e 100644
--- a/data-raw/AndradeTb3.1.txt
+++ b/data-raw/AndradeTb3.1.txt
@@ -1,13 +1,13 @@
 idade	sexo	mort
-a	m	33
-b	m	4
-c	m	2
-d	m	0
-e	m	1
-g	m	7
-a	f	28
-b	f	7
-c	f	2
-d	f	1
-e	f	6
-g	f	8
+0-1 ano	Masculino	33
+2-4 anos	Masculino	4
+5-9 anos	Masculino	2
+10-14 anos	Masculino	0
+15-29 anos	Masculino	1
+>29 anos	Masculino	7
+0-1 ano	Feminino	28
+2-4 anos	Feminino	7
+5-9 anos	Feminino	2
+10-14 anos	Feminino	1
+15-29 anos	Feminino	6
+>29 anos	Feminino	8
diff --git a/data-raw/AndradeTb3.2.txt b/data-raw/AndradeTb3.2.txt
index cca28e98..dc76104a 100644
--- a/data-raw/AndradeTb3.2.txt
+++ b/data-raw/AndradeTb3.2.txt
@@ -1,5 +1,5 @@
 raca	fecun	freq
-A	F	12
-B	F	8
-A	Fc	2
-B	Fc	6
+A	Fecundas	12
+B	Fecundas	8
+A	Não fecundas	2
+B	Não fecundas	6
diff --git a/data-raw/AndradeTb4.1.txt b/data-raw/AndradeTb4.1.txt
index 0c2238a1..984daef7 100644
--- a/data-raw/AndradeTb4.1.txt
+++ b/data-raw/AndradeTb4.1.txt
@@ -1,4 +1,4 @@
-x	casais
+nfilhos	ncasais
 0	5
 1	35
 2	180
diff --git a/data/AndradeEg4.11.rda b/data/AndradeEg4.11.rda
index 55f3c194a3f8630cd82cd4a5ed2455e28150f357..b3013c790053741ec45f844f80a876e5d418cd34 100644
GIT binary patch
literal 215
zcmZ>Y%CIzaj8qGbOj6HaW?-1{|G<AEF9rt28fG;I0SEo(dm9`W7&tdDY)cg3<z--C
zU%|ld!W(==Qj$@Efze<_hDwm)uL%qp7cMX`2=<(CWKuhjsgb#5&I^_Uo-_C+9j+IT
zb<t}6)whDdjVo0>q-geS4_DpDjEy0gSKFAR8h8%*GR|G%$&(X&Rz=Cjv!GLWqj`P*
zE4{sa?c2Bc^<8lcvs%88g|Wh9Zm`0AvmNGlonId4)jnm)s5(=a^WUTdHS@5rM2;Ep
VMOz&s#Qwyd6nW_6*fDnj4*+t+PYeJ6

literal 219
zcmZ>Y%CIzaj8qGbe79izUIvC4{}22(@?v0MtYKDj5OC0czQ4hNfq`=a!?r|`6DKkl
z7)%&=9I`U~S#2gZC1qqJ85*cBnCQ_yg_m)$vjYQzswU$Sju}ibS2muGc4v61a6z#B
z{d4OR<?ZTgKQttDC9;Q9oK>69vo<ng<2=)hEdeLC3h*@fGJ1P7N!(aIi^D}?(p?GR
zjpp_BFJnu0+SVEry;ZN9{A``h7f+V5Djx+U&kqOZt@=2@Sx7QzSF4z*OMDV%z_&*|
a8(8cGdoO1lm*D?ct`gkJ$@hxu_XPl<v{(E9

diff --git a/data/AndradeEx4.8.rda b/data/AndradeEx4.8.rda
index 8da26e4d48d9a99c948b6df600d801f13db52d6a..04bbff220a7422da0cfce86bfb76be0432a147e4 100644
GIT binary patch
literal 187
zcmZ>Y%CIzaj8qGbd~?lTf`K8k{?7kzJ`4<wA`WT{0uK7=a}GE#FgP%<FgP#>E@0^5
zHFeWmxaA5jFT-V@=B(-vPL;`SZf-MqSR^HR8D3s|IyLCj>`9GNA1+vM@X8s@-;z4>
znl?2S%qX&av#)@u%%#Vo_?^Fs&t%R#2|qT6-!><_-W4nPxqB~py6yJE?dx0no(f5v
uc)8=5?!qNb$6O{oNtHNd*dnh#^;X;x(RXwA3poDMd(u^~Q1RxPc?JOL^-q2P

literal 181
zcmZ>Y%CIzaj8qGbba=j{pMfE>{?7k09|i_T5eGE}0SEo`IR_jV7#tW_7#tV`7cg}3
ziWtrI33go8aG8<U)@+54R)#_n+bo6?3@Lg+g&X~|=Iy+pkq}^D9KD3^nxMy?RyR)L
z3FT&APBF0NN=7`=&tfuJa%7cMAhV-#Gs}iePMSWIN5x&Qr*7L_=yky*bLGRmZ7WtB
mwM`R<^tHcn@NM7JxLlQ``r7pp2K7hpO!N~`5wLu#d;kEg-9sh-

diff --git a/data/AndradeTb2.38.rda b/data/AndradeTb2.38.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c190b6ff345ed5fceed151a559091c8350fc0385
GIT binary patch
literal 263
zcmZ>Y%CIzaj8qGbRJ`@|HUmRl{oQ|`eHgnFB|fCIn7G)h-<jdW(7?#xAi$=;!Q{As
zVJCBNNTQ($123;6^OXxG8Ei8rrN|smV@gS2NlHpIn4!2#Z3fSTWe&yx%nl3;3=A1E
zEdpT<4{K$3E4vwg@~`D~;yo$p{QUY{mA%_!eHdo0a4B)+;|TMZ=OtVvDz;FIhta{1
zqfDuhF@?t>b4iZNLe_wtUPeL(?740JnTv=r+;L~g&2+re=qK*fwL`NvwywSBSo^jw
zGc_CfRDVj|Jhw?KZ9-|MIMXiCEUPmn9WyqCO36(6qpDC=>^D(!#fJpDvx<jHxOm;4
SGBW+sd(u^~P{DcY>umr;HeewD

literal 0
HcmV?d00001

diff --git a/data/AndradeTb2.45.rda b/data/AndradeTb2.45.rda
index a9be6175f8373cd4a2facca90245f8538c7216ac..f0b5fd159950bc0fc9fb5fa3da8040a465910978 100644
GIT binary patch
literal 365
zcmZ>Y%CIzaj8qGb6b>-H%fPs-{_X$G9?JjD|6@pF5pl3jpWEQTz+k{2!NJDJz`(eH
zF+zyfbLC6km5UuGU*eTYxxm2e=GH4W+3~ETp#h_zgy1q3i5_7!MhO)!L9-TKBVLme
zQYIId^)g&mTsCv%oQ)}ZMdG1PPsOedWiUD|y~dESx$ex717h2iF7&LA2{;uKxmU9w
z#DjHf>yx`@&8Bfo?c|ucKrM5Ekg3AdgFIr*0S*%)GK@|!YH_MLd$1jf$(_i;!mQBf
zaN(|3!K9f>L~q&dQJC5JNm9sB@BEu4ulYw49NTvsk$w8<fB3u)QodOXEyo-jo17RD
zE~{{-Xs|ADf1IPh<DcH;$uoVks7uR%se9M*a3(CbwVJ)mAht<Jm67x3P3unQuYJv%
z6F6U*8ZO^;MI)^zd)p%YRjQj--j%rbilcSGwv34Ww-JX*Z?#%nm7l(ONmIkRty6@j
X3eAxe*!NudPwYvNhfWT@4(Ce%KH8KT

literal 359
zcmZ>Y%CIzaj8qGbeDzrCI|Jjg|8M_q_E7$J{vSgci-?1L`uqk51_lEL4hA+x1_s6r
zj1fY-8uOO*E;5m{b?cRsVqh@I$T<1R#B!OM&n$x(YHBlB4k$JmC^Jmda1Or0?C-g(
z$06gg+bk1iXUADSPiHy3ee~;bOzSTV2cD(9uX`L4?=MSA;EtY{;g%kfm6|=@N;`V4
zg4i|n>E)O5mnm|&HOyS*Xe=GX8S9ZLe{4dd!lnypQ<y@8eA*`Pw(OKv;^1I&WNKWv
z^YsCivrJ##H-)KJoSMX0X5yi;`u7D6!?GENcN|D~`Dqi|q@@f_$qEXG6&VaNC$Sz9
z5mb71Hb;TOAid9%XNIxXBBw;J&-!8}TUMU;?Y-Y4nbBp+DDwW~124l+E55r0>Pwzq
z_Io|&!mYbEw=L2S6uOa_CNFS=qtQoJezoMXHH}tpoL)=){^7~CU|~p>j_9QgJROnG
RmH)(^6nW_6yt-%g9RP!Gl%N0r

diff --git a/data/AndradeTb2.46.rda b/data/AndradeTb2.46.rda
index 4a69eb13598bc1cb208e1e6cf909159a61bdc6b4..bba20c805655af6c87b5b28e88f41177b69059ac 100644
GIT binary patch
literal 273
zcmZ>Y%CIzaj8qGb%*mBYU|`7k|M&l9AH~k2u?{5*OkC{M=ge?oXfR-4WC)O8Q{Z6|
z+`zCiBP&ZGgMop8Kllm*FGJPrVCPdDD_<E(yIfrCD={l0iC4mBMlZACR$j(MY71-@
zTwq|xU@&1|$Y2pVJK@sy*NhFvns2fyKfn7%K|8DRS|d}=L&*hJDHEJL1si0ZHRYVJ
z5n*BoJP^du;Mrho(Zp$RJ^cvZ#Ecf>JeFtwd5@Q_xg|K~tL}WIY0DN={pgIbsx{7Q
zXEMy3$)KnpyzuEO)soG#*85ImE3T1X^mJA)7LZgsSm8F0IlrPwwPE|Zk48y$=?&iw
e-jMvNqT6!d5Rd$lCe}Z(Cq*7QId0ri*#H3S5^7%n

literal 320
zcmZ>Y%CIzaj8qGb<aqlgkAY$P|G)n?`zUrEjXzMbz{JH~eeMh=h6V!$Muq?hHU%Cg
z!3_-G(%O~<N@bWZFfcH%HDoYLH7*nm`LN7H;Iab)0|Vm%hRlT%QWmaYTmVua#lRrN
z#KqmgF*CKH)0iWKZ^J}RYlbAYjrSQ71<Hhra~K-Vc6eXUv-Zhx;t&cDc*+o3Ef#m{
z)|*U+Q{pX+CJX|C<%^DJa^`5XPGp+EaEet?h4q4f)PW6&+#HNM{<P&Qy=0xZN9d1@
zChrPI{;O(Uh04~J*>S5E-aj{M<<Dj2a{B|8DeO4epKr$GTs2cyaeJ|4;hJTe*)pRq
z_7r5^wdm5<@c1Qp^~EcTo41N5eQI5LDbUDk?Or8`1ct`fdXrD}Pkg{Xq1~WA^NqcY
ZKg)!Q+C;t?_K)6qEawtpl-=8V004lcdXxYF

diff --git a/data/AndradeTb3.1.rda b/data/AndradeTb3.1.rda
index a67efd321ab7aef2cb8822621b003b061236f088..05dac539a0c1e12bd0e01387b60b536561a1ca2f 100644
GIT binary patch
literal 288
zcmZ>Y%CIzaj8qGbbclR2k%8fV{el1AJXjK#>l9U)L>%nZ=O1ujU}4<A@WbKC<zSav
zGkoP1TriQ!keDeQd_{tRt%2d>0tSW)oFbQI2US(g^j(p}z+jSMV&pL)Wr?#<PhNjx
z>x{0O(*;YSXRZ3QI6S4K^{{2!g;3ks+fVi!=3nb~_6Db(S&#a8qpZ8)Z|CLieyGS|
zvT=iY$*aRMZ#6X!oZ{5wWM<H~?J-Hp*JMqWlqcJ=GDC+;dGGnYS-cZD5OVEp_NsL)
zLFcc&_G0*waM`u<soRS^ANIt1WNc7+Bl_-c(;5|nZIAdedkU^;bb7VFes@udYwOy}
w>?bCO|7csN6ku{k((dxqmctHRNi8$luf*+(U_Ed~{$sgHa4RPZ>%5Z!0AgT(tN;K2

literal 251
zcmZ>Y%CIzaj8qGbbbUMRFayJf`UC&Jd9WxjS}>?Eh&b3UpL@W8frW7c!_^5H%co@W
z2ljGK;59O;a?9ckzR1htl)%8*(8G4A%gBV`0$an86Bi^TSQb22*x=Bqz|QlLq3zIw
zZOzYpv=bd2X4I-2(Y%(zt9&}bCE@U#A2JgPl$aJPJl*Ov&FuW!nBR*yymSmqrcAjS
zKT~bf3*Uupipn!ojtJ&91qiblOr4nI6n2@#)gU)?`rD%CkMsWAwCmOq{U*gL<bUj!
zOOz?g-p5n2n)3|r=yYz^)w=ZIST@(OU+YB*&sqfJJv2L9(A(Zt-q_&6`6u?I$U`Sb
I@omvO0ElR50{{R3

diff --git a/data/AndradeTb3.2.rda b/data/AndradeTb3.2.rda
index 5e0293c4814b1d48a160cf57555758c927c88d59..4973fca469098949b772a8609d47468eb7c1835d 100644
GIT binary patch
literal 246
zcmZ>Y%CIzaj8qGboF8@LCj-Og`YZp-JQy4pB^XQ@MI7we_cu5&a4>K%FtBc5xR&6x
zO!KA5<trH{7hGKCHapl~<g1C|$`z9S3O+qOJpx7&LK+%U3>gekYz=a%idz~PHaSJO
z+4&Yt$>})7kjHlLd1y`p<9kN?ib<}=+<GplY`HA;l*`_Qm2JYxL^bB?vBE1`Zf%&5
zB9y6=tHhD)!)c_$vcYPFM}`2CY{|!cX>T@4+|T#h{_vf+g=50Q7qyiNDU*7F5|<Tz
zOgd(gqH}2KyG0(SjeP3Ea%UenwMt>nN?*o(j#iuUDvvsTh-$4DFLJdAm;mx80G#z=
AxBvhE

literal 226
zcmZ>Y%CIzaj8qGbyrVlMl!0M${ek~w9t;eO5)7scA`bTK`x_h>7+5zj>}U>l>DTzE
zzH)Jvg!_`OlCNg2NL)DKvRXruROVu5H%^gDy+#?#4vY)fCaZF7?7g&L>Cy1+tB*Rh
zmUX{PO7-9Wddcm&yyD$Ptij5>lhw9Gik*wCJ<ynyF`MyyO>KDHwW&<pLcSccSyc>|
zHMKblOx>v>VAAyElxMwkrO#ZsO>;{3J2)wvdAH?+?aTCMW_>HH9QXeDylVTR+1K?N
jPcO((;4hoto5bPI&u*Y5vS9tAcOJ{Rgrr+Hbu9n@{w`m9

diff --git a/data/AndradeTb4.1.rda b/data/AndradeTb4.1.rda
index c7b789d38c2a7fcb7eefa824651222490ea6e853..9475b497364df60d26251c2629fa0c1cc0b4b22c 100644
GIT binary patch
literal 220
zcmZ>Y%CIzaj8qGboEf|PF#|(${n`KjJQz3_O&C-eL=M!a&uMUA;9+275Mbb7+`zCc
zQRJ%$+bqsrWrj>PMl(kNmBg*W3@j%b7}PjLJQ&y-PB2_xxS+1A>g?1i^7W0VL(`iY
z3vM-~D5ISs(H1!~FJJ#BtH5rbu*EuJMc=cy%%C4uQ9@TPYAZzch`0zVZd@qbE5O#|
zE~X;1x7Y8$#Mza>`}W(2WX@K7;QmB2&Q)=}^}8edGMyQY#XJ8lT3R|&f1j(tzKHV@
aGyT^XN3glOFfzW0Jt^|g$tksLeh&bhGf)=*

literal 211
zcmZ>Y%CIzaj8qGb^o=o_!@$s7fA;@B4+aiK69!cVkpuPWa}GE#@Gvkk2rzIkZeZA!
zv52jK;Q~X33Bw5`WnX3m1_lNOMx{jzQVcxKzETWw3tn_KuA8jxvDDWgq^s$0?BWfM
zl2b&^q~{7exIFuORSApiMWJi&o~*KxR2Grd<MH&nIJHlS*R5eHZ!gD;qz);rcV;b;
z^S&)h2ul@pnjLFcJTK-G!!j+wh(5mB_xt2>y5}S@iljJt)S21GcYc(eu$U==S^UW{
R`$z9QmU9Vlu5P>B002#AOB?_I

diff --git a/man/AndradeEg4.11.Rd b/man/AndradeEg4.11.Rd
index febf1d7b..2569572e 100644
--- a/man/AndradeEg4.11.Rd
+++ b/man/AndradeEg4.11.Rd
@@ -2,16 +2,16 @@
 % Please edit documentation in R/AndradeEg4.11.R
 \name{AndradeEg4.11}
 \alias{AndradeEg4.11}
-\title{Dispersão de Formigas da Espécie \emph{Acromyrmex striatus}}
+\title{Disposição de Ninhos de Formigas (\emph{Acromyrmex striatus})}
 \format{Um \code{data.frame} com 5 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{ninhos}}{Fator de 5 níveis qualitativos, que são os
-    os números de ninhos por quadrante.}
+\item{\code{ninhos}}{Fator de 5 níveis, que representa a quantidade
+    de ninhos por quadrante.}
 
-\item{\code{quadrantes}}{Número de quadrantes com os respetivos
-    números de ninhos.}
+\item{\code{freq}}{Frequência de quadrantes em que se observou
+    \code{ninhos} ninhos de formiga.}
 
 }}
 \source{
@@ -21,25 +21,29 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     228)
 }
 \description{
-Estudo da dispersão de formigas da espécie
-    \emph{Acromyrmex striatus}, uma espécie de formiga cortadeira,
-    em dunas da praia da Joaquina, Florianópolis, SC, onde uma área
-    de 100m x 100m, foi subdividida em 100 quadrantes de 10m x 10m.
-    Em cada um desses quadrantes foi contado o número de ninhos de
-    \emph{Acromyrmex striatus}. Maiores detalhes sobre esse estudo
-    estão em Lopes (2001).
+Estudo sobre como se dispõem os ninhos de formigas da
+    espécie \emph{Acromyrmex striatus}, uma espécie de formiga
+    cortadeira, em dunas da praia de Joaquina, Florianópolis, SC. A
+    condução do estudo se deu em uma área de 10.000\eqn{m^2} que foi
+    subdividida em 100 quadrantes de mesmo tamanho. Contou-se então,
+    o número de ninhos em cada um desses quadrantes. Maiores detalhes
+    sobre esse estudo estão em Lopes (2001).
 }
 \examples{
 
 data(AndradeEg4.11)
 str(AndradeEg4.11)
 
-barplot(AndradeEg4.11$quadr,
+# Distribuição de frequências
+barplot(AndradeEg4.11$freq,
         col = "darkturquoise",
         names.arg = AndradeEg4.11$ninhos,
         xlab = "Ninhos por Quadrante",
         ylab = "Número de Quadrantes")
 
 }
-\keyword{DBC}
+\references{
+[REFERENCIAR O TRABALHO DO LOPES DE 2001]
+}
+\keyword{contingência*}
 
diff --git a/man/AndradeEx4.8.Rd b/man/AndradeEx4.8.Rd
index 47e73ab8..6aa03bd8 100644
--- a/man/AndradeEx4.8.Rd
+++ b/man/AndradeEx4.8.Rd
@@ -2,14 +2,15 @@
 % Please edit documentation in R/AndradeEx4.8.R
 \name{AndradeEx4.8}
 \alias{AndradeEx4.8}
-\title{Número de Ninhadas com X Porcos Machos}
+\title{Número de Machos em Ninhadas de Porcos}
 \format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+\item{\code{nmachos}}{Número de machos na ninhada de 5 porcos.}
 
-\item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+\item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+    machos.}
 
 }}
 \source{
@@ -19,20 +20,24 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     8, pág. 237)
 }
 \description{
-Foram examinadas 2.000 ninhadas de cinco porcos cada
-    uma, segundo o número de machos.
+Estudo onde foram examinadas 2.000 ninhadas de cinco
+    porcos, contabilizando o número de machos em cada.
 }
 \examples{
 
 data(AndradeEx4.8)
 str(AndradeEx4.8)
 
+# Média de porcos machos homens por ninhada
+with(AndradeEx4.8, weighted.mean(nmachos, ninhadas/sum(ninhadas)))
+
+# Distribuição de frequências
 barplot(AndradeEx4.8$ninhadas,
         col = "darkturquoise",
-        names.arg = AndradeEx4.8$x,
+        names.arg = AndradeEx4.8$nmachos,
         xlab = "Número de Machos na Ninhada",
         ylab = "Número de Ninhadas")
 
 }
-\keyword{AAS}
+\keyword{contingência*}
 
diff --git a/man/AndradeTb2.38.Rd b/man/AndradeTb2.38.Rd
new file mode 100644
index 00000000..285b1c7f
--- /dev/null
+++ b/man/AndradeTb2.38.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.38.R
+\name{AndradeTb2.38}
+\alias{AndradeTb2.38}
+\title{Salinidade e Temperatura na Região III da Lagoa da Conceição}
+\format{Um \code{data.frame} com 8 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
+
+\item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
+
+}}
+\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)
+}
+\description{
+Estudo com o objetivo de verificar se existe correlação
+    entre a salinidade e a temperatura na região III da Lagoa da
+    Conceição, Florianópolis, SC.
+}
+\examples{
+
+data(AndradeTb2.38)
+str(AndradeTb2.38)
+
+cor.test(~temp + salin, data = AndradeTb2.38)
+
+library(lattice)
+xyplot(temp ~ salin,
+       data = AndradeTb2.38,
+       type = c("p", "r"),
+       xlab = "Salinidade (g/l)",
+       ylab = "Temperatura (ºC)")
+
+# Agrupando os dados de condutividade, provinientes no dataset
+# AndradeTb2.46 [VERIFICAR SE É VÁLIDO]
+(da <- merge(AndradeTb2.38, AndradeTb2.46))
+splom(da, type = c("g", "p", "r"))
+
+}
+\seealso{
+\code{\link{AndradeTb2.46}}
+}
+\keyword{RS}
+
diff --git a/man/AndradeTb2.45.Rd b/man/AndradeTb2.45.Rd
index 0a021516..1e3c019f 100644
--- a/man/AndradeTb2.45.Rd
+++ b/man/AndradeTb2.45.Rd
@@ -2,13 +2,13 @@
 % Please edit documentation in R/AndradeTb2.45.R
 \name{AndradeTb2.45}
 \alias{AndradeTb2.45}
-\title{Tamanho de Pecíolos de \emph{Hydrocotille sp}}
+\title{Tamanho dos Pecíolos de Plantas \emph{Hydrocotille sp}}
 \format{Um \code{data.frame} com 69 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{area}}{Fator de 2 níveis qualitativos, que são as áreas
-    seca e úmida.}
+\item{\code{area}}{Fator de 2 níveis que representa a característica
+    da área onde a planta se desenvolveu.}
 
 \item{\code{tamanho}}{Tamanho do pecíolo, em centímetros.}
 
@@ -21,20 +21,33 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 \description{
 Em um estudo do comportamento de uma planta típica de
     dunas, a \emph{Hydrocotille sp}, quanto ao seu desenvolvimento,
-    mediu-se o tamanho do pecíolo , em cm, em duas áreas: seca e
-    úmida. Selecionou-se de cada uma dessas áreas amostras aleatórias
-    de plantas e mediu-se o tamanho dos pacíolos.
+    mediu-se o tamanho do pecíolo, em centímetros, em duas áreas:
+    seca e úmida. Selecionou-se de cada uma dessas áreas amostras
+    aleatórias de plantas e mediu-se o tamanho dos pecíolos.
 }
 \examples{
 
 data(AndradeTb2.45)
 str(AndradeTb2.45)
 
-barplot(xtabs(data = AndradeTb2.45),
-        legend = TRUE,
-        xlab = "Tamanho do Pecíolo (em cm)",
-        ylab = "Frequência")
+# Medidas resumo para cada área
+with(AndradeTb2.45, tapply(tamanho, area, summary))
+
+# Histogramas sobrepostos
+hts <- with(AndradeTb2.45, tapply(tamanho, area, hist, plot = FALSE))
+plot(0, 0, type = "n",
+     xlim = extendrange(AndradeTb2.45$tamanho),
+     ylim = range(sapply(hts, function(h) range(h$counts))),
+     xlab = "Tamanho do Pecíolo (em cm)",
+     ylab = "Frequência")
+cols <- c("gray70", "gray30")
+lapply(1:length(hts), function(i) {
+    plot(hts[[i]], add = TRUE, col = cols[i], labels = TRUE,
+         border = "white")
+})
+legend("top", title = "Área", legend = names(hts),
+       fill = cols, bty = "n", border = "white")
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeTb2.46.Rd b/man/AndradeTb2.46.Rd
index 9e68c13b..0c7e1c14 100644
--- a/man/AndradeTb2.46.Rd
+++ b/man/AndradeTb2.46.Rd
@@ -7,14 +7,9 @@
 
 \describe{
 
-\item{\code{estacao}}{Fator de 6 níveis qualitativos, que são as
-    estações da região III da Lagoa da Conceição.}
+\item{\code{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
 
-\item{\code{cond}}{Condutividade da região III da Lagoa da Conceição,
-    em mho.}
-
-\item{\code{salin}}{Salinidade da região III da Lagoa da Conceição,
-    em g/l.}
+\item{\code{salin}}{Salinidade da lagoa, em \eqn{g/l}.}
 
 }}
 \source{
@@ -23,8 +18,9 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.46, pág. 149)
 }
 \description{
-Valores de condutividade (mho) e salinidade (g/l) para a
-    região III da Lagoa da Conceição.
+Estudo com o objetivo de verificar se existe correlação
+    entre a condutividade e a salinidade na região III da Lagoa da
+    Conceição, Florianópolis, SC.
 }
 \examples{
 
@@ -38,6 +34,14 @@ xyplot(cond ~ salin,
        xlab = "Salinidade (g/l)",
        ylab = "Condutividade (mho)")
 
+# Agrupando os dados de temperaturas, provinientes do dataset
+# AndradeTb2.38 [VERIFICAR SE É VÁLIDO]
+(da <- merge(AndradeTb2.46, AndradeTb2.38))
+splom(da, type = c("g", "p", "r"))
+
+}
+\seealso{
+\code{\link{AndradeTb2.38}}
 }
-\keyword{AAS}
+\keyword{RS}
 
diff --git a/man/AndradeTb2.47.Rd b/man/AndradeTb2.47.Rd
index 42bcaba2..57cd13fc 100644
--- a/man/AndradeTb2.47.Rd
+++ b/man/AndradeTb2.47.Rd
@@ -2,21 +2,19 @@
 % Please edit documentation in R/AndradeTb2.47.R
 \name{AndradeTb2.47}
 \alias{AndradeTb2.47}
-\title{Notas Médias de Aroma de Café Torrado e Moído}
+\title{Avaliação do Período de Estocagem no Aroma de Cafés}
 \format{Um \code{data.frame} com 18 observações e 4 variáveis, em que
 
 \describe{
 
-\item{\code{sessao}}{Fator de 6 níveis qualitativos, que são as
-    sessões de avaliação.}
-
 \item{\code{tempo}}{Tempo de estocagem, em dias.}
 
-\item{\code{amostra}}{Fator de 3 níveis qualitativos, que são os
-    diferentes pacotes.}
+\item{\code{amostra}}{Fator de 3 níveis que identificam as amostras
+    (pacotes de café). [SE SÃO DIFERENTES PACOTES SELECIONADOS EM
+    CADA TEMPO DEVE-SE EXCLUIR ESSA VARIÁVEL.]}
 
-\item{\code{result}}{Resultado médio da equipe de provadores para
-    cada amostra.}
+\item{\code{result}}{Resultado médio das avaliações da equipe de
+   provadores.}
 
 }}
 \source{
@@ -25,15 +23,24 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.47, pág. 149)
 }
 \description{
-Um estudo sobre vida de prateleira de café torrado e
-    moído foi realizado. Os testes sensoriais foram iniciados a
-    partir do nono dia de estocagem e, depois, a intervalos de mais
-    ou menos sete dias. Em cada uma das seis sessões de avaliação
-    sensorial três amostras (pacotes) foram obtidas ao acaso. Seis
-    provadores treinados avaliaram as três amostras simultaneamente,
-    julgando o produto quanto ao aroma em uma escala descritiva de 1
-    a 6 pontos: 6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
-    aceitável; 2 = inaceitável e 1 = não bebível.
+Estudo sobre vida de prateleira de café torrado e
+    moído. Cafés estocados durante nove dias foram submetidos a
+    sessões de avaliação, realizadas por uma equipe de provadores
+    treinados. Ocorreram seis sessões de avaliação com intervalos de
+    mais ou menos sete dias com início no nono dia de estocagem. [SE
+    É O MESMO PRODUTO AVALIADO EM DIFERENTES TEMPOS] ***Três produtos
+    selecionados ao acaso foram avaliados simultaneamente, para cada
+    período de estocagem, por seis provadores que os avaliaram quanto
+    ao seu aroma, em uma escala descritiva de 6 pontos (6 =
+    excelente; 5 = bom; 4 = aceitável; 3 = pouco aceitável; 2 =
+    inaceitável e 1 = não bebível). Ao final de cada sessão foram
+    registrados as notas médias das seis avaliações.*** [SE A CADA
+    SESSÃO SÃO DIFERENTES AMOSTRAS SELECIONADAS] ***Em cada sessão
+    seis provadores avaliaram simultaneamente três amostras obtidas
+    ao acaso, quanto ao seu aroma, em uma escala descritiva de 6
+    pontos (6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
+    aceitável; 2 = inaceitável e 1 = não bebível). Ao final de cada
+    sessão foram registrados as notas médias das seis avaliações.***
 }
 \examples{
 
@@ -41,31 +48,31 @@ data(AndradeTb2.47)
 str(AndradeTb2.47)
 
 library(lattice)
-
-graf1 <- xyplot(result ~ sessao,
-                groups = amostra,
-                data = AndradeTb2.47,
-                type = c("p", "r"),
-                auto.key = list(title = "Pacote",
-                                cex.title = 1.1,
-                                columns = 3),
-                xlab = "Seção de Avaliação",
-                ylab = "Resultado Médio da Equipe de Provadores")
-
-graf2 <- xyplot(result ~ tempo,
-                groups = amostra,
-                data = AndradeTb2.47,
-                type = c("p", "r"),
-                auto.key = list(title = "Pacote",
-                                cex.title = 1.1,
-                                columns = 3),
-                xlab = "Tempo de Estocagem (dias)",
-                ylab = "Resultado Médio da Equipe de Provadores")
-
-print(graf1, position = c(0, 0.5, 1, 1), more = TRUE)
-
-print(graf2, position = c(0, 0, 1, 0.5))
+# [SE FOREM OS MESMOS PRODUTOS]
+xyplot(result ~ tempo, groups = amostra,
+       data = AndradeTb2.47,
+       type = c("g", "l"),
+       alpha = 0.7,
+       auto.key = list(
+           column = 3,
+           title = "Amostra", cex.title = 1,
+           lines = TRUE, points = FALSE
+       ),
+       xlab = "Tempo de Estocagem (dias)",
+       ylab = "Resultado das Avaliações",
+       panel = function(x, y, ...) {
+           panel.xyplot(x, y, ...)
+           panel.xyplot(x, y, type = "a", col = 1, lwd = 2)
+       })
+# [SE FOREM PRODUTOS DIFERENTES]
+xyplot(result ~ tempo,
+       data = AndradeTb2.47,
+       type = c("g", "p", "r"),
+       xlab = "Tempo de Estocagem (dias)",
+       ylab = "Resultado das Avaliações")
 
 }
-\keyword{DBC}
+\keyword{RS[SE-FOREM-PRODUTOS-DIFERENTES]}
+\keyword{longitudinal[SE-FOR-OS-MESMOS-PRODUTOS-EM-DIFERENTES-TEMPOS]}
+\keyword{sensorial}
 
diff --git a/man/AndradeTb3.1.Rd b/man/AndradeTb3.1.Rd
index d41d79b9..a8c21fb2 100644
--- a/man/AndradeTb3.1.Rd
+++ b/man/AndradeTb3.1.Rd
@@ -7,15 +7,13 @@
 
 \describe{
 
-\item{\code{idade}}{Fator de 6 níveis qualitativos, que são as idades
-    em anos completos, sendo: a = 0 a 1 ano; b = 2 a 4 anos; c = 5 a
-    9 anos; d = 10 a 14 anos; e = 15 a 29 anos; g = mais de 29 anos.}
+\item{\code{idade}}{Idades dos residentes, em anos completos
+    categorizada em 6 níveis (0-1 ano; 2-4 anos; 5-9 anos; 10-14
+    anos; 15-29 anos; e >29 anos).}
 
-\item{\code{sexo}}{Fator de 2 níveis qualitativos, que indica o
-    gênero masculino ou feminino.}
+\item{\code{sexo}}{Sexo dos residentes (masculino ou feminino).}
 
-\item{\code{mort}}{Mortalidade dos residentes na colônia polonesa de
-    Dom Pedro.}
+\item{\code{mort}}{Número de mortes.}
 
 }}
 \source{
@@ -27,24 +25,28 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 Censo realizado nos domicílios da comunidade polonesa de
     Dom Pedro, próximo a Curitiba, para se estudar a mortalidade dos
     residentes na colônia. O estudo foi realizado sobre três gerações
-    no final do século XIX.
+    no final do século XIX, contabilizando 99 mortes.
 }
 \examples{
 
 data(AndradeTb3.1)
 str(AndradeTb3.1)
 
-library(lattice)
+(xt <- xtabs(mort ~ ., data = AndradeTb3.1))
+mosaicplot(xt, cex.axis = 0.9, las = 2, main = "")
 
+library(lattice)
 xyplot(mort ~ idade,
        groups = sexo,
+       type = c("g", "o"),
        data = AndradeTb3.1,
        auto.key = list(title = "Gênero",
                        cex.title = 1.1,
+                       lines = TRUE,
                        columns = 2),
        xlab = "Idade (anos completos)",
        ylab = "Mortalidade dos Residentes")
 
 }
-\keyword{DBC}
+\keyword{contingência}
 
diff --git a/man/AndradeTb3.2.Rd b/man/AndradeTb3.2.Rd
index 5791a5bd..d3592738 100644
--- a/man/AndradeTb3.2.Rd
+++ b/man/AndradeTb3.2.Rd
@@ -7,14 +7,13 @@
 
 \describe{
 
-\item{\code{raca}}{Fator de 2 níveis qualitativos, que são as raças
-    dos suínos.}
+\item{\code{raca}}{Fator de 2 níveis que são as raças dos suínos.}
 
-\item{\code{fecun}}{Fator de 2 níveis qualitativos, onde F =
-    "Fecundas" e Fc = "Não fecundas".}
+\item{\code{fecun}}{Fator de 2 níveis que representa a fecundidade da
+    raça.}
 
-\item{\code{freq}}{Frequência absoluta (relativa) da fecundidade das
-    duas raças suínas.}
+\item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+    dadas por \code{raca} e \code{fecun}, respectivamente.}
 
 }}
 \source{
@@ -24,20 +23,29 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
 }
 \description{
 Estudo sobre fecundidade de duas raças suínas, onde
-    foram examinados 28 animais.
+    foram examinados 14 animais de cada raça. O objetivo do estudo é
+    verificar a associação entre raça e fecundidade.
 }
 \examples{
 
 data(AndradeTb3.2)
 str(AndradeTb3.2)
 
-barplot(AndradeTb3.2$freq,
+xt <- xtabs(freq ~ ., AndradeTb3.2)
+addmargins(xt)
+addmargins(prop.table(xt))
+
+mosaicplot(t(xt), cex.axis = 0.9, main = "",
+           col = c("darkturquoise", "blue"),
+           xlab = "Fecundidade",
+           ylab = "Raça")
+
+barplot(xt, beside = TRUE,
         col = c("darkturquoise", "blue"),
-        legend.text = c("Raça A", "Raça B"),
-        names.arg = c(rep("F", 2), rep("Fc", 2)),
+        legend.text = paste("Raça", levels(AndradeTb3.2$raca)),
         xlab = "Fecundidade",
         ylab = "Frequência Absoluta")
 
 }
-\keyword{DBC}
+\keyword{contingência}
 
diff --git a/man/AndradeTb4.1.Rd b/man/AndradeTb4.1.Rd
index 23e012db..7cc1b22a 100644
--- a/man/AndradeTb4.1.Rd
+++ b/man/AndradeTb4.1.Rd
@@ -2,14 +2,15 @@
 % Please edit documentation in R/AndradeTb4.1.R
 \name{AndradeTb4.1}
 \alias{AndradeTb4.1}
-\title{Número de Casais com X Filhos Homens}
+\title{Número de Filhos Homens em Casais com 12 Filhos}
 \format{Um \code{data.frame} com 13 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{x}}{Número de filhos homens.}
+\item{\code{nfilhos}}{Número de filhos homens.}
 
-\item{\code{casais}}{Número de casais com x filhos homens.}
+\item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+    homens.}
 
 }}
 \source{
@@ -18,21 +19,24 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 4.1, pág. 235)
 }
 \description{
-Foram observados 10.690 casais com 12 filhos cada, e
-    então contou-se o número de filhos do sexo masculino de cada
-    casal.
+Foram observados 10.690 casais com 12 filhos,
+    registrando quantos dos filhos são do sexo masculino.
 }
 \examples{
 
 data(AndradeTb4.1)
 str(AndradeTb4.1)
 
-barplot(AndradeTb4.1$casais,
+# Média de filhos homens por casal
+with(AndradeTb4.1, weighted.mean(nfilhos, ncasais/sum(ncasais)))
+
+# Distribuição de frequências
+barplot(AndradeTb4.1$ncasais,
         col = "darkturquoise",
-        names.arg = AndradeTb4.1$x,
+        names.arg = AndradeTb4.1$nfilhos,
         xlab = "Número de Filhos Homens",
         ylab = "Número de Casais")
 
 }
-\keyword{AAS}
+\keyword{contingência*}
 
-- 
GitLab