From 85afb852f70158217478bc73945a14d8659ef6e5 Mon Sep 17 00:00:00 2001
From: Maria <mariaholiveira34@gmail.com>
Date: Wed, 31 Aug 2016 17:17:12 -0300
Subject: [PATCH] =?UTF-8?q?termina=20issue=20eu=20acho=20n=C3=A9=20vamo=20?=
 =?UTF-8?q?ve?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/SliwianyTb3.R          |   2 +-
 R/SliwianyTb4.R          |  13 +++++++------
 R/SliwianyTb5.R          |  16 +++++++++-------
 data-raw/SliwianyTb3.txt |   2 +-
 data-raw/SliwianyTb5.txt |  14 +++++++-------
 data/SliwianyTb5.rda     | Bin 409 -> 399 bytes
 man/SliwianyTb2.Rd       |  18 +++++++++++++-----
 man/SliwianyTb3.Rd       |  29 +++++++++++++++++++----------
 man/SliwianyTb4.Rd       |  21 ++++++++++++++++-----
 man/SliwianyTb5.Rd       |  34 ++++++++++++++++++++++++++++++++++
 10 files changed, 107 insertions(+), 42 deletions(-)
 create mode 100644 man/SliwianyTb5.Rd

diff --git a/R/SliwianyTb3.R b/R/SliwianyTb3.R
index 30b0a5bc..aee99f8b 100644
--- a/R/SliwianyTb3.R
+++ b/R/SliwianyTb3.R
@@ -19,7 +19,7 @@
 #'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
 #'     (Tabela 3 pág. 72)
 #' 
-#' @example 
+#' @examples 
 #'     dados <- table(SliwianyTb3$TD, SliwianyTb3$DCA)
 #'     ggplot(dados, aes(x = Cap, y = value, fill = variable)) + 
 #'         geom_bar(position = 'dodge', stat = 'identity')
diff --git a/R/SliwianyTb4.R b/R/SliwianyTb4.R
index 566ff439..63755f5a 100644
--- a/R/SliwianyTb4.R
+++ b/R/SliwianyTb4.R
@@ -1,20 +1,21 @@
 #' @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 vivos.
-#' @format Data frame com 6 linhas e 2 colunas
+#' @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
 #'
 #' \describe{
 #'
-#' \item{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 4 pág. 73)
+#'     de vida e projetos sociais, Petrópolis, RJ: Vozes. (Tabela 4 pág. 73)
 #' 
-#' @example 
+#' @examples 
 #' Comparando os Coeficientes e Mortalidade Infantil em cada ano.
 #' 
 #' barplot(SliwianyTb4$Coef, names.arg = SliwianyTb4$ANO, 
diff --git a/R/SliwianyTb5.R b/R/SliwianyTb5.R
index 5b9e33fa..0cc94fe9 100644
--- a/R/SliwianyTb5.R
+++ b/R/SliwianyTb5.R
@@ -1,20 +1,22 @@
 #' @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 vivos.
-#' @format Data frame com 14 linhas e 3 colunas
+#' @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
 #'
 #' \describe{
 #'
-#' \item{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)
+#' @source Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
+#'     qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
+#'     (Tabela 5 pág. 74)
 #' 
-#' @example 
+#' @examples 
 #' linhas <- c(1, 2, 3 , 4, 7, 10)
 #' selec <- (SliwianyTb5[linhas,])
 #' barplot(selec[, 3], names.arg = selec[, 1], 
diff --git a/data-raw/SliwianyTb3.txt b/data-raw/SliwianyTb3.txt
index 9c5f7511..a76736b7 100644
--- a/data-raw/SliwianyTb3.txt
+++ b/data-raw/SliwianyTb3.txt
@@ -1,5 +1,5 @@
 Cap	TD	DCA
 Curitiba	125653	59770
-Florian�polis	26184	17544
+Florianopolis	26184	17544
 Porto Alegre	197728	164969
 TOTAL	349565	242283
diff --git a/data-raw/SliwianyTb5.txt b/data-raw/SliwianyTb5.txt
index 46c0ef36..a7a4da28 100644
--- a/data-raw/SliwianyTb5.txt
+++ b/data-raw/SliwianyTb5.txt
@@ -1,15 +1,15 @@
-Pa�s	ANO	Coef
+Pais	ANO	Coef
 EUA	1980	12.5
-Jap�o	1980	7.5
-Su�cia	1980	6.9
-Fran�a	1980	10.0
-M�xico	1978	39.4
+Japao	1980	7.5
+Suecia	1980	6.9
+Franca	1980	10.0
+Mexico	1978	39.4
 Argentina	1978	40.8
 Chile	1980	31.9
 Venezuela	1979	33.1
 Paraguai	1978	41.2
 Guatemala	1980	85.9
-Nicar�gua	1979	101.1
-Afeganist�o	1979	181.6
+Nicaragua	1979	101.1
+Afeganistao	1979	181.6
 El Salvador	1979	53.0
 Equador	1978	64.4
diff --git a/data/SliwianyTb5.rda b/data/SliwianyTb5.rda
index f03e00f84b89516e528ac40b208cf86cc70e449e..4eda015c4430d003b2d8c836ca4fef84aaeefc36 100644
GIT binary patch
literal 399
zcmb2|=3oE=w%9;#zrzLsrH}sw**PV(P7vTW%h|=SQ7zEkW2%Pe(iJ-GS2U;HVfmD)
zsm*tQ^?}qI4flrZ0tUVd2A*#iBwtqA&8vJYIp4gUeQRQ`z#>5}ZkNRwVx~4+OFT-h
zXxAQ0mzneP=vP6-5@F{V&esFhE1&AH(EX;}F-7a7=euyht25LVy5zZNUSFhhV+yDI
z+TJBzW@fo&Z0)}pcNi_1eQ$;(W4QyHSFg0*46TgLyLKI#Ju&`mT5ETI==Y9h4*r@`
z{UD;t-JVl1L0CYtkUeknwx_{m=hwawjLmCge;n{Mta|0?&?@^BvGXhRXC9VwYP<4(
zxn3kwjcLg?F6lK4_q|U9>4{E{s67ABS81ELW%WmCZ@YxMH`F^Ntb_9HkAF&f<GKH1
zl|=W&Ey9L<`-5_AY8TW<`OdVTvHaJnx%X~wTK9Rzr!U(k{r)q9&u50z<WmV7+3$qU
zPbxbfvg4tV_1fiudB$4>Spv4(rkpOlU|Sv*9{Xr&=Evqm8o#Dx$NXbBS?JdKjER8(
E03VI6=>Px#

literal 409
zcmb2|=3oE=w%9;xzrzj!cPl;@|KRB4QdH!UnkAx;mGiV&q*Fk!$;r~<^@d5w&B^L5
zUCafHJJ@6&aujg1uy{EhW)w<$dzV2j)8@aq_4(sZzxgeURcOg*xg>H?V^=1xz2+n}
zt6Qzh4!6tPxp?xYoMMS+@D1nb7xWgV1-j1eC|+S0az*&6c;IIywI-LGD?UlC*AkhZ
zeYqGtG5BKA<+Rv>O8biMDU0)d#Xe)Z!#eZC6uljXuXt;pOB0^MSYi{utZ3@$5B?t7
zy1|RmSKIBF&*g5<p_pJ>;4sbDbjOjco4ywmoz)e6S(?}Q{~GVrf_;p32`56Ujpszv
z@YSA*DHAqg{QLe@&r^qZS=;4@*t8FP7c!c<L`in%^A<Z#(SH^X`|FDZr=C7$)_LT{
zgtEVJCz>~^KECvLoxtK8_oO%VN3QLtcC0i#wQ0X;*V{<bb+?Pwl}SG~xwfe4laF|n
z&s<Mc*OzQHU$6QbzIMOlJKZMj_~(*o3Ck`tGIVY0&*<dc^`5sot9yZuF#oKxY4;}`
Pd&wVN7q;~o69WSP;iS8&

diff --git a/man/SliwianyTb2.Rd b/man/SliwianyTb2.Rd
index 1b2935ef..4ef98beb 100644
--- a/man/SliwianyTb2.Rd
+++ b/man/SliwianyTb2.Rd
@@ -4,23 +4,31 @@
 \alias{SliwianyTb2}
 \title{Índices Parciais do Nível de Vida da População Polonesa 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(%).
 }
 }}
 \source{
-Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a qualidade 
-de vida e projetos sociais, Petrópolis, RJ: Vozes. (Tabela 2 pág. 61)
+Sliwiany, Regina Maria, 1997, Sociometria: como avaliar a 
+    qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
+    (Tabela 2 pág. 61)
 }
 \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.
+}
+\examples{
+    barplot(SliwianyTb2$IC, names.arg = SliwianyTb2$TN, 
+        main = "Íncice de Crescimento 1970-1960(\%)", 
+        xlab = "Tipos de Necessidades")
+
+
 }
 \keyword{sociometria}
 
diff --git a/man/SliwianyTb3.Rd b/man/SliwianyTb3.Rd
index 04cb9eea..7c873e19 100644
--- a/man/SliwianyTb3.Rd
+++ b/man/SliwianyTb3.Rd
@@ -3,24 +3,33 @@
 \name{SliwianyTb3}
 \alias{SliwianyTb3}
 \title{Total de Domicílios e Domicílios com Abastecimento de Água}
-\format{Data frame com 4 linhas e 3 colunas
+\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}
 }}
 \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, Regina Maria, 1997, Sociometria: como avaliar a 
+    qualidade de vida e projetos sociais, Petrópolis, RJ: Vozes. 
+    (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 rede
-geral, com canalização interna.
+    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.
+}
+\examples{
+    dados <- table(SliwianyTb3$TD, SliwianyTb3$DCA)
+    ggplot(dados, aes(x = Cap, y = value, fill = variable)) + 
+        geom_bar(position = 'dodge', stat = 'identity')
+
+
+
 }
 \keyword{sociometria}
 
diff --git a/man/SliwianyTb4.Rd b/man/SliwianyTb4.Rd
index 06c63978..758633eb 100644
--- a/man/SliwianyTb4.Rd
+++ b/man/SliwianyTb4.Rd
@@ -3,20 +3,31 @@
 \name{SliwianyTb4}
 \alias{SliwianyTb4}
 \title{Coeficiente de Mortalidade Infantil em Curitiba}
-\format{Data frame com 6 linhas e 2 colunas
+\format{Um \code{data.frame} com 6 linhas e 2 colunas
 
 \describe{
 
-\item{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 4 pág. 73)
+    de vida e projetos sociais, Petrópolis, RJ: Vozes. (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 vivos.
+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))
+
 }
 \keyword{sociometria}
 
diff --git a/man/SliwianyTb5.Rd b/man/SliwianyTb5.Rd
new file mode 100644
index 00000000..e2e971b3
--- /dev/null
+++ b/man/SliwianyTb5.Rd
@@ -0,0 +1,34 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyTb5.R
+\name{SliwianyTb5}
+\alias{SliwianyTb5}
+\title{Coeficiente de Mortalidade Infantil, Segundo Alguns Países}
+\format{Um \code{Data.frame} com 14 linhas e 3 colunas
+
+\describe{
+
+\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)
+}
+\description{
+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))
+
+}
+\keyword{sociometria}
+
-- 
GitLab