From 6d3ff664be9b7cd68181045b608483c0df7b63be Mon Sep 17 00:00:00 2001
From: Maria <mariaholiveira34@gmail.com>
Date: Wed, 31 Aug 2016 16:57:29 -0300
Subject: [PATCH] =?UTF-8?q?corre=C3=A7=C3=B5es=20tb=203?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/SliwianyTb2.R | 22 ++++++++++++----------
 R/SliwianyTb3.R | 26 ++++++++++++++------------
 2 files changed, 26 insertions(+), 22 deletions(-)

diff --git a/R/SliwianyTb2.R b/R/SliwianyTb2.R
index 9a13d21e..2a197fdf 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 75954420..30b0a5bc 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')
 #' 
 #' 
 #'
-- 
GitLab