diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R
new file mode 100644
index 0000000000000000000000000000000000000000..f95bc90624b6bdbf694f70f7cf71d03f9f44abff
--- /dev/null
+++ b/R/BracarensePg27.R
@@ -0,0 +1,24 @@
+#' @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{oper}}{Setor operacional.}
+#' \item{\code{aux adm}}{Auxiliar administrativo.}
+#' \item{\code{tec}}{Setor técnico}
+#' \item{\code{adm}}{Setor Administrativo.}
+#' \item{\code{ger}}{Gerência}
+#' 
+#' }
+#' 
+#' @keywords estatística básica
+#' @source BRACARENSE(2009), exemplo pág. 27.
+#' @examples
+#' 
+#' library(lattice)
+#' xyplot(Setor ~ Idade | Sexo, data = BracarensePg27)
+#' 
+#'     
+NULL
\ No newline at end of file
diff --git a/R/BracarensePg41.R b/R/BracarensePg41.R
index 1f592ae79f5080b65205f27e9a3e7e144989307c..a632c63e87f7845f4ef456c30999a953de8c9180 100644
--- a/R/BracarensePg41.R
+++ b/R/BracarensePg41.R
@@ -8,11 +8,7 @@
 #' @source BRACARENSE(2009), Exercício 1, pág. 41.
 #' @examples
 #' 
-#' dados <- (SliwianyQd28$ASC)/17559*100
+#' plot(BracarensePg41, col= rainbow(50))
+#' 
 #' 
-#' barplot(dados[1:3], names.arg = SliwianyQd28$Sit[1:3], ylim = c(0, 60), 
-#'     col = "pink", main = "Porcentagem de alunos aprovados, reprovados
-#'     e desistentes do total de alunos sem creche")
-#'     
-#'     
 NULL
\ No newline at end of file
diff --git a/R/BracarensePg44.R b/R/BracarensePg44.R
index 6ba2150fe0eae586de1960e1cf913d57e2bd57d5..5a20114df575d2a6b0f9974f74755295f56caa1c 100644
--- a/R/BracarensePg44.R
+++ b/R/BracarensePg44.R
@@ -3,16 +3,12 @@
 #' @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{data.frame} com 351 linhas e 1 coluna
+#' @format Um \code{vetor} com 351 entradas.
 #' @keywords sociometria
 #' @source BRACARENSE(2009), Exercício 3, pág. 44.
 #' @examples
 #' 
-#' dados <- (SliwianyQd28$ASC)/17559*100
-#' 
-#' barplot(dados[1:3], names.arg = SliwianyQd28$Sit[1:3], ylim = c(0, 60), 
-#'     col = "pink", main = "Porcentagem de alunos aprovados, reprovados
-#'     e desistentes do total de alunos sem creche")
+#' plot(BracarensePg44, ylab = "Altura")
 #'     
 #'     
 NULL
\ No newline at end of file
diff --git a/data-raw/BracarensePg27.txt b/data-raw/BracarensePg27.txt
index 768dc3a5f3d896e8b642ce743154898482a854d3..14356bee694b7b83d9b4880c0a1ea5cdcdc7cb77 100644
--- a/data-raw/BracarensePg27.txt
+++ b/data-raw/BracarensePg27.txt
@@ -1,4 +1,4 @@
-Sexo	Idade	Sal�rio	Setor
+Sexo	Idade	Salario	Setor
 M	49	1714	oper
 M	48	1701	oper
 M	64	1589	oper
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..b1a141d3dcbb0c56f73f0c1a5920a4b859f7580a
--- /dev/null
+++ b/man/BracarensePg27.Rd
@@ -0,0 +1,32 @@
+% 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{oper}}{Setor operacional.}
+\item{\code{aux adm}}{Auxiliar administrativo.}
+\item{\code{tec}}{Setor técnico}
+\item{\code{adm}}{Setor Administrativo.}
+\item{\code{ger}}{Gerência}
+
+}}
+\source{
+BRACARENSE(2009), exemplo pág. 27.
+}
+\description{
+Relação dos funcionários constando sexo, idade, salário
+    e setor.
+}
+\examples{
+
+library(lattice)
+xyplot(Setor ~ Idade | 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..53b84598d4d29054b59ce2b0b3fb3f51e45b793a
--- /dev/null
+++ b/man/BracarensePg41.Rd
@@ -0,0 +1,22 @@
+% 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 entradas}
+\source{
+BRACARENSE(2009), Exercício 1, pág. 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{
+
+plot(BracarensePg41, col= rainbow(50))
+
+
+}
+\keyword{sociometria}
+
diff --git a/man/BracarensePg43.Rd b/man/BracarensePg43.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..205222bb5472bed16120bbdc1872a2eb32ac1450
--- /dev/null
+++ b/man/BracarensePg43.Rd
@@ -0,0 +1,38 @@
+% 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ág. 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{
+
+soma <- sum(BracarensePg43$NH)
+
+dados <- BracarensePg43$NH/soma*100
+
+barplot(dados, names.arg = BracarensePg43$Idade, 
+    col = "red", 
+    ylim = c(0, 30),
+    main = "Porcentagem de Homens Condenados por Embriaguez por Idade")
+    
+    
+}
+\keyword{básica}
+\keyword{estatística}
+
diff --git a/man/BracarensePg44.Rd b/man/BracarensePg44.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..782bdad0dec667bf32fd183e043cd8c69e7c9b11
--- /dev/null
+++ b/man/BracarensePg44.Rd
@@ -0,0 +1,22 @@
+% 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 entradas.}
+\source{
+BRACARENSE(2009), Exercício 3, pág. 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{
+
+plot(BracarensePg44, ylab = "Altura")
+    
+    
+}
+\keyword{sociometria}
+