From 0814d20fc0a41c2919ea14ca5cc0b1afb71d40ec Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 2 Nov 2016 17:08:12 -0200
Subject: [PATCH] =?UTF-8?q?Faz=20corre=C3=A7oes=20na=20documentacao.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/BracarensePg189.R    | 45 ++++++++++++++++++++++++++----------------
 R/BracarensePg194.R    | 45 +++++++++++++++++++++++++-----------------
 R/BracarensePg205.R    | 42 ++++++++++++++++++++++++++-------------
 R/BracarensePg206.R    | 38 +++++++++++++++++++++--------------
 R/BracarensePg207.R    | 40 ++++++++++++++++++++++---------------
 man/BracarensePg189.Rd | 35 +++++++++++++++++++++-----------
 man/BracarensePg194.Rd | 35 +++++++++++++++++++++-----------
 man/BracarensePg205.Rd | 32 ++++++++++++++++++++++--------
 man/BracarensePg206.Rd | 28 +++++++++++++++++---------
 man/BracarensePg207.Rd | 30 ++++++++++++++++++----------
 10 files changed, 240 insertions(+), 130 deletions(-)

diff --git a/R/BracarensePg189.R b/R/BracarensePg189.R
index 21a666b4..e968adea 100644
--- a/R/BracarensePg189.R
+++ b/R/BracarensePg189.R
@@ -1,27 +1,38 @@
 #' @name BracarensePg189
-#' @title Razão de Sexo
-#' @description Razão de sexo das pesoas de 60, 65 e 70 anos ou mais de 
-#'     idade, segundo a Região Nordeste, Unidades da Federação e Regiões
-#'     metropolitanas. (2006)
+#' @title Razão de Sexo um Unidades Regiões do Brasil
+#' @description Razão entre os sexos das pessoas de 60, 65 e 70 anos ou
+#'     mais de idade, segundo a Região Nordeste, Unidades da Federação e
+#'     Regiões metropolitanas em 2006.
 #' @format Um \code{data.frame} com 12 linhas e 4 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{UF}}{Unidades da Federação.}
-#' \item{\code{60a}}{60 anos ou mais.}
+#'
+#' \item{\code{60a}}{60 anos ou mais TODO o que? é a proporção de mulheres?.}
+#'
 #' \item{\code{65a}}{65 anos ou mais.}
+#'
 #' \item{\code{70a}}{70 anos ou mais.}
-#' 
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 189.
+#' @source BRACARENSE (2009), exemplo página 189.
 #' @examples
-#' 
-#' barplot(BracarensePg189$X60a[1:5], 
-#'     names.arg = BracarensePg189$UF[1:5],
-#'     ylim = c(0, 100), col = "yellow", 
-#'     main = "Razão de sexo de pessoas de 60 anos ou mais")
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg189)
+#' str(BracarensePg189)
+#'
+#' barplot(BracarensePg189$X60a[1:5],
+#'         names.arg = BracarensePg189$UF[1:5],
+#'         ylim = c(0, 100),
+#'         col = "yellow",
+#'         main = "Razão de sexo de pessoas de 60 anos ou mais")
+#'
+#' library(lattice)
+#'
+#' barchart(X60a + X65a + X70a ~ UF,
+#'          data = BracarensePg189,
+#'          auto.key = list(columns = 3))
+#'
+NULL
diff --git a/R/BracarensePg194.R b/R/BracarensePg194.R
index b0e26560..f56696fc 100644
--- a/R/BracarensePg194.R
+++ b/R/BracarensePg194.R
@@ -1,26 +1,35 @@
 #' @name BracarensePg194
 #' @title Índices de Urbanização
-#' @description Índices de Urbanização por região no Brasil nos anos 1950, 
-#'     1970 e 2000.
+#' @description Índices de Urbanização por região no Brasil nos anos
+#'     1950, 1970 e 2000.
 #' @format Um \code{data.frame} com 15 linhas e 3 colunas em que:
-#' 
+#'
 #' \describe{
 #'
-#' \item{\code{Reg}}{Região Brasileira.}
-#' \item{\code{Ano}}{Ano da observação.}
-#' \item{\code{Ind}}{Índice de Urbanização.}
-#' 
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{Ano}}{Ano em que o índice foi registrado.}
+#'
+#' \item{\code{Ind}}{Índice de urbanização.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 194.
+#' @source BRACARENSE (2009), exemplo página 194.
 #' @examples
-#' 
-#' barplot(c(BracarensePg194$Ind[1:5]), 
-#'     names.arg = BracarensePg194$Reg[1:5], 
-#'     ylim = c(0, 50), col = rainbow(5), 
-#'     main = "índices de Urbanização Por Região em 1950 (%)")
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg194)
+#' str(BracarensePg194)
+#'
+#' library(lattice)
+#'
+#' xyplot(Ind ~ Ano,
+#'        groups = Reg,
+#'        data = BracarensePg194,
+#'        type = "o",
+#'        auto.key = list(corner = c(0.05, 0.95),
+#'                        title = "Regiões",
+#'                        cex.title = 1.1),
+#'        xlab = "Anos",
+#'        ylab = "Índice de urbanização")
+#'
+NULL
diff --git a/R/BracarensePg205.R b/R/BracarensePg205.R
index b77a8bb7..494ea4eb 100644
--- a/R/BracarensePg205.R
+++ b/R/BracarensePg205.R
@@ -1,23 +1,37 @@
 #' @name BracarensePg205
 #' @title Índices de Desenvolvimento Humano
-#' @description Valor do IDH dos 20 países com maiores índices
+#' @description Valor do IDH dos 20 países com maiores índices.
 #' @format Um \code{data.frame} com 20 linhas e 2 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{Pais}}{Nomes dos Países.}
-#' \item{\code{IDH}}{índice de desenvolvimento humano.}
-#' 
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 205.
+#' @source BRACARENSE (2009), exemplo página 205.
 #' @examples
-#' 
-#' boxplot(BracarensePg205$IDH, 
-#'     col = "pink", 
-#'     main = "Índice de Desenvolvimento Humano (20 Países)")
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg205)
+#' str(BracarensePg205)
+#'
+#' boxplot(BracarensePg205$IDH,
+#'         col = "pink",
+#'         ylab = "Índice de Desenvolvimento Humano (20 Países)")
+#' rug(BracarensePg205$IDH, side = 2)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg205,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (20 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL
diff --git a/R/BracarensePg206.R b/R/BracarensePg206.R
index 8c50a27e..643ad786 100644
--- a/R/BracarensePg206.R
+++ b/R/BracarensePg206.R
@@ -1,24 +1,32 @@
 #' @name BracarensePg206
 #' @title Índices de Desenvolvimento Humano
-#' @description Valor do IDH dos 10 países com os menores índices
+#' @description Valor do IDH dos 10 países com os menores índices.
 #' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{Pais}}{Nomes dos Países.}
-#' \item{\code{IDH}}{índice de desenvolvimento humano.}
-#' 
+#'
+#' \item{\code{IDH}}{Índice de desenvolvimento humano.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 206.
+#' @source BRACARENSE (2009), exemplo página 206.
 #' @examples
-#' 
-#' boxplot(BracarensePg206$IDH, 
-#'     col = "pink", 
-#'     main = "Índice de Desenvolvimento Humano (10 Países)")
-#'     
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg206)
+#' str(BracarensePg206)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, IDH) ~ IDH,
+#'         data = BracarensePg206,
+#'         pch = 19,
+#'         xlab = "Índice de Desenvolvimento Humano (10 Países)") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.3f", x),
+#'                      pos = 4))
+#'
+NULL
diff --git a/R/BracarensePg207.R b/R/BracarensePg207.R
index abb0480f..2fe3591e 100644
--- a/R/BracarensePg207.R
+++ b/R/BracarensePg207.R
@@ -1,25 +1,33 @@
 #' @name BracarensePg207
 #' @title Índices de Gini
-#' @description Valor do índice de Gini dos 10 Países com Pior 
-#'     Distribuição de Renda
+#' @description Valor do índice de Gini dos 10 Países com pior
+#'     distribuição de renda.
 #' @format Um \code{data.frame} com 10 linhas e 2 colunas em que:
-#' 
+#'
 #' \describe{
 #'
 #' \item{\code{Pais}}{Nomes dos Países.}
-#' \item{\code{Ind}}{índice de Gini.}
-#' 
+#'
+#' \item{\code{Ind}}{Índice de Gini.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 207.
+#' @source BRACARENSE (2009), exemplo página 207.
 #' @examples
-#' 
-#' boxplot(BracarensePg207$Ind, 
-#'     col = "pink", 
-#'     main = "Índice de Gini (10 Países)")
-#'     
-#'     
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg207)
+#' str(BracarensePg207)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' dotplot(reorder(Pais, Ind) ~ Ind,
+#'         data = BracarensePg207,
+#'         pch = 19,
+#'         xlab = "Índice de Gini") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.1f", x),
+#'                      pos = 4))
+#'
+NULL
diff --git a/man/BracarensePg189.Rd b/man/BracarensePg189.Rd
index e246590d..3a65c2ec 100644
--- a/man/BracarensePg189.Rd
+++ b/man/BracarensePg189.Rd
@@ -2,32 +2,45 @@
 % Please edit documentation in R/BracarensePg189.R
 \name{BracarensePg189}
 \alias{BracarensePg189}
-\title{Razão de Sexo}
+\title{Razão de Sexo um Unidades Regiões do Brasil}
 \format{Um \code{data.frame} com 12 linhas e 4 colunas em que:
 
 \describe{
 
 \item{\code{UF}}{Unidades da Federação.}
-\item{\code{60a}}{60 anos ou mais.}
+
+\item{\code{60a}}{60 anos ou mais TODO o que? é a proporção de mulheres?.}
+
 \item{\code{65a}}{65 anos ou mais.}
+
 \item{\code{70a}}{70 anos ou mais.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 189.
+BRACARENSE (2009), exemplo página 189.
 }
 \description{
-Razão de sexo das pesoas de 60, 65 e 70 anos ou mais de 
-    idade, segundo a Região Nordeste, Unidades da Federação e Regiões
-    metropolitanas. (2006)
+Razão entre os sexos das pessoas de 60, 65 e 70 anos ou
+    mais de idade, segundo a Região Nordeste, Unidades da Federação e
+    Regiões metropolitanas em 2006.
 }
 \examples{
 
-barplot(BracarensePg189$X60a[1:5], 
-    names.arg = BracarensePg189$UF[1:5],
-    ylim = c(0, 100), col = "yellow", 
-    main = "Razão de sexo de pessoas de 60 anos ou mais")
-    
+data(BracarensePg189)
+str(BracarensePg189)
+
+barplot(BracarensePg189$X60a[1:5],
+        names.arg = BracarensePg189$UF[1:5],
+        ylim = c(0, 100),
+        col = "yellow",
+        main = "Razão de sexo de pessoas de 60 anos ou mais")
+
+library(lattice)
+
+barchart(X60a + X65a + X70a ~ UF,
+         data = BracarensePg189,
+         auto.key = list(columns = 3))
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg194.Rd b/man/BracarensePg194.Rd
index 9aee05c7..b1c29a0e 100644
--- a/man/BracarensePg194.Rd
+++ b/man/BracarensePg194.Rd
@@ -7,26 +7,37 @@
 
 \describe{
 
-\item{\code{Reg}}{Região Brasileira.}
-\item{\code{Ano}}{Ano da observação.}
-\item{\code{Ind}}{Índice de Urbanização.}
+\item{\code{Reg}}{Regiões do Brasil.}
+
+\item{\code{Ano}}{Ano em que o índice foi registrado.}
+
+\item{\code{Ind}}{Índice de urbanização.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 194.
+BRACARENSE (2009), exemplo página 194.
 }
 \description{
-Índices de Urbanização por região no Brasil nos anos 1950, 
-    1970 e 2000.
+Índices de Urbanização por região no Brasil nos anos
+    1950, 1970 e 2000.
 }
 \examples{
 
-barplot(c(BracarensePg194$Ind[1:5]), 
-    names.arg = BracarensePg194$Reg[1:5], 
-    ylim = c(0, 50), col = rainbow(5), 
-    main = "índices de Urbanização Por Região em 1950 (\%)")
-    
-    
+data(BracarensePg194)
+str(BracarensePg194)
+
+library(lattice)
+
+xyplot(Ind ~ Ano,
+       groups = Reg,
+       data = BracarensePg194,
+       type = "o",
+       auto.key = list(corner = c(0.05, 0.95),
+                       title = "Regiões",
+                       cex.title = 1.1),
+       xlab = "Anos",
+       ylab = "Índice de urbanização")
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg205.Rd b/man/BracarensePg205.Rd
index 7c2a4fff..f00cdb4d 100644
--- a/man/BracarensePg205.Rd
+++ b/man/BracarensePg205.Rd
@@ -8,22 +8,38 @@
 \describe{
 
 \item{\code{Pais}}{Nomes dos Países.}
-\item{\code{IDH}}{índice de desenvolvimento humano.}
+
+\item{\code{IDH}}{Índice de desenvolvimento humano.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 205.
+BRACARENSE (2009), exemplo página 205.
 }
 \description{
-Valor do IDH dos 20 países com maiores índices
+Valor do IDH dos 20 países com maiores índices.
 }
 \examples{
 
-boxplot(BracarensePg205$IDH, 
-    col = "pink", 
-    main = "Índice de Desenvolvimento Humano (20 Países)")
-    
-    
+data(BracarensePg205)
+str(BracarensePg205)
+
+boxplot(BracarensePg205$IDH,
+        col = "pink",
+        ylab = "Índice de Desenvolvimento Humano (20 Países)")
+rug(BracarensePg205$IDH, side = 2)
+
+library(lattice)
+library(latticeExtra)
+
+dotplot(reorder(Pais, IDH) ~ IDH,
+        data = BracarensePg205,
+        pch = 19,
+        xlab = "Índice de Desenvolvimento Humano (20 Países)") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.3f", x),
+                     pos = 4))
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg206.Rd b/man/BracarensePg206.Rd
index 991acf4d..e95a1b5a 100644
--- a/man/BracarensePg206.Rd
+++ b/man/BracarensePg206.Rd
@@ -8,23 +8,33 @@
 \describe{
 
 \item{\code{Pais}}{Nomes dos Países.}
-\item{\code{IDH}}{índice de desenvolvimento humano.}
+
+\item{\code{IDH}}{Índice de desenvolvimento humano.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 206.
+BRACARENSE (2009), exemplo página 206.
 }
 \description{
-Valor do IDH dos 10 países com os menores índices
+Valor do IDH dos 10 países com os menores índices.
 }
 \examples{
 
-boxplot(BracarensePg206$IDH, 
-    col = "pink", 
-    main = "Índice de Desenvolvimento Humano (10 Países)")
-    
-    
-    
+data(BracarensePg206)
+str(BracarensePg206)
+
+library(lattice)
+library(latticeExtra)
+
+dotplot(reorder(Pais, IDH) ~ IDH,
+        data = BracarensePg206,
+        pch = 19,
+        xlab = "Índice de Desenvolvimento Humano (10 Países)") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.3f", x),
+                     pos = 4))
+
 }
 \keyword{básica}
 \keyword{estatística}
diff --git a/man/BracarensePg207.Rd b/man/BracarensePg207.Rd
index de69d14e..dfcf6b7b 100644
--- a/man/BracarensePg207.Rd
+++ b/man/BracarensePg207.Rd
@@ -8,24 +8,34 @@
 \describe{
 
 \item{\code{Pais}}{Nomes dos Países.}
-\item{\code{Ind}}{índice de Gini.}
+
+\item{\code{Ind}}{Índice de Gini.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 207.
+BRACARENSE (2009), exemplo página 207.
 }
 \description{
-Valor do índice de Gini dos 10 Países com Pior 
-    Distribuição de Renda
+Valor do índice de Gini dos 10 Países com pior
+    distribuição de renda.
 }
 \examples{
 
-boxplot(BracarensePg207$Ind, 
-    col = "pink", 
-    main = "Índice de Gini (10 Países)")
-    
-    
-    
+data(BracarensePg207)
+str(BracarensePg207)
+
+library(lattice)
+library(latticeExtra)
+
+dotplot(reorder(Pais, Ind) ~ Ind,
+        data = BracarensePg207,
+        pch = 19,
+        xlab = "Índice de Gini") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.1f", x),
+                     pos = 4))
+
 }
 \keyword{básica}
 \keyword{estatística}
-- 
GitLab