diff --git a/R/AndradeEg7.5.R b/R/AndradeEg7.5.R
new file mode 100644
index 0000000000000000000000000000000000000000..3d19df5f0d3b926223884afd32b12ebaa1a63b54
--- /dev/null
+++ b/R/AndradeEg7.5.R
@@ -0,0 +1,32 @@
+#' @name AndradeEg7.5
+#' @title Pesos de Pacotes de Sementes de Milho
+#' @description Amostra de 15 pacotes de sementes de milho, enchidos por
+#'     uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+#'     são normalmente distribuídos com desvio padrão 0,2 Kg.
+#' @format Um \code{vector} numérico com 15 observações.
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Exemplo 7.5, pág. 324)
+#' @examples
+#'
+#' data(AndradeEg7.5)
+#' str(AndradeEg7.5)
+#'
+#' hist(AndradeEg7.5,
+#'      labels = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Peso do Pacote (em kg)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      border = "white")
+#' rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
+#'
+#' boxplot(AndradeEg7.5,
+#'         ylab = "Peso do Pacote (em kg)")
+#'
+#' mean(AndradeEg7.5)
+#' sd(AndradeEg7.5)
+#' fivenum(AndradeEg7.5)
+#'
+NULL
diff --git a/R/AndradeEx4.14.R b/R/AndradeEx4.14.R
new file mode 100644
index 0000000000000000000000000000000000000000..896e1a629b2092a9f110cf6f73c1a27ff9ca5fe3
--- /dev/null
+++ b/R/AndradeEx4.14.R
@@ -0,0 +1,36 @@
+#' @name AndradeEx4.14
+#' @title Plantas Doentes no Cultivo de Mandioca
+#' @description Avaliaram-se 30 parcelas (área da terra de \eqn{20
+#'     m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+#'     número de plantas doentes colhidas.
+#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nplantas}}{Número de plantas doentes na parcela.}
+#'
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+#'     doentes.}
+#'
+#' }
+#' @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
+#'     14, pág. 239)
+#' @examples
+#'
+#' data(AndradeEx4.14)
+#' str(AndradeEx4.14)
+#'
+#' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeEx4.14$nparc,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeEx4.14$nplantas,
+#'         xlab = "Número de Plantas Doentes na Parcela",
+#'         ylab = "Número de Parcelas")
+#'
+NULL
diff --git a/R/AndradeEx4.9.R b/R/AndradeEx4.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..452ab6530e43070dd5d73028c06452d03df08398
--- /dev/null
+++ b/R/AndradeEx4.9.R
@@ -0,0 +1,37 @@
+#' @name AndradeEx4.9
+#' @title Ocorrências de Plantas \emph{Primula Sinensis} Selvagens
+#' @description Uma certa região florestal foi dividida em 109 parcelas
+#'     de mesma área (quadrados) para se estudar a distribuição das
+#'     plantas \emph{Primula sinensis} selvagens na região. A priori,
+#'     supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nplantas}}{Número de plantas na parcela.}
+#'
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
+#'
+#' }
+#' @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
+#'     9, pág. 238)
+#' @examples
+#'
+#' data(AndradeEx4.9)
+#' str(AndradeEx4.9)
+#'
+#' #' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.9, weighted.mean(nplantas, nparc))
+#'
+#' # Distribuição de frequências
+#' txt <- barplot(AndradeEx4.9$nparc,
+#'                col = "darkturquoise",
+#'                names.arg = AndradeEx4.9$nplantas,
+#'                xlab = "Número de Plantas no Quadrado",
+#'                ylab = "Número de Quadrados")
+#' text(x = txt, y = AndradeEx4.9$nparc)
+#'
+NULL
diff --git a/R/AndradeEx7.13.R b/R/AndradeEx7.13.R
new file mode 100644
index 0000000000000000000000000000000000000000..e739283ad613512c395e660b8ac386b55b418348
--- /dev/null
+++ b/R/AndradeEx7.13.R
@@ -0,0 +1,36 @@
+#' @name AndradeEx7.13
+#' @title Comparação de Alturas de Duas Espécies de Árvores
+#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
+#'     de duas espécies de árvores, a Bracatinga e a Canafístula. O
+#'     desenvolvimento foi mensurado com base na altura das árvores.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{arvore}}{Espécies da árvore.}
+#'
+#' \item{\code{altura}}{Altura da árvore, em 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. (Capítulo 7, Exercício
+#'     13, pág. 344)
+#' @examples
+#'
+#' data(AndradeEx7.13)
+#' str(AndradeEx7.13)
+#'
+#' with(AndradeEx7.13, by(altura, arvore, summary))
+#'
+#' library(lattice)
+#' densityplot(~altura, groups = arvore,
+#'             data = AndradeEx7.13,
+#'             auto.key = list(
+#'                 corner = c(0.9, 0.9),
+#'                 title = "Espécie da árvore",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx7.3.R b/R/AndradeEx7.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..257f6f2220e8ce09749d7c9f6421337e8e6d137b
--- /dev/null
+++ b/R/AndradeEx7.3.R
@@ -0,0 +1,35 @@
+#' @name AndradeEx7.3
+#' @title Diâmetros de Árvores de Eucalipto
+#' @description Estudo em que sortearam-se 30 árvores, de um povoamento
+#'     de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+#'     com a finalidade de se estimar o diâmetro médio do povoamento.
+#' @format Um \code{vector} numérico com 30 observações.
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 7, Exercício
+#'     3, pág. 342)
+#' @examples
+#'
+#' data(AndradeEx7.3)
+#' str(AndradeEx7.3)
+#'
+#' hist(AndradeEx7.3,
+#'      prob = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Diâmetro (em cm)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      ylim = c(0, 0.055))
+#'
+#' lines(density(AndradeEx7.3), lwd = 2)
+#' rug(AndradeEx7.3, lwd = 2)
+#'
+#' boxplot(AndradeEx7.3,
+#'         ylab = "Diâmetro (em cm)")
+#'
+#' mean(AndradeEx7.3)
+#' sd(AndradeEx7.3)
+#' fivenum(AndradeEx7.3)
+#'
+NULL
diff --git a/R/AndradeTb6.1.R b/R/AndradeTb6.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..d5fbbc9a18215266716d3d63398cf8bb2bb32b62
--- /dev/null
+++ b/R/AndradeTb6.1.R
@@ -0,0 +1,44 @@
+#' @name AndradeTb6.1
+#' @title Produção de Maçãs das Cultivares Gala e Golden
+#' @description Estudo para avaliar a produção média por planta das
+#'     cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+#'     com plantas nas seguintes condições: idade de aproximadamente 5
+#'     anos, em bom estado fitossanitário, cultivadas com alta
+#'     tecnologia e para a região I do zoneamento agroclimático de Santa
+#'     Catarina. A produção foi avaliada pelo peso de maças produzidas
+#'     por planta (macieira).
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
+#'
+#' \item{\code{prod}}{Produção da planta (macieira), em kg.}
+#'
+#' }
+#' @keywords AASI
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.1, pág. 284)
+#' @examples
+#'
+#' data(AndradeTb6.1)
+#' str(AndradeTb6.1)
+#'
+#' with(AndradeTb6.1, by(prod, varied, summary))
+#'
+#' library(lattice)
+#' bwplot(prod ~ varied,
+#'        data = AndradeTb6.1,
+#'        xlab = "Variedade",
+#'        ylab = "Produção (kg)")
+#'
+#' densityplot(~prod, groups = varied,
+#'             data = AndradeTb6.1,
+#'             auto.key = list(
+#'                 corner = c(0.9, 0.9),
+#'                 title = "Variedade das maças",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL
diff --git a/R/AndradeTb6.2.R b/R/AndradeTb6.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..9f2e0ed229829b72e943b9bd0746b8a9710fb66d
--- /dev/null
+++ b/R/AndradeTb6.2.R
@@ -0,0 +1,43 @@
+#' @name AndradeTb6.2
+#' @title Alturas das Alunas do Curso de Estatística Básica
+#' @description Dados das alturas de 17 alunas da turma de Estatística
+#'     Básica do Curso de Ciências Biológicas.
+#' @format Um \code{data.frame} com 11 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{altura}}{Altura das alunas, em metros.}
+#'
+#' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+#'
+#' }
+#' @keywords contingência*
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.2, pág. 289)
+#' @examples
+#'
+#' data(AndradeTb6.2)
+#' str(AndradeTb6.2)
+#'
+#' # Gráfico de barras
+#' with(AndradeTb6.2, {
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'   bp <- barplot(freq,
+#'                 names.arg = altura,
+#'                 col = "darkturquoise",
+#'                 beside = TRUE,
+#'                 ylim = c(0, 5),
+#'                 xlab = "Altura das Alunas",
+#'                 ylab = "Frequência Absoluta")
+#'   text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+#'   })
+#'
+#' # Gráfico de setores
+#' with(AndradeTb6.2, {
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'   pie(freq, labels = paste(altura, "metros", fr),
+#'       col = gray.colors(length(freq)))
+#'   })
+#'
+NULL
diff --git a/data-raw/AndradeEg7.5.txt b/data-raw/AndradeEg7.5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..ae500be17102d58fee274dff148657d792cf4da7
--- /dev/null
+++ b/data-raw/AndradeEg7.5.txt
@@ -0,0 +1,15 @@
+20.05
+20.1
+20.25
+19.78
+19.69
+19.9
+20.2
+19.89
+19.7
+20.3
+19.93
+20.25
+20.18
+20.01
+20.09
diff --git a/data-raw/AndradeEx4.14.txt b/data-raw/AndradeEx4.14.txt
new file mode 100644
index 0000000000000000000000000000000000000000..36fab3c08a3757633510c6ac87c03a056324087c
--- /dev/null
+++ b/data-raw/AndradeEx4.14.txt
@@ -0,0 +1,6 @@
+nplantas	nparc
+0	14
+1	8
+2	4
+3	3
+4	1
diff --git a/data-raw/AndradeEx4.9.txt b/data-raw/AndradeEx4.9.txt
new file mode 100644
index 0000000000000000000000000000000000000000..cf0fab5159008b17302143c2b92680a79e42535a
--- /dev/null
+++ b/data-raw/AndradeEx4.9.txt
@@ -0,0 +1,10 @@
+nplantas	nparc
+0	26
+1	21
+2	23
+3	14
+4	11
+5	4
+6	5
+7	4
+8	1
diff --git a/data-raw/AndradeEx7.13.txt b/data-raw/AndradeEx7.13.txt
new file mode 100644
index 0000000000000000000000000000000000000000..10dc62b81806eb49d25888096fe0a8c48efe16fb
--- /dev/null
+++ b/data-raw/AndradeEx7.13.txt
@@ -0,0 +1,21 @@
+arvore	altura
+Bracatinga	6.5
+Bracatinga	6.9
+Bracatinga	6.9
+Bracatinga	8.6
+Bracatinga	8.7
+Bracatinga	9.3
+Bracatinga	10.1
+Bracatinga	11.4
+Bracatinga	15.2
+Bracatinga	17.2
+Canafistula	8.2
+Canafistula	10
+Canafistula	10.3
+Canafistula	13.4
+Canafistula	14.4
+Canafistula	14.8
+Canafistula	15.9
+Canafistula	20.6
+Canafistula	21.9
+Canafistula	23.8
diff --git a/data-raw/AndradeEx7.3.txt b/data-raw/AndradeEx7.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..46368757df9238933da825f34284c6b197c4cce5
--- /dev/null
+++ b/data-raw/AndradeEx7.3.txt
@@ -0,0 +1,30 @@
+10.1
+15.8
+18.5
+22.3
+23.5
+17.2
+17.8
+18.7
+16.7
+29.1
+28
+30.3
+26.8
+28
+17.8
+18.9
+28.9
+27.9
+22.5
+32.9
+29.5
+28.3
+34.2
+38.5
+38.5
+35.5
+34.2
+31.8
+32.5
+41.8
diff --git a/data-raw/AndradeTb6.1.txt b/data-raw/AndradeTb6.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9e02883a352faeb6a5cacc58fb17f2a167f60907
--- /dev/null
+++ b/data-raw/AndradeTb6.1.txt
@@ -0,0 +1,21 @@
+varied	prod
+Gala	84
+Gala	82
+Gala	90
+Gala	86
+Gala	80
+Gala	91
+Gala	85
+Gala	79
+Gala	81
+Gala	82
+Golden	95
+Golden	102
+Golden	85
+Golden	93
+Golden	104
+Golden	89
+Golden	98
+Golden	99
+Golden	107
+Golden	106
diff --git a/data-raw/AndradeTb6.2.txt b/data-raw/AndradeTb6.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..192cab9201d94fbafe1fb593a2087770b3f8c05e
--- /dev/null
+++ b/data-raw/AndradeTb6.2.txt
@@ -0,0 +1,12 @@
+altura	freq
+1.56	1
+1.6	4
+1.61	2
+1.62	1
+1.63	1
+1.65	1
+1.67	2
+1.68	1
+1.7	1
+1.72	2
+1.73	1
diff --git a/data/AndradeEg7.5.rda b/data/AndradeEg7.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a95372d945b0b9d136b51a4c024a54de3da0fff5
Binary files /dev/null and b/data/AndradeEg7.5.rda differ
diff --git a/data/AndradeEx4.14.rda b/data/AndradeEx4.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..dcea1d8ef2f75b5e7752c43e36bec4a6b35ec321
Binary files /dev/null and b/data/AndradeEx4.14.rda differ
diff --git a/data/AndradeEx4.9.rda b/data/AndradeEx4.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b28fc7b4ca3bed31ec7c60e2d50e65ab6460d30d
Binary files /dev/null and b/data/AndradeEx4.9.rda differ
diff --git a/data/AndradeEx7.13.rda b/data/AndradeEx7.13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..dfcdacbd8afb91cc3e63069407d220a16a727cc4
Binary files /dev/null and b/data/AndradeEx7.13.rda differ
diff --git a/data/AndradeEx7.3.rda b/data/AndradeEx7.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3b09415d0905af6977e78c9f63c234814d127b67
Binary files /dev/null and b/data/AndradeEx7.3.rda differ
diff --git a/data/AndradeTb6.1.rda b/data/AndradeTb6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2f29ebd7e883f0c7ef7068dcd00af2e99bd7bd20
Binary files /dev/null and b/data/AndradeTb6.1.rda differ
diff --git a/data/AndradeTb6.2.rda b/data/AndradeTb6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0bb4d01f3552727bca40c49e1800ab5d870f7056
Binary files /dev/null and b/data/AndradeTb6.2.rda differ
diff --git a/man/AndradeEg7.5.Rd b/man/AndradeEg7.5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..8218343e265ee356dced48156849c336d804d3cb
--- /dev/null
+++ b/man/AndradeEg7.5.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEg7.5.R
+\name{AndradeEg7.5}
+\alias{AndradeEg7.5}
+\title{Pesos de Pacotes de Sementes de Milho}
+\format{Um \code{vector} numérico com 15 observações.}
+\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 7.5, pág. 324)
+}
+\description{
+Amostra de 15 pacotes de sementes de milho, enchidos por
+    uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+    são normalmente distribuídos com desvio padrão 0,2 Kg.
+}
+\examples{
+
+data(AndradeEg7.5)
+str(AndradeEg7.5)
+
+hist(AndradeEg7.5,
+     labels = TRUE,
+     col = "darkturquoise",
+     xlab = "Peso do Pacote (em kg)",
+     ylab = "Densidade",
+     main = NULL,
+     border = "white")
+rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
+
+boxplot(AndradeEg7.5,
+        ylab = "Peso do Pacote (em kg)")
+
+mean(AndradeEg7.5)
+sd(AndradeEg7.5)
+fivenum(AndradeEg7.5)
+
+}
+\keyword{AAS}
+
diff --git a/man/AndradeEx4.14.Rd b/man/AndradeEx4.14.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b965234b324a78a777371210b7c75af7079fe622
--- /dev/null
+++ b/man/AndradeEx4.14.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx4.14.R
+\name{AndradeEx4.14}
+\alias{AndradeEx4.14}
+\title{Plantas Doentes no Cultivo de Mandioca}
+\format{Um \code{data.frame} com 5 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{nplantas}}{Número de plantas doentes na parcela.}
+
+\item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+    doentes.}
+
+}}
+\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
+    14, pág. 239)
+}
+\description{
+Avaliaram-se 30 parcelas (área da terra de \eqn{20
+    m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+    número de plantas doentes colhidas.
+}
+\examples{
+
+data(AndradeEx4.14)
+str(AndradeEx4.14)
+
+# Média do número de plantas doentes por parcela
+with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+
+# Distribuição de frequências
+barplot(AndradeEx4.14$nparc,
+        col = "darkturquoise",
+        names.arg = AndradeEx4.14$nplantas,
+        xlab = "Número de Plantas Doentes na Parcela",
+        ylab = "Número de Parcelas")
+
+}
+\keyword{contingência*}
+
diff --git a/man/AndradeEx4.9.Rd b/man/AndradeEx4.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f89df1439c7850289586140c501aacbed875a102
--- /dev/null
+++ b/man/AndradeEx4.9.Rd
@@ -0,0 +1,45 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx4.9.R
+\name{AndradeEx4.9}
+\alias{AndradeEx4.9}
+\title{Ocorrências de Plantas \emph{Primula Sinensis} Selvagens}
+\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{nplantas}}{Número de plantas na parcela.}
+
+\item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
+
+}}
+\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
+    9, pág. 238)
+}
+\description{
+Uma certa região florestal foi dividida em 109 parcelas
+    de mesma área (quadrados) para se estudar a distribuição das
+    plantas \emph{Primula sinensis} selvagens na região. A priori,
+    supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
+}
+\examples{
+
+data(AndradeEx4.9)
+str(AndradeEx4.9)
+
+#' # Média do número de plantas doentes por parcela
+with(AndradeEx4.9, weighted.mean(nplantas, nparc))
+
+# Distribuição de frequências
+txt <- barplot(AndradeEx4.9$nparc,
+               col = "darkturquoise",
+               names.arg = AndradeEx4.9$nplantas,
+               xlab = "Número de Plantas no Quadrado",
+               ylab = "Número de Quadrados")
+text(x = txt, y = AndradeEx4.9$nparc)
+
+}
+\keyword{contingência*}
+
diff --git a/man/AndradeEx7.13.Rd b/man/AndradeEx7.13.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..fc5f4b1887527d0d09a6dfeeff618e699960b97f
--- /dev/null
+++ b/man/AndradeEx7.13.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx7.13.R
+\name{AndradeEx7.13}
+\alias{AndradeEx7.13}
+\title{Comparação de Alturas de Duas Espécies de Árvores}
+\format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{arvore}}{Espécies da árvore.}
+
+\item{\code{altura}}{Altura da árvore, em 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. (Capítulo 7, Exercício
+    13, pág. 344)
+}
+\description{
+Estudo realizado por um agrônomo sobre o desenvolvimento
+    de duas espécies de árvores, a Bracatinga e a Canafístula. O
+    desenvolvimento foi mensurado com base na altura das árvores.
+}
+\examples{
+
+data(AndradeEx7.13)
+str(AndradeEx7.13)
+
+with(AndradeEx7.13, by(altura, arvore, summary))
+
+library(lattice)
+densityplot(~altura, groups = arvore,
+            data = AndradeEx7.13,
+            auto.key = list(
+                corner = c(0.9, 0.9),
+                title = "Espécie da árvore",
+                cex.title = 1
+            ))
+
+}
+\keyword{AASI}
+
diff --git a/man/AndradeEx7.3.Rd b/man/AndradeEx7.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..89ef43dcfd9443c6387196e2bd586d0afc825bd2
--- /dev/null
+++ b/man/AndradeEx7.3.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx7.3.R
+\name{AndradeEx7.3}
+\alias{AndradeEx7.3}
+\title{Diâmetros de Árvores de Eucalipto}
+\format{Um \code{vector} numérico com 30 observações.}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 7, Exercício
+    3, pág. 342)
+}
+\description{
+Estudo em que sortearam-se 30 árvores, de um povoamento
+    de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+    com a finalidade de se estimar o diâmetro médio do povoamento.
+}
+\examples{
+
+data(AndradeEx7.3)
+str(AndradeEx7.3)
+
+hist(AndradeEx7.3,
+     prob = TRUE,
+     col = "darkturquoise",
+     xlab = "Diâmetro (em cm)",
+     ylab = "Densidade",
+     main = NULL,
+     ylim = c(0, 0.055))
+
+lines(density(AndradeEx7.3), lwd = 2)
+rug(AndradeEx7.3, lwd = 2)
+
+boxplot(AndradeEx7.3,
+        ylab = "Diâmetro (em cm)")
+
+mean(AndradeEx7.3)
+sd(AndradeEx7.3)
+fivenum(AndradeEx7.3)
+
+}
+\keyword{AAS}
+
diff --git a/man/AndradeTb6.1.Rd b/man/AndradeTb6.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..29956a5472c59343af7f9406fdcd3cc20ad9bc16
--- /dev/null
+++ b/man/AndradeTb6.1.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb6.1.R
+\name{AndradeTb6.1}
+\alias{AndradeTb6.1}
+\title{Produção de Maçãs das Cultivares Gala e Golden}
+\format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
+
+\item{\code{prod}}{Produção da planta (macieira), 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. (Tabela 6.1, pág. 284)
+}
+\description{
+Estudo para avaliar a produção média por planta das
+    cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+    com plantas nas seguintes condições: idade de aproximadamente 5
+    anos, em bom estado fitossanitário, cultivadas com alta
+    tecnologia e para a região I do zoneamento agroclimático de Santa
+    Catarina. A produção foi avaliada pelo peso de maças produzidas
+    por planta (macieira).
+}
+\examples{
+
+data(AndradeTb6.1)
+str(AndradeTb6.1)
+
+with(AndradeTb6.1, by(prod, varied, summary))
+
+library(lattice)
+bwplot(prod ~ varied,
+       data = AndradeTb6.1,
+       xlab = "Variedade",
+       ylab = "Produção (kg)")
+
+densityplot(~prod, groups = varied,
+            data = AndradeTb6.1,
+            auto.key = list(
+                corner = c(0.9, 0.9),
+                title = "Variedade das maças",
+                cex.title = 1
+            ))
+
+}
+\keyword{AASI}
+
diff --git a/man/AndradeTb6.2.Rd b/man/AndradeTb6.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..1877cd4d0d071ce7418b739cb868fd468d43dc5f
--- /dev/null
+++ b/man/AndradeTb6.2.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb6.2.R
+\name{AndradeTb6.2}
+\alias{AndradeTb6.2}
+\title{Alturas das Alunas do Curso de Estatística Básica}
+\format{Um \code{data.frame} com 11 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{altura}}{Altura das alunas, em metros.}
+
+\item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.2, pág. 289)
+}
+\description{
+Dados das alturas de 17 alunas da turma de Estatística
+    Básica do Curso de Ciências Biológicas.
+}
+\examples{
+
+data(AndradeTb6.2)
+str(AndradeTb6.2)
+
+# Gráfico de barras
+with(AndradeTb6.2, {
+  fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+  bp <- barplot(freq,
+                names.arg = altura,
+                col = "darkturquoise",
+                beside = TRUE,
+                ylim = c(0, 5),
+                xlab = "Altura das Alunas",
+                ylab = "Frequência Absoluta")
+  text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+  })
+
+# Gráfico de setores
+with(AndradeTb6.2, {
+  fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+  pie(freq, labels = paste(altura, "metros", fr),
+      col = gray.colors(length(freq)))
+  })
+
+}
+\keyword{contingência*}
+