diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R
new file mode 100644
index 0000000000000000000000000000000000000000..6fb418ccc91fb69cf376c24ab35cf1ab9c4422d3
--- /dev/null
+++ b/R/BracarensePg27.R
@@ -0,0 +1,35 @@
+#' @name BracarensePg27
+#' @title Relação dos Funcionários de uma Empresa Imaginária
+#' @description Relação dos funcionários constando sexo, idade, salário
+#'     e setor.
+#' @format Um \code{data.frame} com 40 linhas e 4 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Sexo}}{Sexo do trabalhador.}
+#'
+#' \item{\code{Idade}}{Idade do trabalhador, em anos.}
+#'
+#' \item{\code{Salario}}{Salário recebido.}
+#'
+#' \item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
+#'     \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
+#'     \code{adm} - administrativo, \code{ger} - gerência.}
+#'
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE (2009), exemplo página 27.
+#' @examples
+#'
+#' data(BracarensePg27)
+#' str(BracarensePg27)
+#'
+#' tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
+#' mosaicplot(tb)
+#'
+#' library(lattice)
+#'
+#' xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
+#'
+NULL
diff --git a/R/BracarensePg41.R b/R/BracarensePg41.R
new file mode 100644
index 0000000000000000000000000000000000000000..2655db9fcec6a56e8eea815f289138d1499ee643
--- /dev/null
+++ b/R/BracarensePg41.R
@@ -0,0 +1,21 @@
+#' @name BracarensePg41
+#' @title Peso de Recém Nascidos
+#' @description Os dados a seguir são relativos ao peso, ao nascer (em
+#'     gramas), de recém nascidos com síndrome de desconforto idiopático
+#'     grave.
+#' @format Um \code{vetor} com 50 valores de peso em gramas.
+#' @keywords sociometria
+#' @source BRACARENSE (2009), Exercício 1, página 41.
+#' @examples
+#'
+#' data(BracarensePg41)
+#' str(BracarensePg41)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg41) + layer(panel.rug(x)),
+#'   densityplot(~BracarensePg41, plot.points = "rug"),
+#'   ecdfplot(~BracarensePg41), layout = c(NA, 1))
+#'
+NULL
diff --git a/R/BracarensePg43.R b/R/BracarensePg43.R
new file mode 100644
index 0000000000000000000000000000000000000000..dc9f0128cfd116185717aa0660d98f5c318ba567
--- /dev/null
+++ b/R/BracarensePg43.R
@@ -0,0 +1,64 @@
+#' @name BracarensePg43
+#' @title Pessoas Condenadas Por Embriaguez
+#' @description Os dados a seguir foram publicados pela Unidade de
+#'     Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
+#'     mostra o número de pessoas condenadas por embriaguez nos
+#'     tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
+#'     primeiro de janeiro a 27 de junho de 1970, classificados segundo
+#'     idade e sexo.
+#' @format Um \code{data.frame} com 5 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{NH}}{Número de Homens.}
+#'
+#' \item{\code{NM}}{Número de Mulheres.}
+#'
+#' }
+#'
+#' @keywords estatística básica
+#' @source BRACARENSE(2009), Exercício 2, página 43.
+#' @examples
+#'
+#' data(BracarensePg43)
+#' str(BracarensePg43)
+#' levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
+#'
+#' tb <- as.matrix(BracarensePg43[, -1])
+#' rownames(tb) <- BracarensePg43[, 1]
+#'
+#' mosaicplot(tb, main = NULL)
+#'
+#' barplot(tb,
+#'         beside = TRUE,
+#'         ylab = "Número de pessoas condenados por embriaguez")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' desloc <- function(x, groups, box.ratio, subscripts) {
+#'     d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
+#'     g <- (as.numeric(groups[subscripts]) - 1)
+#'     g <- (g - median(g)) * d
+#'     return(as.integer(x[subscripts]) + g)
+#' }
+#'
+#' barchart(tb,
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          ylab = "Número de pessoas condenados por embriaguez") +
+#'     layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#'                      y = y,
+#'                      label = y,
+#'                      pos = 3))
+#'
+#' barchart(t(tb),
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          ylab = "Número de pessoas condenados por embriaguez") +
+#'     layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#'                      y = y,
+#'                      label = y,
+#'                      pos = 3))
+#'
+NULL
diff --git a/R/BracarensePg44.R b/R/BracarensePg44.R
new file mode 100644
index 0000000000000000000000000000000000000000..ca28bd338c18e34cc6170027abe97c3e78e7bbbf
--- /dev/null
+++ b/R/BracarensePg44.R
@@ -0,0 +1,21 @@
+#' @name BracarensePg44
+#' @title Altura de Mulheres Idosas
+#' @description Os dados a seguir são de altura (em centímetros) de uma
+#'     amostra de 351 mulheres idosas selecionadas aleatoriamente de uma
+#'     comunidade para um estudo de osteoporose.
+#' @format Um \code{vetor} com 351 valures de altura, em cm.
+#' @keywords sociometria
+#' @source BRACARENSE (2009), Exercício 3, página 44.
+#' @examples
+#'
+#' data(BracarensePg44)
+#' str(BracarensePg44)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg44) + layer(panel.rug(x)),
+#'   densityplot(~BracarensePg44, plot.points = "rug"),
+#'   ecdfplot(~BracarensePg44), layout = c(NA, 1))
+#'
+NULL
diff --git a/data-raw/BracarensePg27.txt b/data-raw/BracarensePg27.txt
new file mode 100644
index 0000000000000000000000000000000000000000..14356bee694b7b83d9b4880c0a1ea5cdcdc7cb77
--- /dev/null
+++ b/data-raw/BracarensePg27.txt
@@ -0,0 +1,41 @@
+Sexo	Idade	Salario	Setor
+M	49	1714	oper
+M	48	1701	oper
+M	64	1589	oper
+F	37	1418	oper
+F	42	1000	aux adm
+M	40	3732	tec
+F	21	1330	oper
+F	33	1307	oper
+M	39	1282	oper
+F	42	1260	oper
+F	39	975	aux adm
+M	32	1256	tec
+M	22	1185	tec
+M	21	3535	oper
+F	37	2956	aux adm
+F	24	1179	adm
+M	28	966	aux adm
+M	32	3204	adm
+M	31	881	aux adm
+F	38	3080	adm
+M	23	2872	tec
+M	22	826	aux adm
+M	46	1010	oper
+F	34	708	aux adm
+M	47	2960	adm
+M	42	2797	tec
+F	32	1001	oper
+F	29	2315	adm
+M	41	5572	ger
+M	30	2372	tec
+F	51	4829	ger
+F	23	1826	adm
+M	20	540	oper
+F	27	489	oper
+F	33	479	oper
+F	22	1904	tec
+M	41	659	aux adm
+F	34	1827	tec
+M	24	472	oper
+F	20	640	aux adm
diff --git a/data-raw/BracarensePg41.txt b/data-raw/BracarensePg41.txt
new file mode 100644
index 0000000000000000000000000000000000000000..4e75a362b4c6033c1a0cd41c9387e05d3b14894e
--- /dev/null
+++ b/data-raw/BracarensePg41.txt
@@ -0,0 +1,50 @@
+1030
+1050
+1100
+1130
+1175
+1185
+1225
+1230
+1262
+1295
+1300
+1310
+1410
+1500
+1550
+1575
+1600
+1680
+1715
+1720
+1720
+1750
+1760
+1770
+1820
+1890
+1930
+1940
+2015
+2040
+2090
+2200
+2200
+2270
+2750
+2400
+2440
+2500
+2550
+2560
+2570
+2600
+2700
+2730
+2830
+2950
+3005
+3160
+3400
+3640
diff --git a/data-raw/BracarensePg43.txt b/data-raw/BracarensePg43.txt
new file mode 100644
index 0000000000000000000000000000000000000000..288904bb30fe3d3a1aaec1ef4edc614adb4924cf
--- /dev/null
+++ b/data-raw/BracarensePg43.txt
@@ -0,0 +1,6 @@
+Idade	NH	NM
+0 - 29	185	4
+30 - 39	207	13
+40 - 49	260	10
+50 - 59	180	7
+60 - 	71	10
diff --git a/data-raw/BracarensePg44.txt b/data-raw/BracarensePg44.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b83a917fd336c99a4d52e5640f26225e36dfb458
--- /dev/null
+++ b/data-raw/BracarensePg44.txt
@@ -0,0 +1,351 @@
+156
+163
+169
+161
+154
+156
+163
+164
+156
+166
+177
+158
+150
+164
+159
+157
+166
+163
+153
+161
+170
+159
+170
+157
+156
+156
+153
+178
+161
+164
+158
+158
+162
+160
+150
+162
+155
+161
+158
+163
+158
+162
+163
+152
+173
+159
+154
+155
+164
+163
+164
+157
+152
+154
+173
+154
+162
+163
+163
+165
+160
+162
+155
+160
+151
+163
+160
+165
+166
+178
+153
+160
+156
+151
+165
+169
+157
+152
+164
+166
+160
+165
+163
+158
+153
+162
+163
+162
+164
+155
+155
+161
+162
+156
+169
+159
+159
+159
+158
+160
+165
+152
+157
+149
+169
+154
+146
+156
+157
+163
+166
+165
+155
+151
+157
+156
+160
+170
+158
+165
+167
+162
+153
+156
+163
+157
+147
+163
+161
+161
+153
+155
+166
+159
+157
+152
+159
+166
+160
+157
+153
+159
+156
+152
+151
+171
+162
+158
+152
+157
+162
+168
+155
+155
+155
+161
+157
+158
+153
+155
+161
+160
+160
+170
+163
+153
+159
+169
+155
+161
+156
+153
+156
+158
+164
+160
+157
+158
+157
+156
+160
+161
+167
+162
+158
+163
+147
+153
+155
+159
+156
+161
+158
+164
+163
+155
+155
+158
+165
+176
+158
+155
+150
+154
+164
+145
+153
+169
+160
+159
+159
+163
+148
+171
+158
+158
+157
+158
+168
+161
+165
+167
+158
+158
+161
+160
+163
+163
+169
+163
+164
+150
+154
+165
+158
+161
+156
+171
+163
+170
+154
+158
+162
+164
+158
+165
+158
+156
+162
+160
+164
+165
+157
+167
+142
+166
+163
+163
+151
+163
+153
+157
+159
+152
+169
+154
+155
+167
+164
+170
+174
+155
+157
+170
+159
+170
+155
+168
+152
+165
+158
+162
+173
+154
+167
+158
+159
+152
+158
+167
+164
+170
+164
+166
+170
+160
+148
+168
+151
+153
+150
+165
+165
+147
+162
+165
+158
+145
+150
+164
+161
+157
+163
+166
+162
+163
+160
+162
+153
+168
+163
+160
+165
+156
+158
+155
+168
+160
+153
+163
+161
+145
+161
+166
+154
+147
+161
+155
+158
+161
+163
+157
+156
+152
+156
+165
+159
+170
+160
+152
+153
diff --git a/data/BracarensePg27.rda b/data/BracarensePg27.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f9bb32db2eebaeade263532e664b0a0126ca203b
Binary files /dev/null and b/data/BracarensePg27.rda differ
diff --git a/data/BracarensePg41.rda b/data/BracarensePg41.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ca1e8cb3d29917e718df39ca0af03d90c319d9e9
Binary files /dev/null and b/data/BracarensePg41.rda differ
diff --git a/data/BracarensePg43.rda b/data/BracarensePg43.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a8c9694a2f9f1aa3206d2d3cd5213b095a7aff8c
Binary files /dev/null and b/data/BracarensePg43.rda differ
diff --git a/data/BracarensePg44.rda b/data/BracarensePg44.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fb796b8607af045e4ff19f0bc9cf5598b1d45f0f
Binary files /dev/null and b/data/BracarensePg44.rda differ
diff --git a/man/BracarensePg27.Rd b/man/BracarensePg27.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..8d024bce039b11780051317433b2092faab25f67
--- /dev/null
+++ b/man/BracarensePg27.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg27.R
+\name{BracarensePg27}
+\alias{BracarensePg27}
+\title{Relação dos Funcionários de uma Empresa Imaginária}
+\format{Um \code{data.frame} com 40 linhas e 4 colunas, em que
+
+\describe{
+
+\item{\code{Sexo}}{Sexo do trabalhador.}
+
+\item{\code{Idade}}{Idade do trabalhador, em anos.}
+
+\item{\code{Salario}}{Salário recebido.}
+
+\item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
+    \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
+    \code{adm} - administrativo, \code{ger} - gerência.}
+
+}}
+\source{
+BRACARENSE (2009), exemplo página 27.
+}
+\description{
+Relação dos funcionários constando sexo, idade, salário
+    e setor.
+}
+\examples{
+
+data(BracarensePg27)
+str(BracarensePg27)
+
+tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
+mosaicplot(tb)
+
+library(lattice)
+
+xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
+
+}
+\keyword{básica}
+\keyword{estatística}
+
diff --git a/man/BracarensePg41.Rd b/man/BracarensePg41.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f35a147cd8b2f8819275b3797d1adad3c5bff736
--- /dev/null
+++ b/man/BracarensePg41.Rd
@@ -0,0 +1,29 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg41.R
+\name{BracarensePg41}
+\alias{BracarensePg41}
+\title{Peso de Recém Nascidos}
+\format{Um \code{vetor} com 50 valores de peso em gramas.}
+\source{
+BRACARENSE (2009), Exercício 1, página 41.
+}
+\description{
+Os dados a seguir são relativos ao peso, ao nascer (em
+    gramas), de recém nascidos com síndrome de desconforto idiopático
+    grave.
+}
+\examples{
+
+data(BracarensePg41)
+str(BracarensePg41)
+
+library(lattice)
+library(latticeExtra)
+
+c(histogram(~BracarensePg41) + layer(panel.rug(x)),
+  densityplot(~BracarensePg41, plot.points = "rug"),
+  ecdfplot(~BracarensePg41), layout = c(NA, 1))
+
+}
+\keyword{sociometria}
+
diff --git a/man/BracarensePg43.Rd b/man/BracarensePg43.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b7d31561ce314a5b4b432386acd02178609b3d58
--- /dev/null
+++ b/man/BracarensePg43.Rd
@@ -0,0 +1,72 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg43.R
+\name{BracarensePg43}
+\alias{BracarensePg43}
+\title{Pessoas Condenadas Por Embriaguez}
+\format{Um \code{data.frame} com 5 linhas e 3 colunas, em que
+
+\describe{
+
+\item{\code{NH}}{Número de Homens.}
+
+\item{\code{NM}}{Número de Mulheres.}
+
+}}
+\source{
+BRACARENSE(2009), Exercício 2, página 43.
+}
+\description{
+Os dados a seguir foram publicados pela Unidade de
+    Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
+    mostra o número de pessoas condenadas por embriaguez nos
+    tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
+    primeiro de janeiro a 27 de junho de 1970, classificados segundo
+    idade e sexo.
+}
+\examples{
+
+data(BracarensePg43)
+str(BracarensePg43)
+levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
+
+tb <- as.matrix(BracarensePg43[, -1])
+rownames(tb) <- BracarensePg43[, 1]
+
+mosaicplot(tb, main = NULL)
+
+barplot(tb,
+        beside = TRUE,
+        ylab = "Número de pessoas condenados por embriaguez")
+
+library(lattice)
+library(latticeExtra)
+
+desloc <- function(x, groups, box.ratio, subscripts) {
+    d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
+    g <- (as.numeric(groups[subscripts]) - 1)
+    g <- (g - median(g)) * d
+    return(as.integer(x[subscripts]) + g)
+}
+
+barchart(tb,
+         stack = FALSE,
+         horizontal = FALSE,
+         ylab = "Número de pessoas condenados por embriaguez") +
+    layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+                     y = y,
+                     label = y,
+                     pos = 3))
+
+barchart(t(tb),
+         stack = FALSE,
+         horizontal = FALSE,
+         ylab = "Número de pessoas condenados por embriaguez") +
+    layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+                     y = y,
+                     label = y,
+                     pos = 3))
+
+}
+\keyword{básica}
+\keyword{estatística}
+
diff --git a/man/BracarensePg44.Rd b/man/BracarensePg44.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3b4bb3998b6666bc2ccca9723f956e33a1e9c0c7
--- /dev/null
+++ b/man/BracarensePg44.Rd
@@ -0,0 +1,29 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg44.R
+\name{BracarensePg44}
+\alias{BracarensePg44}
+\title{Altura de Mulheres Idosas}
+\format{Um \code{vetor} com 351 valures de altura, em cm.}
+\source{
+BRACARENSE (2009), Exercício 3, página 44.
+}
+\description{
+Os dados a seguir são de altura (em centímetros) de uma
+    amostra de 351 mulheres idosas selecionadas aleatoriamente de uma
+    comunidade para um estudo de osteoporose.
+}
+\examples{
+
+data(BracarensePg44)
+str(BracarensePg44)
+
+library(lattice)
+library(latticeExtra)
+
+c(histogram(~BracarensePg44) + layer(panel.rug(x)),
+  densityplot(~BracarensePg44, plot.points = "rug"),
+  ecdfplot(~BracarensePg44), layout = c(NA, 1))
+
+}
+\keyword{sociometria}
+