diff --git a/R/SliwianyTb2.R b/R/SliwianyTb2.R
index 7164f98936e062ff6039780121c52a8f5e0a9037..9a13d21e4968de4cb6fafa127ee2c19381722e1f 100644
--- a/R/SliwianyTb2.R
+++ b/R/SliwianyTb2.R
@@ -19,4 +19,11 @@
 #' 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")
+#'
+#'
 NULL
\ No newline at end of file
diff --git a/R/SliwianyTb4.R b/R/SliwianyTb4.R
index e1df744a76d76cf912b14a73d60f31cd41a8c777..f479608db7bf18f8c195820503fbc90b4c27685f 100644
--- a/R/SliwianyTb4.R
+++ b/R/SliwianyTb4.R
@@ -13,6 +13,13 @@
 #' @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)
-
+#' 
+#' @example 
+#' 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))
 #'
 NULL
\ No newline at end of file