diff --git a/R/AndradeEg4.11.R b/R/AndradeEg4.11.R
new file mode 100644
index 0000000000000000000000000000000000000000..30b63947bf51321a3e8698ff375350fe68a01f15
--- /dev/null
+++ b/R/AndradeEg4.11.R
@@ -0,0 +1,39 @@
+#' @name AndradeEg4.11
+#' @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, que representa a quantidade
+#'     de ninhos por quadrante.}
+#'
+#' \item{\code{freq}}{Frequência de quadrantes em que se observou
+#'     \code{ninhos} ninhos de formiga.}
+#'
+#' }
+#' @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)
+#'
+#' # 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
diff --git a/R/AndradeEx4.8.R b/R/AndradeEx4.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..eca4ee40e915e6517869d8583470d2324aa2b018
--- /dev/null
+++ b/R/AndradeEx4.8.R
@@ -0,0 +1,35 @@
+#' @name AndradeEx4.8
+#' @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{nmachos}}{Número de machos na ninhada de 5 porcos.}
+#'
+#' \item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+#'     machos.}
+#'
+#' }
+#' @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
+#'     8, pág. 237)
+#' @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$nmachos,
+#'         xlab = "Número de Machos na Ninhada",
+#'         ylab = "Número de Ninhadas")
+#'
+NULL
diff --git a/R/AndradeTb2.38.R b/R/AndradeTb2.38.R
index aec5fbdfec7a5450833f32f91c0c42100e71f63d..aea419ffc4f68ed52d69da0bfc0659d01e5f90ac 100644
--- a/R/AndradeTb2.38.R
+++ b/R/AndradeTb2.38.R
@@ -1,6 +1,5 @@
 #' @name AndradeTb2.38
-#' @title Estudo de Salinidade e Temperatura na Região III da Lagoa da
-#'     Conceição
+#' @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.
@@ -13,6 +12,7 @@
 #' \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
@@ -31,4 +31,10 @@
 #'        xlab = "Salinidade (g/l)",
 #'        ylab = "Temperatura (ºC)")
 #'
+#' # Agrupando os dados de condutividade, provinientes no dataset
+#' # AndradeTb2.46
+#' # help(AndradeTb2.46)
+#' (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
new file mode 100644
index 0000000000000000000000000000000000000000..8a6dc37795af3846a9fd519005275a08d1b59856
--- /dev/null
+++ b/R/AndradeTb2.45.R
@@ -0,0 +1,45 @@
+#' @name AndradeTb2.45
+#' @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 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 que representa a característica
+#'     da área onde a planta se desenvolveu.}
+#'
+#' \item{\code{tamanho}}{Tamanho do pecíolo, em centímetros.}
+#'
+#' }
+#' @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)
+#' @examples
+#'
+#' data(AndradeTb2.45)
+#' str(AndradeTb2.45)
+#'
+#' # 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")
+#'
+NULL
diff --git a/R/AndradeTb2.46.R b/R/AndradeTb2.46.R
new file mode 100644
index 0000000000000000000000000000000000000000..8e235384800dc80d4ca0d1b433b869da8bc501ea
--- /dev/null
+++ b/R/AndradeTb2.46.R
@@ -0,0 +1,38 @@
+#' @name AndradeTb2.46
+#' @title Condutividade e Salinidade na 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{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
+#'
+#' \item{\code{salin}}{Salinidade da lagoa, em \eqn{g/l}.}
+#'
+#' }
+#' @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)
+#' @examples
+#'
+#' data(AndradeTb2.46)
+#' str(AndradeTb2.46)
+#'
+#' library(lattice)
+#' xyplot(cond ~ salin,
+#'        data = AndradeTb2.46,
+#'        type = c("p", "r"),
+#'        xlab = "Salinidade (g/l)",
+#'        ylab = "Condutividade (mho)")
+#'
+#' # Agrupando os dados de temperaturas, provinientes do dataset
+#' # AndradeTb2.38
+#' # help(AndradeTb2.38)
+#' (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
new file mode 100644
index 0000000000000000000000000000000000000000..46a3d974def92f54dd44268c2b671200e71607ea
--- /dev/null
+++ b/R/AndradeTb2.47.R
@@ -0,0 +1,44 @@
+#' @name AndradeTb2.47
+#' @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.
+#'
+#'     Para cada sessão três amostras foram obtidas ao acaso e seis
+#'     provadores as avaliaram simultaneamente, 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{tempo}}{Tempo de estocagem, em dias.}
+#'
+#' \item{\code{rept}}{Identifica a unidade amostral em cada sessão
+#'     realizada.}
+#'
+#' \item{\code{result}}{Resultado médio das avaliações da equipe de
+#'    provadores.}
+#'
+#' }
+#' @keywords RS 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)
+#' @examples
+#'
+#' data(AndradeTb2.47)
+#' str(AndradeTb2.47)
+#'
+#' library(lattice)
+#' 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
new file mode 100644
index 0000000000000000000000000000000000000000..65372e0a087179c0253e42b676b42762a0dee348
--- /dev/null
+++ b/R/AndradeTb3.1.R
@@ -0,0 +1,44 @@
+#' @name AndradeTb3.1
+#' @title Mortalidade dos Residentes na Colônia Polonesa de Dom Pedro
+#' @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, contabilizando 99 mortes.
+#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \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}}{Sexo dos residentes (masculino ou feminino).}
+#'
+#' \item{\code{mort}}{Número de mortes.}
+#'
+#' }
+#' @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)
+#' @examples
+#'
+#' data(AndradeTb3.1)
+#' str(AndradeTb3.1)
+#'
+#' (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
diff --git a/R/AndradeTb3.2.R b/R/AndradeTb3.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..8ceb70ea34f9338ffd88ef588b79b777c5ca0b9c
--- /dev/null
+++ b/R/AndradeTb3.2.R
@@ -0,0 +1,43 @@
+#' @name AndradeTb3.2
+#' @title Fecundidade de Duas Raças Suínas
+#' @description Estudo sobre fecundidade de duas raças suínas, onde
+#'     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 que são as raças dos suínos.}
+#'
+#' \item{\code{fecun}}{Fator de 2 níveis que representa a fecundidade da
+#'     raça.}
+#'
+#' \item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+#'     dadas por \code{raca} e \code{fecun}, respectivamente.}
+#'
+#' }
+#' @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)
+#' @examples
+#'
+#' data(AndradeTb3.2)
+#' str(AndradeTb3.2)
+#'
+#' 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 = paste("Raça", levels(AndradeTb3.2$raca)),
+#'         xlab = "Fecundidade",
+#'         ylab = "Frequência Absoluta")
+#'
+NULL
diff --git a/R/AndradeTb4.1.R b/R/AndradeTb4.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..10286fc0c68f62bc5f428d7af0c94e33d6367157
--- /dev/null
+++ b/R/AndradeTb4.1.R
@@ -0,0 +1,34 @@
+#' @name AndradeTb4.1
+#' @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{nfilhos}}{Número de filhos homens.}
+#'
+#' \item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+#'     homens.}
+#'
+#' }
+#' @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)
+#' @examples
+#'
+#' data(AndradeTb4.1)
+#' str(AndradeTb4.1)
+#'
+#' # 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$nfilhos,
+#'         xlab = "Número de Filhos Homens",
+#'         ylab = "Número de Casais")
+#'
+NULL
diff --git a/data-raw/AndradeEg4.11.txt b/data-raw/AndradeEg4.11.txt
new file mode 100644
index 0000000000000000000000000000000000000000..789a2eb2f142b24c3a5620d5d646c3f87b9b805c
--- /dev/null
+++ b/data-raw/AndradeEg4.11.txt
@@ -0,0 +1,6 @@
+ninhos	freq
+0	72
+1	21
+2	6
+3	1
+>=4	0
diff --git a/data-raw/AndradeEx4.8.txt b/data-raw/AndradeEx4.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3bd862ad71a1c7f572d47cb19d03f1756c44ce00
--- /dev/null
+++ b/data-raw/AndradeEx4.8.txt
@@ -0,0 +1,7 @@
+nmachos	ninhadas
+0	20
+1	360
+2	700
+3	680
+4	200
+5	40
diff --git a/data-raw/AndradeTb2.45.txt b/data-raw/AndradeTb2.45.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f058febaad9060e4bb5a262d312fbd457e1f9f46
--- /dev/null
+++ b/data-raw/AndradeTb2.45.txt
@@ -0,0 +1,70 @@
+area	tamanho
+ú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
+seca	7.8
+seca	8
+seca	8.2
+seca	8.2
+seca	8.3
+seca	8.3
+seca	8.4
+seca	8.4
+seca	8.4
+seca	8.6
+seca	8.6
+seca	8.6
+seca	8.6
+seca	9
+seca	9
+seca	9
+seca	9
+seca	9.3
+seca	9.3
+seca	9.3
+seca	9.6
+seca	9.6
+seca	9.8
+seca	9.8
+seca	10.4
+seca	10.4
+seca	10.9
+seca	10.9
+seca	11.7
+seca	11.7
+seca	12
diff --git a/data-raw/AndradeTb2.46.txt b/data-raw/AndradeTb2.46.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9bf9b196574edc584a1842f88809928cc07edef9
--- /dev/null
+++ b/data-raw/AndradeTb2.46.txt
@@ -0,0 +1,7 @@
+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/AndradeTb2.47.txt b/data-raw/AndradeTb2.47.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a07767da750f55f6636ac82464eaa975399ccd97
--- /dev/null
+++ b/data-raw/AndradeTb2.47.txt
@@ -0,0 +1,19 @@
+rept	tempo	result
+1	9	4.8
+2	9	4.7
+3	9	4.7
+1	14	4
+2	14	4.7
+3	14	4.8
+1	22	3.7
+2	22	3.7
+3	22	3.5
+1	29	3.2
+2	29	3.5
+3	29	3.2
+1	36	3.7
+2	36	3
+3	36	3.3
+1	43	2.5
+2	43	2.8
+3	43	2.7
diff --git a/data-raw/AndradeTb3.1.txt b/data-raw/AndradeTb3.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d0a13a9e1a9198a07b8e6c20f60b29f305c70f7e
--- /dev/null
+++ b/data-raw/AndradeTb3.1.txt
@@ -0,0 +1,13 @@
+idade	sexo	mort
+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
new file mode 100644
index 0000000000000000000000000000000000000000..dc76104a3d87e98cdf49013109a97e1c3df3d78a
--- /dev/null
+++ b/data-raw/AndradeTb3.2.txt
@@ -0,0 +1,5 @@
+raca	fecun	freq
+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
new file mode 100644
index 0000000000000000000000000000000000000000..984daef7523aeae085010049aaed62b83b892340
--- /dev/null
+++ b/data-raw/AndradeTb4.1.txt
@@ -0,0 +1,14 @@
+nfilhos	ncasais
+0	5
+1	35
+2	180
+3	599
+4	1250
+5	1990
+6	2400
+7	2060
+8	1350
+9	600
+10	179
+11	35
+12	7
diff --git a/data/AndradeEg4.11.rda b/data/AndradeEg4.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b3013c790053741ec45f844f80a876e5d418cd34
Binary files /dev/null and b/data/AndradeEg4.11.rda differ
diff --git a/data/AndradeEx4.8.rda b/data/AndradeEx4.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..04bbff220a7422da0cfce86bfb76be0432a147e4
Binary files /dev/null and b/data/AndradeEx4.8.rda differ
diff --git a/data/AndradeTb2.45.rda b/data/AndradeTb2.45.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f0b5fd159950bc0fc9fb5fa3da8040a465910978
Binary files /dev/null and b/data/AndradeTb2.45.rda differ
diff --git a/data/AndradeTb2.46.rda b/data/AndradeTb2.46.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bba20c805655af6c87b5b28e88f41177b69059ac
Binary files /dev/null and b/data/AndradeTb2.46.rda differ
diff --git a/data/AndradeTb2.47.rda b/data/AndradeTb2.47.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bd3977c7e25063bc59f3b8170db2de895ae7f371
Binary files /dev/null and b/data/AndradeTb2.47.rda differ
diff --git a/data/AndradeTb3.1.rda b/data/AndradeTb3.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..05dac539a0c1e12bd0e01387b60b536561a1ca2f
Binary files /dev/null and b/data/AndradeTb3.1.rda differ
diff --git a/data/AndradeTb3.2.rda b/data/AndradeTb3.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4973fca469098949b772a8609d47468eb7c1835d
Binary files /dev/null and b/data/AndradeTb3.2.rda differ
diff --git a/data/AndradeTb4.1.rda b/data/AndradeTb4.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9475b497364df60d26251c2629fa0c1cc0b4b22c
Binary files /dev/null and b/data/AndradeTb4.1.rda differ
diff --git a/man/AndradeEg4.11.Rd b/man/AndradeEg4.11.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..2569572e9183dd7d395bbfd2e56c5af2432b6574
--- /dev/null
+++ b/man/AndradeEg4.11.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEg4.11.R
+\name{AndradeEg4.11}
+\alias{AndradeEg4.11}
+\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, que representa a quantidade
+    de ninhos por quadrante.}
+
+\item{\code{freq}}{Frequência de quadrantes em que se observou
+    \code{ninhos} ninhos de formiga.}
+
+}}
+\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)
+}
+\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).
+}
+\examples{
+
+data(AndradeEg4.11)
+str(AndradeEg4.11)
+
+# 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")
+
+}
+\references{
+[REFERENCIAR O TRABALHO DO LOPES DE 2001]
+}
+\keyword{contingência*}
+
diff --git a/man/AndradeEx4.8.Rd b/man/AndradeEx4.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..6aa03bd845bc234ffe17ecd84e2eb5a8a5e4eb1d
--- /dev/null
+++ b/man/AndradeEx4.8.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx4.8.R
+\name{AndradeEx4.8}
+\alias{AndradeEx4.8}
+\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{nmachos}}{Número de machos na ninhada de 5 porcos.}
+
+\item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+    machos.}
+
+}}
+\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
+    8, pág. 237)
+}
+\description{
+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$nmachos,
+        xlab = "Número de Machos na Ninhada",
+        ylab = "Número de Ninhadas")
+
+}
+\keyword{contingência*}
+
diff --git a/man/AndradeTb2.38.Rd b/man/AndradeTb2.38.Rd
index 666953c33bea9cb262e9930996181f0ed9c53c6b..7a7f660f001998e6c6227d4cac4bd1d558f666bb 100644
--- a/man/AndradeTb2.38.Rd
+++ b/man/AndradeTb2.38.Rd
@@ -2,8 +2,7 @@
 % Please edit documentation in R/AndradeTb2.38.R
 \name{AndradeTb2.38}
 \alias{AndradeTb2.38}
-\title{Estudo de Salinidade e Temperatura na Região III da Lagoa da
-    Conceição}
+\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{
@@ -37,6 +36,15 @@ xyplot(temp ~ salin,
        xlab = "Salinidade (g/l)",
        ylab = "Temperatura (ºC)")
 
+# Agrupando os dados de condutividade, provinientes no dataset
+# AndradeTb2.46
+# help(AndradeTb2.46)
+(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
new file mode 100644
index 0000000000000000000000000000000000000000..1e3c019f4e77649a194d7cc351b8e52e75c98891
--- /dev/null
+++ b/man/AndradeTb2.45.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.45.R
+\name{AndradeTb2.45}
+\alias{AndradeTb2.45}
+\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 que representa a característica
+    da área onde a planta se desenvolveu.}
+
+\item{\code{tamanho}}{Tamanho do pecíolo, em centímetros.}
+
+}}
+\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)
+}
+\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 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)
+
+# 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{AASI}
+
diff --git a/man/AndradeTb2.46.Rd b/man/AndradeTb2.46.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..54c967e482c1261ad0e6cb80601e8098019b4a8c
--- /dev/null
+++ b/man/AndradeTb2.46.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.46.R
+\name{AndradeTb2.46}
+\alias{AndradeTb2.46}
+\title{Condutividade e Salinidade na Região III da Lagoa da Conceição}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
+
+\item{\code{salin}}{Salinidade da lagoa, em \eqn{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.46, pág. 149)
+}
+\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.
+}
+\examples{
+
+data(AndradeTb2.46)
+str(AndradeTb2.46)
+
+library(lattice)
+xyplot(cond ~ salin,
+       data = AndradeTb2.46,
+       type = c("p", "r"),
+       xlab = "Salinidade (g/l)",
+       ylab = "Condutividade (mho)")
+
+# Agrupando os dados de temperaturas, provinientes do dataset
+# AndradeTb2.38
+# help(AndradeTb2.38)
+(da <- merge(AndradeTb2.46, AndradeTb2.38))
+splom(da, type = c("g", "p", "r"))
+
+}
+\seealso{
+\code{\link{AndradeTb2.38}}
+}
+\keyword{RS}
+
diff --git a/man/AndradeTb2.47.Rd b/man/AndradeTb2.47.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f71204b011267128ecefed969d993b0dd09423df
--- /dev/null
+++ b/man/AndradeTb2.47.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.47.R
+\name{AndradeTb2.47}
+\alias{AndradeTb2.47}
+\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{tempo}}{Tempo de estocagem, em dias.}
+
+\item{\code{rept}}{Identifica a unidade amostral em cada sessão
+    realizada.}
+
+\item{\code{result}}{Resultado médio das avaliações da equipe de
+   provadores.}
+
+}}
+\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)
+}
+\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.
+
+    Para cada sessão três amostras foram obtidas ao acaso e seis
+    provadores as avaliaram simultaneamente, 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{
+
+data(AndradeTb2.47)
+str(AndradeTb2.47)
+
+library(lattice)
+xyplot(result ~ tempo,
+       data = AndradeTb2.47,
+       type = c("g", "p", "r"),
+       xlab = "Tempo de Estocagem (dias)",
+       ylab = "Resultado das Avaliações")
+
+}
+\keyword{RS}
+\keyword{sensorial}
+
diff --git a/man/AndradeTb3.1.Rd b/man/AndradeTb3.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..a8c21fb276a1c83fe5cf0bba391002053357585e
--- /dev/null
+++ b/man/AndradeTb3.1.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb3.1.R
+\name{AndradeTb3.1}
+\alias{AndradeTb3.1}
+\title{Mortalidade dos Residentes na Colônia Polonesa de Dom Pedro}
+\format{Um \code{data.frame} com 12 observações e 3 variáveis, em que
+
+\describe{
+
+\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}}{Sexo dos residentes (masculino ou feminino).}
+
+\item{\code{mort}}{Número de mortes.}
+
+}}
+\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)
+}
+\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, contabilizando 99 mortes.
+}
+\examples{
+
+data(AndradeTb3.1)
+str(AndradeTb3.1)
+
+(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{contingência}
+
diff --git a/man/AndradeTb3.2.Rd b/man/AndradeTb3.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..d3592738bf329982be92b51e5012cb7610771ab9
--- /dev/null
+++ b/man/AndradeTb3.2.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb3.2.R
+\name{AndradeTb3.2}
+\alias{AndradeTb3.2}
+\title{Fecundidade de Duas Raças Suínas}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\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 que representa a fecundidade da
+    raça.}
+
+\item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+    dadas por \code{raca} e \code{fecun}, respectivamente.}
+
+}}
+\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)
+}
+\description{
+Estudo sobre fecundidade de duas raças suínas, onde
+    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)
+
+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 = paste("Raça", levels(AndradeTb3.2$raca)),
+        xlab = "Fecundidade",
+        ylab = "Frequência Absoluta")
+
+}
+\keyword{contingência}
+
diff --git a/man/AndradeTb4.1.Rd b/man/AndradeTb4.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..7cc1b22a2f45c507cf04939fc39ce02ee79c5c3d
--- /dev/null
+++ b/man/AndradeTb4.1.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb4.1.R
+\name{AndradeTb4.1}
+\alias{AndradeTb4.1}
+\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{nfilhos}}{Número de filhos homens.}
+
+\item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+    homens.}
+
+}}
+\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)
+}
+\description{
+Foram observados 10.690 casais com 12 filhos,
+    registrando quantos dos filhos são do sexo masculino.
+}
+\examples{
+
+data(AndradeTb4.1)
+str(AndradeTb4.1)
+
+# 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$nfilhos,
+        xlab = "Número de Filhos Homens",
+        ylab = "Número de Casais")
+
+}
+\keyword{contingência*}
+