diff --git a/R/SliwianyTb2.R b/R/SliwianyTb2.R
index 2a197fdfb3433d413a4e479cf5b1b2fd4ad59af3..8dd525cbeae03350dcc9626c55b8be0bcf160e2f 100644
--- a/R/SliwianyTb2.R
+++ b/R/SliwianyTb2.R
@@ -1,31 +1,31 @@
+# Maria, o check() tá dizendo que esse conjunto de dados não existe. Ou
+# seja, que o *.rda dele não está presente e de fato não está.
+
 #' @name SliwianyTb2
-#' @title Índices Parciais do Nível de Vida da População Polonesa para 1950, 
-#' 1960, 1965-66 e 1970
-#' @description índices do nível de satisfação de necessidades diversas da
-#' população polonesa com base nos medidores da ONU, definidos para 1950, 1960, 
-#' 1965-66 e 1970.
-#' @format Um \code{data.frame} com 7 linhas e 7 colunas
+#' @title Índices Parciais do Nível de Vida da População Polonesa para
+#'     1950, 1960, 1965-66 e 1970
+#' @description índices do nível de satisfação de necessidades diversas
+#'     da população polonesa com base nos medidores da ONU, definidos
+#'     para 1950, 1960, 1965-66 e 1970.
+#' @format Um \code{data.frame} com 7 linhas e 7 colunas, em que
 #'
 #' \describe{
 #'
-#' \item{\code{TN}}{Tipos de Necessidades}
-#' 
-#' \item{\code{IC}}{Índice de crescimento 1970-1960(%).
-#' }
-#' }
+#' \item{\code{TN}}{Tipos de necessidades.}
 #'
+#' \item{\code{IC}}{Índice de crescimento 1970-1960 (\%).}
 #'
-#' 
+#' }
 #' @keywords sociometria
-#' @source Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
-#'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
-#'     (Tabela 2 pág. 61)
+#' @source SLIWIANY, (1997), Tabela 2, pág. 61.
+#' @examples
 #'
+#' data(SliwianyTb2)
+#' str(SliwianyTb2)
 #'
-#' @examples 
-#'     barplot(SliwianyTb2$IC, names.arg = SliwianyTb2$TN, 
-#'         main = "Íncice de Crescimento 1970-1960(%)", 
+#' barplot(SliwianyTb2$IC,
+#'         names.arg = SliwianyTb2$TN,
+#'         main = "Íncice de Crescimento 1970-1960 (%)",
 #'         xlab = "Tipos de Necessidades")
 #'
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/SliwianyTb3.R b/R/SliwianyTb3.R
index aee99f8ba9ee3067188a72877698f0845de43796..1de87080e2ed338895a14ee1babc663da6eb7df5 100644
--- a/R/SliwianyTb3.R
+++ b/R/SliwianyTb3.R
@@ -1,29 +1,38 @@
 #' @name SliwianyTb3
 #' @title Total de Domicílios e Domicílios com Abastecimento de Água
-#' @description Total de domicílios e domicílios com abastecimento
-#'     de água, segundo capitais dos estados da Região Sul / IBGE - 
-#'     1970.Domicílios considerados "com abastecimento de água" sendo 
-#'     aqueles particulares permanentes que possuíam abastecimento de 
-#'     água servidos por redegeral, com canalização interna.
-#' @format Um \code{data.frame} com 4 linhas e 3 colunas
+#' @description Total de domicílios e domicílios com abastecimento de
+#'     água, segundo capitais dos estados da Região Sul/IBGE -
+#'     1970. Domicílios considerados "com abastecimento de água" sendo
+#'     aqueles particulares permanentes que possuíam abastecimento de
+#'     água servidos por rede geral, com canalização interna.
+#' @format Um \code{data.frame} com 4 linhas e 3 colunas, em que
 #'
 #' \describe{
 #'
-#' \item{\code{Cap}}{Capitais da Região Sul}
-#' \item{\code{TD}}{Total de Domicílios}
-#' \item{\code{DCA}}{Total de Domicílios com Abastecimento de Água}
+#' \item{\code{Cap}}{Capitais da Região Sul.}
+#'
+#' \item{\code{TD}}{Total de Domicílios.}
+#'
+#' \item{\code{DCA}}{Total de Domicílios com Abastecimento de Água.}
+#'
 #' }
-#' 
 #' @keywords sociometria
-#' @source Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
-#'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
-#'     (Tabela 3 pág. 72)
-#' 
-#' @examples 
-#'     dados <- table(SliwianyTb3$TD, SliwianyTb3$DCA)
-#'     ggplot(dados, aes(x = Cap, y = value, fill = variable)) + 
-#'         geom_bar(position = 'dodge', stat = 'identity')
-#' 
-#' 
-#'
-NULL
\ No newline at end of file
+#' @source SLIWIANY (1997), Tabela 3, pág. 72.
+#' @examples
+#'
+#' data(SliwianyTb3)
+#' str(SliwianyTb3)
+#' SliwianyTb3
+#'
+#' # Calcula a proporção.
+#' SliwianyTb3$prop <- with(SliwianyTb3, DCA/TD)
+#'
+#' # Maria, você tem que corrigir a escrita de floxianópolis.
+#' levels(SliwianyTb3$Cap)[2] <- "Florianopolis"
+#'
+#' library(ggplot2)
+#'
+#' ggplot(SliwianyTb3, aes(x = Cap, y = prop)) +
+#'     geom_bar(position = "dodge", stat = "identity")
+#'
+NULL
diff --git a/R/SliwianyTb4.R b/R/SliwianyTb4.R
index 63755f5af2683ed770422b0e9e902a06e939a7a1..a3867d9aa97a21f4efead345879e46d4fb2c98ed 100644
--- a/R/SliwianyTb4.R
+++ b/R/SliwianyTb4.R
@@ -1,27 +1,26 @@
 #' @name SliwianyTb4
 #' @title Coeficiente de Mortalidade Infantil em Curitiba
-#' @description O coeficiente de mortalidade infantil expressa o total 
-#'     de óbitos de crianças menores de um ano de idade por mil nascidos 
+#' @description O coeficiente de mortalidade infantil expressa o total
+#'     de óbitos de crianças menores de um ano de idade por mil nascidos
 #'     vivos.
-#' @format Um \code{data.frame} com 6 linhas e 2 colunas
+#' @format Um \code{data.frame} com 6 linhas e 2 colunas, em que
 #'
 #' \describe{
 #'
 #' \item{\code{Coef}}{Coeficiente por 1000 nascidos vivos}
-#' 
+#'
 #' }
-#' 
 #' @keywords sociometria
-#' @source Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a qualidade 
-#'     de vida e projetos sociais, Petrópolis, RJ: Vozes. (Tabela 4 pág. 73)
-#' 
-#' @examples 
-#' Comparando os Coeficientes e Mortalidade Infantil em cada ano.
-#' 
-#' barplot(SliwianyTb4$Coef, names.arg = SliwianyTb4$ANO, 
-#' main = "Coeficiente de Mortalidade Infantil, 
-#' por 1000 nascidos vivos, 1977 - 1982", 
-#' col = rainbow(7), 
-#' ylim = c(0, 80))
+#' @source SLIWIANY (1997), Tabela 4, pág. 73.
+#' @examples
+#'
+#' # Comparando os coeficientes e mortalidade infantil em cada ano.
+#'
+#' barplot(SliwianyTb4$Coef,
+#'         names.arg = SliwianyTb4$ANO,
+#'         main = paste("Coeficiente de Mortalidade Infantil\n",
+#'                      "por 1000 nascidos vivos, 1977 - 1982"),
+#'         col = rainbow(7),
+#'         ylim = c(0, 80))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/SliwianyTb5.R b/R/SliwianyTb5.R
index 0cc94fe93c81f35afae2ec08199ad09b430ebc11..22cfe4ccc51448fc4f8928bf6a2860f8c425cf64 100644
--- a/R/SliwianyTb5.R
+++ b/R/SliwianyTb5.R
@@ -1,28 +1,31 @@
 #' @name SliwianyTb5
 #' @title Coeficiente de Mortalidade Infantil, Segundo Alguns Países
-#' @description O coeficiente de mortalidade infantil expressa o total 
-#'     de óbitos de crianças menores de um ano de idade por mil nascidos 
+#' @description O coeficiente de mortalidade infantil expressa o total
+#'     de óbitos de crianças menores de um ano de idade por mil nascidos
 #'     vivos.
-#' @format Um \code{Data.frame} com 14 linhas e 3 colunas
+#' @format Um \code{Data.frame} com 14 linhas e 3 colunas, em que
 #'
 #' \describe{
 #'
-#' \item{\code{Coef}}{Coeficiente por 1000 nascidos vivos}
-#' 
+#' \item{\code{Coef}}{Coeficiente por 1000 nascidos vivos.}
+#'
 #' }
-#' 
 #' @keywords sociometria
-#' @source Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
-#'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
-#'     (Tabela 5 pág. 74)
-#' 
-#' @examples 
-#' linhas <- c(1, 2, 3 , 4, 7, 10)
-#' selec <- (SliwianyTb5[linhas,])
-#' barplot(selec[, 3], names.arg = selec[, 1], 
-#'      main = "Coeficiente de Mortalidade Infantil 
-#'      de Diferentes Países em 1980", 
-#'      col = rainbow(6),  
-#'      ylim = c(0, 100))
+#' @source SLIWIANY (1997), Tabela 5, pág. 74.
+#' @examples
+#'
+#' data(SliwianyTb5)
+#' str(SliwianyTb5)
+#'
+#' xtabs(~Pais + ANO, data = SliwianyTb5)
+#'
+#' linhas <- c(1, 2, 3, 4, 7, 10)
+#' selec <- (SliwianyTb5[linhas, ])
+#' barplot(selec[, 3],
+#'         names.arg = selec[, 1],
+#'         main = paste("Coeficiente de Mortalidade Infantil\n",
+#'                      "de Diferentes Países em 1980"),
+#'         col = rainbow(6),
+#'         ylim = c(0, 100))
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/man/SliwianyTb3.Rd b/man/SliwianyTb3.Rd
index 7c873e1951f8da988621d63e6794eaed08b46e28..ca5dd3ecdd79f9bb5522564bfcfff5edf20774e2 100644
--- a/man/SliwianyTb3.Rd
+++ b/man/SliwianyTb3.Rd
@@ -3,32 +3,43 @@
 \name{SliwianyTb3}
 \alias{SliwianyTb3}
 \title{Total de Domicílios e Domicílios com Abastecimento de Água}
-\format{Um \code{data.frame} com 4 linhas e 3 colunas
+\format{Um \code{data.frame} com 4 linhas e 3 colunas, em que
 
 \describe{
 
-\item{\code{Cap}}{Capitais da Região Sul}
-\item{\code{TD}}{Total de Domicílios}
-\item{\code{DCA}}{Total de Domicílios com Abastecimento de Água}
+\item{\code{Cap}}{Capitais da Região Sul.}
+
+\item{\code{TD}}{Total de Domicílios.}
+
+\item{\code{DCA}}{Total de Domicílios com Abastecimento de Água.}
+
 }}
 \source{
-Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
-    qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
-    (Tabela 3 pág. 72)
+SLIWIANY (1997), Tabela 3, pág. 72.
 }
 \description{
-Total de domicílios e domicílios com abastecimento
-    de água, segundo capitais dos estados da Região Sul / IBGE - 
-    1970.Domicílios considerados "com abastecimento de água" sendo 
-    aqueles particulares permanentes que possuíam abastecimento de 
-    água servidos por redegeral, com canalização interna.
+Total de domicílios e domicílios com abastecimento de
+    água, segundo capitais dos estados da Região Sul/IBGE -
+    1970. Domicílios considerados "com abastecimento de água" sendo
+    aqueles particulares permanentes que possuíam abastecimento de
+    água servidos por rede geral, com canalização interna.
 }
 \examples{
-    dados <- table(SliwianyTb3$TD, SliwianyTb3$DCA)
-    ggplot(dados, aes(x = Cap, y = value, fill = variable)) + 
-        geom_bar(position = 'dodge', stat = 'identity')
 
+data(SliwianyTb3)
+str(SliwianyTb3)
+SliwianyTb3
+
+# Calcula a proporção.
+SliwianyTb3$prop <- with(SliwianyTb3, DCA/TD)
+
+# Maria, você tem que corrigir a escrita de floxianópolis.
+levels(SliwianyTb3$Cap)[2] <- "Florianopolis"
+
+library(ggplot2)
 
+ggplot(SliwianyTb3, aes(x = Cap, y = prop)) +
+    geom_bar(position = "dodge", stat = "identity")
 
 }
 \keyword{sociometria}
diff --git a/man/SliwianyTb4.Rd b/man/SliwianyTb4.Rd
index 758633eb4b650c9b578aa5888a5810a67737fd55..3b02eccda8f3d63b476575462b2831be47919e0f 100644
--- a/man/SliwianyTb4.Rd
+++ b/man/SliwianyTb4.Rd
@@ -3,7 +3,7 @@
 \name{SliwianyTb4}
 \alias{SliwianyTb4}
 \title{Coeficiente de Mortalidade Infantil em Curitiba}
-\format{Um \code{data.frame} com 6 linhas e 2 colunas
+\format{Um \code{data.frame} com 6 linhas e 2 colunas, em que
 
 \describe{
 
@@ -11,22 +11,23 @@
 
 }}
 \source{
-Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a qualidade 
-    de vida e projetos sociais, Petrópolis, RJ: Vozes. (Tabela 4 pág. 73)
+SLIWIANY (1997), Tabela 4, pág. 73.
 }
 \description{
-O coeficiente de mortalidade infantil expressa o total 
-    de óbitos de crianças menores de um ano de idade por mil nascidos 
+O coeficiente de mortalidade infantil expressa o total
+    de óbitos de crianças menores de um ano de idade por mil nascidos
     vivos.
 }
 \examples{
-Comparando os Coeficientes e Mortalidade Infantil em cada ano.
 
-barplot(SliwianyTb4$Coef, names.arg = SliwianyTb4$ANO, 
-main = "Coeficiente de Mortalidade Infantil, 
-por 1000 nascidos vivos, 1977 - 1982", 
-col = rainbow(7), 
-ylim = c(0, 80))
+# Comparando os coeficientes e mortalidade infantil em cada ano.
+
+barplot(SliwianyTb4$Coef,
+        names.arg = SliwianyTb4$ANO,
+        main = paste("Coeficiente de Mortalidade Infantil\\n",
+                     "por 1000 nascidos vivos, 1977 - 1982"),
+        col = rainbow(7),
+        ylim = c(0, 80))
 
 }
 \keyword{sociometria}
diff --git a/man/SliwianyTb5.Rd b/man/SliwianyTb5.Rd
index e2e971b35a9011284f100ed76b7fbecccc0187e1..974942a44d34da0474a10e2d4db599bc49f75f2f 100644
--- a/man/SliwianyTb5.Rd
+++ b/man/SliwianyTb5.Rd
@@ -3,31 +3,36 @@
 \name{SliwianyTb5}
 \alias{SliwianyTb5}
 \title{Coeficiente de Mortalidade Infantil, Segundo Alguns Países}
-\format{Um \code{Data.frame} com 14 linhas e 3 colunas
+\format{Um \code{Data.frame} com 14 linhas e 3 colunas, em que
 
 \describe{
 
-\item{\code{Coef}}{Coeficiente por 1000 nascidos vivos}
+\item{\code{Coef}}{Coeficiente por 1000 nascidos vivos.}
 
 }}
 \source{
-Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
-    qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
-    (Tabela 5 pág. 74)
+SLIWIANY (1997), Tabela 5, pág. 74.
 }
 \description{
-O coeficiente de mortalidade infantil expressa o total 
-    de óbitos de crianças menores de um ano de idade por mil nascidos 
+O coeficiente de mortalidade infantil expressa o total
+    de óbitos de crianças menores de um ano de idade por mil nascidos
     vivos.
 }
 \examples{
-linhas <- c(1, 2, 3 , 4, 7, 10)
-selec <- (SliwianyTb5[linhas,])
-barplot(selec[, 3], names.arg = selec[, 1], 
-     main = "Coeficiente de Mortalidade Infantil 
-     de Diferentes Países em 1980", 
-     col = rainbow(6),  
-     ylim = c(0, 100))
+
+data(SliwianyTb5)
+str(SliwianyTb5)
+
+xtabs(~Pais + ANO, data = SliwianyTb5)
+
+linhas <- c(1, 2, 3, 4, 7, 10)
+selec <- (SliwianyTb5[linhas, ])
+barplot(selec[, 3],
+        names.arg = selec[, 1],
+        main = paste("Coeficiente de Mortalidade Infantil\\n",
+                     "de Diferentes Países em 1980"),
+        col = rainbow(6),
+        ylim = c(0, 100))
 
 }
 \keyword{sociometria}