diff --git a/R/BracarensePg114.R b/R/BracarensePg114.R
new file mode 100644
index 0000000000000000000000000000000000000000..e36d45d69c4114e2d01b6d7270581c59f3cba07b
--- /dev/null
+++ b/R/BracarensePg114.R
@@ -0,0 +1,63 @@
+#' @name BracarensePg114
+#' @title Intenções de Voto
+#' @description Pesquisas de intençõeses de voto feitas para eleição da
+#' Bahia em 2006, em diferentes datas antes da eleição.
+#' @format Um \code{data.frame} com 8 linhas e 4 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+#' voto ou do resultado final das eleições.}
+#'
+#' \item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+#'
+#' \item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+#'
+#' \item{\code{OC}}{Porcentagem de votos para outros candidatos.}
+#'
+#' }
+#' @keywords estat?stica b?sica
+#' @source BRACARENSE (2009), exemplo p?gina 114.
+#' @examples
+#'
+#' data(BracarensePg114)
+#' str(BracarensePg114)
+#'
+#' # Porque algumas somas passam de 100%?
+#' rowSums(BracarensePg114[, -1])
+#'
+#' BracarensePg114$Data <- factor(BracarensePg114$Data,
+#' levels = as.character(BracarensePg114$Data))
+#'
+#' dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
+#'
+#' barplot(dados,
+#' names.arg = rep(c("Paulo Souto",
+#' "Jaques Wagner"), each = 2),
+#' col = rep(c("red", "pink"), times = 2),
+#' main = paste0("Intenções de Voto em 18/5\n",
+#' "Comparadas com o Resultado Final da Eleições"),
+#' ylim = c(0, 80),
+#' legend = c("18/5", "Resultado Oficial"))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+#'
+#' barchart(~PS + JW + OC | Data,
+#' data = BracarensePg114,
+#' as.table = TRUE)
+#'
+#' xyplot(PS + JW + OC ~ Data,
+#' data = BracarensePg114,
+#' xlab = "Datas das pesquisas e resultado final",
+#' ylab = "Proporção de votos (%)",
+#' type = "o",
+#' pch = 19) +
+#' layer(panel.text(x = tapply(x, groups, tail, 1),
+#' y = tapply(y, groups, tail, 1),
+#' labels = levels(groups),
+#' pos = 4, cex = 1.1))
+#'
+NULL
diff --git a/R/BracarensePg177.R b/R/BracarensePg177.R
new file mode 100644
index 0000000000000000000000000000000000000000..a69b175ae14fec43bc11eb9dd17da34abd39e9b2
--- /dev/null
+++ b/R/BracarensePg177.R
@@ -0,0 +1,50 @@
+#' @name BracarensePg177
+#' @title População Recenseada e Estimada em 2007
+#' @description População recenseada e estimada, segundo as unidades da
+#' federação (2007).
+#' @format Um \code{data.frame} com 27 linhas e 3 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Região a qual pertence o estado.}
+#'
+#' \item{\code{Est}}{Estado do Brasil.}
+#'
+#' \item{\code{Pop}}{População do Estado.}
+#'
+#' }
+#' @keywords estatÃstica básica
+#' @source BRACARENSE (2009), exemplo página 177.
+#' @examples
+#'
+#' data(BracarensePg177)
+#' str(BracarensePg177)
+#'
+#' dados <- aggregate(Pop ~ Reg,
+#' data = BracarensePg177,
+#' FUN = sum)
+#' dados
+#'
+#' barplot(dados$Pop/sum(dados$Pop),
+#' names.arg = dados$Reg,
+#' col = rainbow(5),
+#' main = "Porcentagem da População Brasileira por Região")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' # Gráfico de pareto da distribuição da população.
+#' barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+#' data = BracarensePg177,
+#' ylim = c(0, NA),
+#' scales = list(x = list(rot = 90)),
+#' xlab = "Estados brasileiros",
+#' ylab = "Poporção da população total") +
+#' layer(panel.text(x = x,
+#' y = y,
+#' labels = sprintf("%0.2f", y),
+#' cex = 0.8,
+#' adj = c(-0.25, 0.5),
+#' srt = 90))
+#'
+NULL
diff --git a/R/BracarensePg184.R b/R/BracarensePg184.R
new file mode 100644
index 0000000000000000000000000000000000000000..3aef2455889ca2fc40f67355a334869a4dfb4ce4
--- /dev/null
+++ b/R/BracarensePg184.R
@@ -0,0 +1,47 @@
+#' @name BracarensePg184
+#' @title Taxa de Fecundidade por Grupos de Anos de Estudo da Mulher
+#' @description Taxa de fecundidade total por grupos de anos de estudos
+#' da mulher, por regiões.
+#' @format Um \code{data.frame} com 6 linhas e 5 colunas em que:
+#'
+#' \describe{
+#'
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{de0a3}}{Taxa de fecundidade de mulheres com até 3 anos de
+#' estudo.}
+#'
+#' \item{\code{de4a7}}{taxa de fecundidade de mulheres de 4 a 7 anos de
+#' estudo.}
+#'
+#' \item{\code{de8acima}}{Taxa de fecundidade de mulheres com 8 anos ou
+#' mais de estudo.}
+#'
+#' \item{\code{Total}}{Taxa de fecundidade total.}
+#'
+#' }
+#' @keywords estatÃstica básica
+#' @source BRACARENSE (2009), exemplo página 184.
+#' @examples
+#'
+#' data(BracarensePg184)
+#' str(BracarensePg184)
+#'
+#' names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+#'
+#' barplot(BracarensePg184$Total,
+#' ylim = c(0, 3),
+#' names.arg = BracarensePg184$Reg,
+#' main = "Taxa de Fecundidade Por Região",
+#' col = rainbow(6))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+#' data = BracarensePg184,
+#' auto.key = list(columns = 4),
+#' ylab = "Taxa de fecundidade",
+#' xlab = "Regiões")
+#'
+NULL
diff --git a/R/BracarensePg78.R b/R/BracarensePg78.R
new file mode 100644
index 0000000000000000000000000000000000000000..75d72802ea135e91ae427f0ac21082d6f11f996d
--- /dev/null
+++ b/R/BracarensePg78.R
@@ -0,0 +1,41 @@
+#' @name BracarensePg78
+#' @title Notas Padronizadas por Matéria
+#' @description Notas padronizadas de um candidato, por matéria.
+#' @format Um \code{data.frame} com 24 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Mate}}{Matéria.}
+#
+#' }
+#'
+#' @keywords estatÃstica básica
+#' @source BRACARENSE (2009), exemplo página 78.
+#' @examples
+#'
+#' data(BracarensePg78)
+#' str(BracarensePg78)
+#'
+#' BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+#' levels(BracarensePg78$Mate)
+#'
+#' medias <- aggregate(Nota ~ Mate,
+#' data = BracarensePg78,
+#' FUN = mean)
+#' medias
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(Nota ~ Mate, data = medias) +
+#' layer(panel.text(x = x, y = y, labels = y, pos = 3))
+#'
+#' xyplot(Nota ~ Serie,
+#' groups = Mate,
+#' data = BracarensePg78,
+#' type = "o",
+#' auto.key = list(space = "right",
+#' title = "Matéria",
+#' cex.title = 1.1))
+#'
+NULL
diff --git a/R/BracarensePg79.R b/R/BracarensePg79.R
new file mode 100644
index 0000000000000000000000000000000000000000..95faa6a7bb45a62731a795d86a27b85c05fdc82c
--- /dev/null
+++ b/R/BracarensePg79.R
@@ -0,0 +1,38 @@
+#' @name BracarensePg79
+#' @title Peso de Recém Nascidos
+#' @description Peso, em gramas, de 44 bebês recém nascidos em um
+#' perÃodo de 24 horas em um hospital de Brisbane na Austrália.
+#' @format Um \code{vetor} com 44 valores de peso.
+#' @keywords estatÃstica básica
+#' @source BRACARENSE (2009), atividade 1, página 79.
+#' @examples
+#'
+#' data(BracarensePg79)
+#' str(BracarensePg79)
+#'
+#' summary(BracarensePg79)
+#'
+#' xlim <- extendrange(BracarensePg79, f = 0.15)
+#'
+#' nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+#' height = c(1, 3))
+#' par(mar = c(1.1, 4.1, 3.1, 2.1))
+#' boxplot(BracarensePg79,
+#' horizontal = TRUE,
+#' col = "green1",
+#' ylim = xlim,
+#' axes = FALSE,
+#' frame = FALSE)
+#' axis(side = 3)
+#' rug(BracarensePg79, side = 3, ticksize = 0.1)
+#' par(mar = c(4.1, 4.1, 1.1, 2.1))
+#' hist(BracarensePg79,
+#' xlim = xlim,
+#' main = NULL,
+#' col = "pink",
+#' xlab = "Peso de bebês recém nascidos (g)")
+#' abline(v = median(BracarensePg79), col = 4)
+#' rug(BracarensePg79, side = 1)
+#' layout(1)
+#'
+NULL
diff --git a/data-raw/BracarensePg114.txt b/data-raw/BracarensePg114.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f506dbce38a97b712e614a4161f48a166d900053
--- /dev/null
+++ b/data-raw/BracarensePg114.txt
@@ -0,0 +1,9 @@
+Data PS JW OC
+18/mai 69.5 12.2 18.3
+25/jul 72.7 16.9 10.4
+14/ago 71.2 21.9 6.8
+11/set 67.7 32.1 6.2
+25/set 56.5 36.5 7.1
+01/out 51.0 41.0 9.0
+01/out** 43.0 49.0 8.0
+Res 43.0 52.9 4.1
diff --git a/data-raw/BracarensePg177.txt b/data-raw/BracarensePg177.txt
new file mode 100644
index 0000000000000000000000000000000000000000..11f0d186feda3d2296511856df6c72be9e49dd91
--- /dev/null
+++ b/data-raw/BracarensePg177.txt
@@ -0,0 +1,28 @@
+Reg Est Pop
+Norte Rondonia 1453756
+Norte Acre 655385
+Norte Amazonas 3221939
+Norte Roraima 395725
+Norte Para 7065573
+Norte Amapa 587311
+Norte Tocantins 1243627
+Nordeste Maranhao 6118995
+Nordeste Piaui 3032421
+Nordeste Ceara 8185286
+Nordeste Rio Grande do Norte 3013740
+Nordeste Paraiba 3641395
+Nordeste Pernambuco 8485386
+Nordeste Alagoas 3037103
+Nordeste Sergipe 1939426
+Nordeste Bahia 14080654
+Sudeste Minas Gerais 19273506
+Sudeste Espirito Santo 3351669
+Sudeste Rio de Janeiro 15420375
+Sudeste Sao Paulo 39827570
+Sul Parana 10284503
+Sul Santa Catarina 5866252
+Sul Rio Grande do Sul 10582840
+Centro - Oeste Mato Grosso do Sul 2265274
+Centro - Oeste Mato Grosso 2854642
+Centro - Oeste Goias 5647035
+Centro - Oeste Distrito Federal 2455903
diff --git a/data-raw/BracarensePg184.txt b/data-raw/BracarensePg184.txt
new file mode 100644
index 0000000000000000000000000000000000000000..50a33373f8640005c75a98f2486d52975a96274d
--- /dev/null
+++ b/data-raw/BracarensePg184.txt
@@ -0,0 +1,7 @@
+Reg Total 0 - 3 4 - 7 8 -
+Brasil 2.1 4.0 3.1 1.5
+Norte 2.5 4.5 3.4 1.8
+Nordeste 2.3 4.1 3.0 1.5
+Sudeste 1.9 3.7 3.1 1.5
+Sul 2.0 3.7 3.1 1.6
+Centro-Oeste 2.0 3.4 3.5 1.5
diff --git a/data-raw/BracarensePg78.txt b/data-raw/BracarensePg78.txt
new file mode 100644
index 0000000000000000000000000000000000000000..96650d02c0603a96d2ab1af9f2549d2175d5ec54
--- /dev/null
+++ b/data-raw/BracarensePg78.txt
@@ -0,0 +1,25 @@
+Mate Serie Nota
+Portugues 1 544
+Matematica 1 604
+Quimica 1 634
+Fisica 1 544
+Biologia 1 480
+Historia 1 750
+Geografia 1 710
+Ingles 1 805
+Portugues 2 640
+Matematica 2 566
+Quimica 2 718
+Fisica 2 612
+Biologia 2 460
+Historia 2 806
+Geografia 2 670
+Ingles 2 715
+Portugues 3 637
+Matematica 3 630
+Quimica 3 721
+Fisica 3 623
+Biologia 3 515
+Historia 3 823
+Geografia 3 735
+Ingles 3 805
diff --git a/data-raw/BracarensePg79.txt b/data-raw/BracarensePg79.txt
new file mode 100644
index 0000000000000000000000000000000000000000..bb8121f613f3fb68d1c064db99500effdf25b6f0
--- /dev/null
+++ b/data-raw/BracarensePg79.txt
@@ -0,0 +1,44 @@
+3837
+3380
+3430
+3428
+3334
+3294
+3480
+4162
+3554
+2576
+3116
+3630
+3838
+3208
+3428
+3406
+3625
+3521
+3783
+3402
+2208
+3746
+3345
+3500
+1745
+3523
+3034
+3736
+2846
+2902
+2184
+3370
+3166
+2635
+3300
+3692
+3520
+3920
+2383
+2121
+3150
+3866
+3542
+3278
diff --git a/data/BracarensePg114.rda b/data/BracarensePg114.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2628f9b38e1c24309b82761515f760291bd13dc8
Binary files /dev/null and b/data/BracarensePg114.rda differ
diff --git a/data/BracarensePg177.rda b/data/BracarensePg177.rda
new file mode 100644
index 0000000000000000000000000000000000000000..91cefaecb3d8ac065f37de46c14eb1cbcfda0942
Binary files /dev/null and b/data/BracarensePg177.rda differ
diff --git a/data/BracarensePg184.rda b/data/BracarensePg184.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d38bb1303cade07c35df00d516eeb5d25f60ffa9
Binary files /dev/null and b/data/BracarensePg184.rda differ
diff --git a/data/BracarensePg78.rda b/data/BracarensePg78.rda
new file mode 100644
index 0000000000000000000000000000000000000000..587a4a88db883a976568470cd717e6bdac2d16c7
Binary files /dev/null and b/data/BracarensePg78.rda differ
diff --git a/data/BracarensePg79.rda b/data/BracarensePg79.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1bd5eaff8ceeb933b65d1577a81d9a77a16aafd0
Binary files /dev/null and b/data/BracarensePg79.rda differ
diff --git a/man/BracarensePg114.Rd b/man/BracarensePg114.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..fcc1796ecce5da619a101799b691fa6a9b4c11f0
--- /dev/null
+++ b/man/BracarensePg114.Rd
@@ -0,0 +1,72 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg114.R
+\name{BracarensePg114}
+\alias{BracarensePg114}
+\title{Intenções de Voto}
+\format{Um \code{data.frame} com 8 linhas e 4 colunas em que:
+
+\describe{
+
+\item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+ voto ou do resultado final das eleições.}
+
+\item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+
+\item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+
+\item{\code{OC}}{Porcentagem de votos para outros candidatos.}
+
+}}
+\source{
+BRACARENSE (2009), exemplo p?gina 114.
+}
+\description{
+Pesquisas de intençõeses de voto feitas para eleição da
+ Bahia em 2006, em diferentes datas antes da eleição.
+}
+\examples{
+
+data(BracarensePg114)
+str(BracarensePg114)
+
+# Porque algumas somas passam de 100\%?
+rowSums(BracarensePg114[, -1])
+
+BracarensePg114$Data <- factor(BracarensePg114$Data,
+ levels = as.character(BracarensePg114$Data))
+
+dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
+
+barplot(dados,
+ names.arg = rep(c("Paulo Souto",
+ "Jaques Wagner"), each = 2),
+ col = rep(c("red", "pink"), times = 2),
+ main = paste0("Intenções de Voto em 18/5\\n",
+ "Comparadas com o Resultado Final da Eleições"),
+ ylim = c(0, 80),
+ legend = c("18/5", "Resultado Oficial"))
+
+library(lattice)
+library(latticeExtra)
+
+barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+
+barchart(~PS + JW + OC | Data,
+ data = BracarensePg114,
+ as.table = TRUE)
+
+xyplot(PS + JW + OC ~ Data,
+ data = BracarensePg114,
+ xlab = "Datas das pesquisas e resultado final",
+ ylab = "Proporção de votos (\%)",
+ type = "o",
+ pch = 19) +
+ layer(panel.text(x = tapply(x, groups, tail, 1),
+ y = tapply(y, groups, tail, 1),
+ labels = levels(groups),
+ pos = 4, cex = 1.1))
+
+}
+\keyword{b?sica}
+\keyword{estat?stica}
+
diff --git a/man/BracarensePg177.Rd b/man/BracarensePg177.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..9713611dbea38d0515af956231e5532f7e0e936c
--- /dev/null
+++ b/man/BracarensePg177.Rd
@@ -0,0 +1,59 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg177.R
+\name{BracarensePg177}
+\alias{BracarensePg177}
+\title{População Recenseada e Estimada em 2007}
+\format{Um \code{data.frame} com 27 linhas e 3 colunas em que:
+
+\describe{
+
+\item{\code{Reg}}{Região a qual pertence o estado.}
+
+\item{\code{Est}}{Estado do Brasil.}
+
+\item{\code{Pop}}{População do Estado.}
+
+}}
+\source{
+BRACARENSE (2009), exemplo página 177.
+}
+\description{
+População recenseada e estimada, segundo as unidades da
+ federação (2007).
+}
+\examples{
+
+data(BracarensePg177)
+str(BracarensePg177)
+
+dados <- aggregate(Pop ~ Reg,
+ data = BracarensePg177,
+ FUN = sum)
+dados
+
+barplot(dados$Pop/sum(dados$Pop),
+ names.arg = dados$Reg,
+ col = rainbow(5),
+ main = "Porcentagem da População Brasileira por Região")
+
+library(lattice)
+library(latticeExtra)
+
+# Gráfico de pareto da distribuição da população.
+barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+ data = BracarensePg177,
+ ylim = c(0, NA),
+ scales = list(x = list(rot = 90)),
+ xlab = "Estados brasileiros",
+ ylab = "Poporção da população total") +
+ layer(panel.text(x = x,
+ y = y,
+ labels = sprintf("\%0.2f", y),
+ cex = 0.8,
+ adj = c(-0.25, 0.5),
+ srt = 90))
+
+}
+\keyword{básica}
+\keyword{estatÃstica}
+
diff --git a/man/BracarensePg184.Rd b/man/BracarensePg184.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..5a52a5fbe8bbd56ff56e52c4a50a7730dbc6833f
--- /dev/null
+++ b/man/BracarensePg184.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg184.R
+\name{BracarensePg184}
+\alias{BracarensePg184}
+\title{Taxa de Fecundidade por Grupos de Anos de Estudo da Mulher}
+\format{Um \code{data.frame} com 6 linhas e 5 colunas em que:
+
+\describe{
+
+\item{\code{Reg}}{Regiões do Brasil.}
+
+\item{\code{de0a3}}{Taxa de fecundidade de mulheres com até 3 anos de
+ estudo.}
+
+\item{\code{de4a7}}{taxa de fecundidade de mulheres de 4 a 7 anos de
+ estudo.}
+
+\item{\code{de8acima}}{Taxa de fecundidade de mulheres com 8 anos ou
+ mais de estudo.}
+
+\item{\code{Total}}{Taxa de fecundidade total.}
+
+}}
+\source{
+BRACARENSE (2009), exemplo página 184.
+}
+\description{
+Taxa de fecundidade total por grupos de anos de estudos
+ da mulher, por regiões.
+}
+\examples{
+
+data(BracarensePg184)
+str(BracarensePg184)
+
+names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+
+barplot(BracarensePg184$Total,
+ ylim = c(0, 3),
+ names.arg = BracarensePg184$Reg,
+ main = "Taxa de Fecundidade Por Região",
+ col = rainbow(6))
+
+library(lattice)
+library(latticeExtra)
+
+barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+ data = BracarensePg184,
+ auto.key = list(columns = 4),
+ ylab = "Taxa de fecundidade",
+ xlab = "Regiões")
+
+}
+\keyword{básica}
+\keyword{estatÃstica}
+
diff --git a/man/BracarensePg78.Rd b/man/BracarensePg78.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c216c6f8a2ed3e02fd8ef264491263f1633408fb
--- /dev/null
+++ b/man/BracarensePg78.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg78.R
+\name{BracarensePg78}
+\alias{BracarensePg78}
+\title{Notas Padronizadas por Matéria}
+\format{Um \code{data.frame} com 24 linhas e 3 colunas, em que
+
+\describe{
+
+\item{\code{Mate}}{Matéria.}
+}}
+\source{
+BRACARENSE (2009), exemplo página 78.
+}
+\description{
+Notas padronizadas de um candidato, por matéria.
+}
+\examples{
+
+data(BracarensePg78)
+str(BracarensePg78)
+
+BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+levels(BracarensePg78$Mate)
+
+medias <- aggregate(Nota ~ Mate,
+ data = BracarensePg78,
+ FUN = mean)
+medias
+
+library(lattice)
+library(latticeExtra)
+
+barchart(Nota ~ Mate, data = medias) +
+ layer(panel.text(x = x, y = y, labels = y, pos = 3))
+
+xyplot(Nota ~ Serie,
+ groups = Mate,
+ data = BracarensePg78,
+ type = "o",
+ auto.key = list(space = "right",
+ title = "Matéria",
+ cex.title = 1.1))
+
+}
+\keyword{básica}
+\keyword{estatÃstica}
+
diff --git a/man/BracarensePg79.Rd b/man/BracarensePg79.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..4cdd8f84dac0daa56ce41e39122ee8987a192356
--- /dev/null
+++ b/man/BracarensePg79.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BracarensePg79.R
+\name{BracarensePg79}
+\alias{BracarensePg79}
+\title{Peso de Recém Nascidos}
+\format{Um \code{vetor} com 44 valores de peso.}
+\source{
+BRACARENSE (2009), atividade 1, página 79.
+}
+\description{
+Peso, em gramas, de 44 bebês recém nascidos em um
+ perÃodo de 24 horas em um hospital de Brisbane na Austrália.
+}
+\examples{
+
+data(BracarensePg79)
+str(BracarensePg79)
+
+summary(BracarensePg79)
+
+xlim <- extendrange(BracarensePg79, f = 0.15)
+
+nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+ height = c(1, 3))
+par(mar = c(1.1, 4.1, 3.1, 2.1))
+boxplot(BracarensePg79,
+ horizontal = TRUE,
+ col = "green1",
+ ylim = xlim,
+ axes = FALSE,
+ frame = FALSE)
+axis(side = 3)
+rug(BracarensePg79, side = 3, ticksize = 0.1)
+par(mar = c(4.1, 4.1, 1.1, 2.1))
+hist(BracarensePg79,
+ xlim = xlim,
+ main = NULL,
+ col = "pink",
+ xlab = "Peso de bebês recém nascidos (g)")
+abline(v = median(BracarensePg79), col = 4)
+rug(BracarensePg79, side = 1)
+layout(1)
+
+}
+\keyword{básica}
+\keyword{estatÃstica}
+