diff --git a/R/BracarensePg189.R b/R/BracarensePg189.R
index 21a666b4325dd4c4fc0e4bccf7e1269f6d250e63..e968adea61e2647b147fb23982818ddbb8a8b7ac 100644
--- a/R/BracarensePg189.R
+++ b/R/BracarensePg189.R
@@ -1,27 +1,38 @@
 #' @name BracarensePg189
-#' @title Razão de Sexo
-#' @description Razão de sexo das pesoas de 60, 65 e 70 anos ou mais de 
-#'     idade, segundo a Região Nordeste, Unidades da Federação e Regiões
-#'     metropolitanas. (2006)
+#' @title Razão de Sexo um Unidades Regiões do Brasil
+#' @description Razão entre os sexos das pessoas de 60, 65 e 70 anos ou
+#'     mais de idade, segundo a Região Nordeste, Unidades da Federação e
+#'     Regiões metropolitanas em 2006.
 #' @format Um \code{data.frame} com 12 linhas e 4 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{UF}}{Unidades da Federação.}
-#' \item{\code{60a}}{60 anos ou mais.}
+#'
+#' \item{\code{60a}}{60 anos ou mais TODO o que? é a proporção de mulheres?.}
+#'
 #' \item{\code{65a}}{65 anos ou mais.}
+#'
 #' \item{\code{70a}}{70 anos ou mais.}
-#' 
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 189.
+#' @source BRACARENSE (2009), exemplo página 189.
 #' @examples
-#' 
-#' barplot(BracarensePg189$X60a[1:5], 
-#'     names.arg = BracarensePg189$UF[1:5],
-#'     ylim = c(0, 100), col = "yellow", 
-#'     main = "Razão de sexo de pessoas de 60 anos ou mais")
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg189)
+#' str(BracarensePg189)
+#'
+#' barplot(BracarensePg189$X60a[1:5],
+#'         names.arg = BracarensePg189$UF[1:5],
+#'         ylim = c(0, 100),
+#'         col = "yellow",
+#'         main = "Razão de sexo de pessoas de 60 anos ou mais")
+#'
+#' library(lattice)
+#'
+#' barchart(X60a + X65a + X70a ~ UF,
+#'          data = BracarensePg189,
+#'          auto.key = list(columns = 3))
+#'
+NULL
diff --git a/R/BracarensePg194.R b/R/BracarensePg194.R
index b0e26560c2f6addc0c42bce7f1f973ed839fb923..f56696fca7920fabc42f94208f274f9ce4c10fb8 100644
--- a/R/BracarensePg194.R
+++ b/R/BracarensePg194.R
@@ -1,26 +1,35 @@
 #' @name BracarensePg194
 #' @title Índices de Urbanização
-#' @description Índices de Urbanização por região no Brasil nos anos 1950, 
-#'     1970 e 2000.
+#' @description Índices de Urbanização por região no Brasil nos anos
+#'     1950, 1970 e 2000.
 #' @format Um \code{data.frame} com 15 linhas e 3 colunas em que:
-#' 
+#'
 #' \describe{
 #'
-#' \item{\code{Reg}}{Região Brasileira.}
-#' \item{\code{Ano}}{Ano da observação.}
-#' \item{\code{Ind}}{Índice de Urbanização.}
-#' 
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{Ano}}{Ano em que o índice foi registrado.}
+#'
+#' \item{\code{Ind}}{Índice de urbanização.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 194.
+#' @source BRACARENSE (2009), exemplo página 194.
 #' @examples
-#' 
-#' barplot(c(BracarensePg194$Ind[1:5]), 
-#'     names.arg = BracarensePg194$Reg[1:5], 
-#'     ylim = c(0, 50), col = rainbow(5), 
-#'     main = "índices de Urbanização Por Região em 1950 (%)")
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg194)
+#' str(BracarensePg194)
+#'
+#' library(lattice)
+#'
+#' xyplot(Ind ~ Ano,
+#'        groups = Reg,
+#'        data = BracarensePg194,
+#'        type = "o",
+#'        auto.key = list(corner = c(0.05, 0.95),
+#'                        title = "Regiões",
+#'                        cex.title = 1.1),
+#'        xlab = "Anos",
+#'        ylab = "Índice de urbanização")
+#'
+NULL
diff --git a/R/BracarensePg205.R b/R/BracarensePg205.R
index b77a8bb794d52d100050a246908fa94e4ddc6bf5..494ea4ebdcc1b61900fc1a5e5790e2e99f1a1bea 100644
--- a/R/BracarensePg205.R
+++ b/R/BracarensePg205.R
@@ -1,23 +1,37 @@
 #' @name BracarensePg205
 #' @title Índices de Desenvolvimento Humano
-#' @description Valor do IDH dos 20 países com maiores índices
+#' @description Valor do IDH dos 20 países com maiores índices.
 #' @format Um \code{data.frame} com 20 linhas e 2 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{Pais}}{Nomes dos Países.}
-#' \item{\code{IDH}}{índice de desenvolvimento humano.}
-#' 
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 205.
+#' @source BRACARENSE (2009), exemplo página 205.
 #' @examples
-#' 
-#' boxplot(BracarensePg205$IDH, 
-#'     col = "pink", 
-#'     main = "Índice de Desenvolvimento Humano (20 Países)")
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg205)
+#' str(BracarensePg205)
+#'
+#' boxplot(BracarensePg205$IDH,
+#'         col = "pink",
+#'         ylab = "Índice de Desenvolvimento Humano (20 Países)")
+#' rug(BracarensePg205$IDH, side = 2)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg205,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (20 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL
diff --git a/R/BracarensePg206.R b/R/BracarensePg206.R
index 8c50a27e3f65a2dda2826aabd620414e9403ff00..643ad786e675a6c4b1757db4be32025b4e8915b4 100644
--- a/R/BracarensePg206.R
+++ b/R/BracarensePg206.R
@@ -1,24 +1,32 @@
 #' @name BracarensePg206
 #' @title Índices de Desenvolvimento Humano
-#' @description Valor do IDH dos 10 países com os menores índices
+#' @description Valor do IDH dos 10 países com os menores índices.
 #' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{Pais}}{Nomes dos Países.}
-#' \item{\code{IDH}}{índice de desenvolvimento humano.}
-#' 
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 206.
+#' @source BRACARENSE (2009), exemplo página 206.
 #' @examples
-#' 
-#' boxplot(BracarensePg206$IDH, 
-#'     col = "pink", 
-#'     main = "Índice de Desenvolvimento Humano (10 Países)")
-#'     
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg206)
+#' str(BracarensePg206)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg206,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (10 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL
diff --git a/R/BracarensePg207.R b/R/BracarensePg207.R
index abb0480f16006b4c987c6af991d82c179546034f..2fe3591e81fdaced301137ee74adfb409ccabfaa 100644
--- a/R/BracarensePg207.R
+++ b/R/BracarensePg207.R
@@ -1,25 +1,33 @@
 #' @name BracarensePg207
 #' @title Índices de Gini
-#' @description Valor do índice de Gini dos 10 Países com Pior 
-#'     Distribuição de Renda
+#' @description Valor do índice de Gini dos 10 Países com pior
+#'     distribuição de renda.
 #' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{Pais}}{Nomes dos Países.}
-#' \item{\code{Ind}}{índice de Gini.}
-#' 
+#'
+#' \item{\code{Ind}}{Índice de Gini.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 207.
+#' @source BRACARENSE (2009), exemplo página 207.
 #' @examples
-#' 
-#' boxplot(BracarensePg207$Ind, 
-#'     col = "pink", 
-#'     main = "Índice de Gini (10 Países)")
-#'     
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg207)
+#' str(BracarensePg207)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, Ind) ~ Ind,
+#'         data = BracarensePg207,
+#'         pch = 19,
+#'         xlab = "Índice de Gini") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.1f", x),
+#'                      pos = 4))
+#'
+NULL
diff --git a/man/BracarensePg189.Rd b/man/BracarensePg189.Rd
index e246590df9acf2dd68c467877584a05d1024cbf6..3a65c2ecbe1867948feb0226c5f21e023969ec4d 100644
--- a/man/BracarensePg189.Rd
+++ b/man/BracarensePg189.Rd
@@ -2,32 +2,45 @@
 % Please edit documentation in R/BracarensePg189.R
 \name{BracarensePg189}
 \alias{BracarensePg189}
-\title{Razão de Sexo}
+\title{Razão de Sexo um Unidades Regiões do Brasil}
 \format{Um \code{data.frame} com 12 linhas e 4 colunas em que:
 
 \describe{
 
 \item{\code{UF}}{Unidades da Federação.}
-\item{\code{60a}}{60 anos ou mais.}
+
+\item{\code{60a}}{60 anos ou mais TODO o que? é a proporção de mulheres?.}
+
 \item{\code{65a}}{65 anos ou mais.}
+
 \item{\code{70a}}{70 anos ou mais.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 189.
+BRACARENSE (2009), exemplo página 189.
 }
 \description{
-Razão de sexo das pesoas de 60, 65 e 70 anos ou mais de 
-    idade, segundo a Região Nordeste, Unidades da Federação e Regiões
-    metropolitanas. (2006)
+Razão entre os sexos das pessoas de 60, 65 e 70 anos ou
+    mais de idade, segundo a Região Nordeste, Unidades da Federação e
+    Regiões metropolitanas em 2006.
 }
 \examples{
 
-barplot(BracarensePg189$X60a[1:5], 
-    names.arg = BracarensePg189$UF[1:5],
-    ylim = c(0, 100), col = "yellow", 
-    main = "Razão de sexo de pessoas de 60 anos ou mais")
-    
+data(BracarensePg189)
+str(BracarensePg189)
+
+barplot(BracarensePg189$X60a[1:5],
+        names.arg = BracarensePg189$UF[1:5],
+        ylim = c(0, 100),
+        col = "yellow",
+        main = "Razão de sexo de pessoas de 60 anos ou mais")
+
+library(lattice)
+
+barchart(X60a + X65a + X70a ~ UF,
+         data = BracarensePg189,
+         auto.key = list(columns = 3))
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg194.Rd b/man/BracarensePg194.Rd
index 9aee05c705da0bd4da15e0b87d91919a42396d74..b1c29a0eec5c85955dce03699033bb040954edff 100644
--- a/man/BracarensePg194.Rd
+++ b/man/BracarensePg194.Rd
@@ -7,26 +7,37 @@
 
 \describe{
 
-\item{\code{Reg}}{Região Brasileira.}
-\item{\code{Ano}}{Ano da observação.}
-\item{\code{Ind}}{Índice de Urbanização.}
+\item{\code{Reg}}{Regiões do Brasil.}
+
+\item{\code{Ano}}{Ano em que o índice foi registrado.}
+
+\item{\code{Ind}}{Índice de urbanização.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 194.
+BRACARENSE (2009), exemplo página 194.
 }
 \description{
-Índices de Urbanização por região no Brasil nos anos 1950, 
-    1970 e 2000.
+Índices de Urbanização por região no Brasil nos anos
+    1950, 1970 e 2000.
 }
 \examples{
 
-barplot(c(BracarensePg194$Ind[1:5]), 
-    names.arg = BracarensePg194$Reg[1:5], 
-    ylim = c(0, 50), col = rainbow(5), 
-    main = "índices de Urbanização Por Região em 1950 (\%)")
-    
-    
+data(BracarensePg194)
+str(BracarensePg194)
+
+library(lattice)
+
+xyplot(Ind ~ Ano,
+       groups = Reg,
+       data = BracarensePg194,
+       type = "o",
+       auto.key = list(corner = c(0.05, 0.95),
+                       title = "Regiões",
+                       cex.title = 1.1),
+       xlab = "Anos",
+       ylab = "Índice de urbanização")
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg205.Rd b/man/BracarensePg205.Rd
index 7c2a4fff06de4ceac084eed99340caec7b8ce447..f00cdb4da9b30193b5f854576c6b738e4f6e0067 100644
--- a/man/BracarensePg205.Rd
+++ b/man/BracarensePg205.Rd
@@ -8,22 +8,38 @@
 \describe{
 
 \item{\code{Pais}}{Nomes dos Países.}
-\item{\code{IDH}}{índice de desenvolvimento humano.}
+
+\item{\code{IDH}}{Índice de desenvolvimento humano.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 205.
+BRACARENSE (2009), exemplo página 205.
 }
 \description{
-Valor do IDH dos 20 países com maiores índices
+Valor do IDH dos 20 países com maiores índices.
 }
 \examples{
 
-boxplot(BracarensePg205$IDH, 
-    col = "pink", 
-    main = "Índice de Desenvolvimento Humano (20 Países)")
-    
-    
+data(BracarensePg205)
+str(BracarensePg205)
+
+boxplot(BracarensePg205$IDH,
+        col = "pink",
+        ylab = "Índice de Desenvolvimento Humano (20 Países)")
+rug(BracarensePg205$IDH, side = 2)
+
+library(lattice)
+library(latticeExtra)
+
+dotplot(reorder(Pais, IDH) ~ IDH,
+        data = BracarensePg205,
+        pch = 19,
+        xlab = "Índice de Desenvolvimento Humano (20 Países)") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.3f", x),
+                     pos = 4))
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg206.Rd b/man/BracarensePg206.Rd
index 991acf4d22feae0873723e7d0adc605f11e821ae..e95a1b5a4cd1b8c4248d99179d77b59ed9b1dd0d 100644
--- a/man/BracarensePg206.Rd
+++ b/man/BracarensePg206.Rd
@@ -8,23 +8,33 @@
 \describe{
 
 \item{\code{Pais}}{Nomes dos Países.}
-\item{\code{IDH}}{índice de desenvolvimento humano.}
+
+\item{\code{IDH}}{Índice de desenvolvimento humano.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 206.
+BRACARENSE (2009), exemplo página 206.
 }
 \description{
-Valor do IDH dos 10 países com os menores índices
+Valor do IDH dos 10 países com os menores índices.
 }
 \examples{
 
-boxplot(BracarensePg206$IDH, 
-    col = "pink", 
-    main = "Índice de Desenvolvimento Humano (10 Países)")
-    
-    
-    
+data(BracarensePg206)
+str(BracarensePg206)
+
+library(lattice)
+library(latticeExtra)
+
+dotplot(reorder(Pais, IDH) ~ IDH,
+        data = BracarensePg206,
+        pch = 19,
+        xlab = "Índice de Desenvolvimento Humano (10 Países)") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.3f", x),
+                     pos = 4))
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg207.Rd b/man/BracarensePg207.Rd
index de69d14e1f9f6c29c079926151bb0fd417145d29..dfcf6b7b89f1933c2c7b94a4951e8dba06931b37 100644
--- a/man/BracarensePg207.Rd
+++ b/man/BracarensePg207.Rd
@@ -8,24 +8,34 @@
 \describe{
 
 \item{\code{Pais}}{Nomes dos Países.}
-\item{\code{Ind}}{índice de Gini.}
+
+\item{\code{Ind}}{Índice de Gini.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 207.
+BRACARENSE (2009), exemplo página 207.
 }
 \description{
-Valor do índice de Gini dos 10 Países com Pior 
-    Distribuição de Renda
+Valor do índice de Gini dos 10 Países com pior
+    distribuição de renda.
 }
 \examples{
 
-boxplot(BracarensePg207$Ind, 
-    col = "pink", 
-    main = "Índice de Gini (10 Países)")
-    
-    
-    
+data(BracarensePg207)
+str(BracarensePg207)
+
+library(lattice)
+library(latticeExtra)
+
+dotplot(reorder(Pais, Ind) ~ Ind,
+        data = BracarensePg207,
+        pch = 19,
+        xlab = "Índice de Gini") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.1f", x),
+                     pos = 4))
+
 }
 \keyword{básica}
 \keyword{estatística}