diff --git a/R/SliwianyTb2.R b/R/SliwianyTb2.R
index 9a13d21e4968de4cb6fafa127ee2c19381722e1f..2a197fdfb3433d413a4e479cf5b1b2fd4ad59af3 100644
--- a/R/SliwianyTb2.R
+++ b/R/SliwianyTb2.R
@@ -4,26 +4,28 @@
 #' @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 Data frame com 7 linhas e 7 colunas
+#' @format Um \code{data.frame} com 7 linhas e 7 colunas
 #'
 #' \describe{
 #'
-#' \item{TN}{Tipos de Necessidades}
+#' \item{\code{TN}}{Tipos de Necessidades}
 #' 
-#' \item{IC}{Índice de crescimento 1970-1960(%).
+#' \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, Regina Maria, 1997, Sociometria: como avaliar a 
+#'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
+#'     (Tabela 2 pág. 61)
 #'
 #'
-#' @example 
-#' comparando a porcentagem de crescimento de cada tipo de necessidade:
-#' barplot(SliwianyTb2$IC, names.arg = SliwianyTb2$TN, 
-#' main = "Íncice de Crescimento 1970-1960(%)", 
-#' xlab = "Tipos de Necessidades")
+#' @examples 
+#'     barplot(SliwianyTb2$IC, names.arg = SliwianyTb2$TN, 
+#'         main = "Íncice de Crescimento 1970-1960(%)", 
+#'         xlab = "Tipos de Necessidades")
 #'
 #'
 NULL
\ No newline at end of file
diff --git a/R/SliwianyTb3.R b/R/SliwianyTb3.R
index 759544200f3ad2ec52ef5a34049e1d63ea227f80..30b0a5bcb8f8bcc05ea5bc0348e5ec6fe6fe492f 100644
--- a/R/SliwianyTb3.R
+++ b/R/SliwianyTb3.R
@@ -1,26 +1,28 @@
 #' @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 rede
-#' geral, com canalização interna.
-#' @format Data frame com 4 linhas e 3 colunas
+#'     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
 #'
 #' \describe{
 #'
-#' \item{Cap}{Capitais da Região Sul}
-#' \item{TD}{Total de Domicílios}
-#' \item{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)
+#' @source Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
+#'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
+#'     (Tabela 3 pág. 72)
 #' 
 #' @example 
-#' ggplot(dados, aes(x = Cap, y = value, fill = variable)) + 
-#'     geom_bar(position = 'dodge', stat = 'identity')
+#'     dados <- table(SliwianyTb3$TD, SliwianyTb3$DCA)
+#'     ggplot(dados, aes(x = Cap, y = value, fill = variable)) + 
+#'         geom_bar(position = 'dodge', stat = 'identity')
 #' 
 #' 
 #'