Faz correçoes na documentacao.

R/BracarensePg114.R

 #' @name BracarensePg114
 #' @title Intenções de Voto
-#' @description Pesquisas de intenção de voto feitas para eleição da 
+#' @description Pesquisas de intençõeses de voto feitas para eleição da
 #'     Bahia em 2006, em diferentes datas antes da eleição.
 #' @format Um \code{data.frame} com 8 linhas e 4 colunas em que:
-#' 
+#'
 #' \describe{
 #'
-#' \item{\code{Data}}{Data de Divulgação.}
-#' \item{\code{PS}}{Paulo Souto}
-#' \item{\code{JW}}{Jaques Wagner}
-#' \item{\code{OC}}{Outros Candidatos}
-#' 
+#' \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+#'     voto ou do resultado final das eleições.}
+#'
+#' \item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+#'
+#' \item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+#'
+#' \item{\code{OC}}{Porcentagem de votos para outros candidatos.}
+#'
 #' }
-#
-#' 
-#' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 114.
+#' @keywords estat?stica b?sica
+#' @source BRACARENSE (2009), exemplo p?gina 114.
 #' @examples
-#' 
+#'
+#' data(BracarensePg114)
+#' str(BracarensePg114)
+#'
+#' # Porque algumas somas passam de 100%?
+#' rowSums(BracarensePg114[, -1])
+#'
+#' BracarensePg114$Data <- factor(BracarensePg114$Data,
+#'                                levels = as.character(BracarensePg114$Data))
+#'
 #' dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
-#' 
-#' barplot(dados, 
-#'      names.arg = c("Paulo Souto", "Paulo Souto", "Jaques Wagner", 
-#'          "Jaques Wagner"), 
-#'      col = c("red", "pink", "red", "pink"), 
-#'      main = "Intenções de Voto em 18/5, 
-#'      Comparadas Com O Resultado Final da Eleição",
-#'      ylim = c(0, 80), 
-#'      legend = c("18/5", "Resultado Oficial"))
-#'     
-NULL
\ No newline at end of file
+#'
+#' barplot(dados,
+#'         names.arg = rep(c("Paulo Souto",
+#'                           "Jaques Wagner"), each = 2),
+#'         col = rep(c("red", "pink"), times = 2),
+#'         main = paste0("Intenções de Voto em 18/5\n",
+#'                       "Comparadas com o Resultado Final da Eleições"),
+#'         ylim = c(0, 80),
+#'         legend = c("18/5", "Resultado Oficial"))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+#'
+#' barchart(~PS + JW + OC | Data,
+#'          data = BracarensePg114,
+#'          as.table = TRUE)
+#'
+#' xyplot(PS + JW + OC ~ Data,
+#'        data = BracarensePg114,
+#'        xlab = "Datas das pesquisas e resultado final",
+#'        ylab = "Proporção de votos (%)",
+#'        type = "o",
+#'        pch = 19) +
+#'     layer(panel.text(x = tapply(x, groups, tail, 1),
+#'                      y = tapply(y, groups, tail, 1),
+#'                      labels = levels(groups),
+#'                      pos = 4, cex = 1.1))
+#'
+NULL

R/BracarensePg177.R

 #' @name BracarensePg177
-#' @title População Recenseada e Estimada - 2007
+#' @title População Recenseada e Estimada em 2007
 #' @description População recenseada e estimada, segundo as unidades da
-#'     federação (2007)
+#'     federação (2007).
 #' @format Um \code{data.frame} com 27 linhas e 3 colunas em que:
-#' 
+#'
 #' \describe{
 #'
-#' \item{\code{Reg}}{Grande Região.}
-#' \item{\code{Est}}{Estado}
-#' \item{\code{Pop}}{População}
+#' \item{\code{Reg}}{Região a qual pertence o estado.}
+#'
+#' \item{\code{Est}}{Estado do Brasil.}
+#'
+#' \item{\code{Pop}}{População do Estado.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 177.
+#' @source BRACARENSE (2009), exemplo página 177.
 #' @examples
-#' 
-#' dados  <- aggregate(Pop ~ Reg,  data = BracarensePg177,
-#'                              FUN = function(x) { c(sum = sum(x)) })
-#' 
-#' barplot(dados$Pop/sum(dados$Pop), 
-#'      ylim = c(0, 0.50), 
-#'      names.arg = dados$Reg, 
-#'      col = rainbow(5), 
-#'      main = "Porcentagem da População Brasileira, por Região.")
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg177)
+#' str(BracarensePg177)
+#'
+#' dados  <- aggregate(Pop ~ Reg,
+#'                     data = BracarensePg177,
+#'                     FUN = sum)
+#' dados
+#'
+#' barplot(dados$Pop/sum(dados$Pop),
+#'         names.arg = dados$Reg,
+#'         col = rainbow(5),
+#'         main = "Porcentagem da População Brasileira por Região")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' # Gráfico de pareto da distribuição da população.
+#' barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+#'          data = BracarensePg177,
+#'          ylim = c(0, NA),
+#'          scales = list(x = list(rot = 90)),
+#'          xlab = "Estados brasileiros",
+#'          ylab = "Poporção da população total") +
+#'     layer(panel.text(x = x,
+#'                      y = y,
+#'                      labels = sprintf("%0.2f", y),
+#'                      cex = 0.8,
+#'                      adj = c(-0.25, 0.5),
+#'                      srt = 90))
+#'
+NULL

R/BracarensePg184.R

 #' @name BracarensePg184
-#' @title Taxa de Fecundidade
+#' @title Taxa de Fecundidade TODO melhorar o título
 #' @description Taxa de fecundidade total por grupos de anos de estudos
 #'     da mulher, por regiões.
 #' @format Um \code{data.frame} com 6 linhas e 5 colunas em que:
-#' 
+#'
 #' \describe{
 #'
-#' \item{\code{Reg}}{Regiões.}
-#' \item{\code{0 - 3}}{Até 3 anos.}
-#' \item{\code{4 - 7}}{4 a 7 anos.}
-#' \item{\code{8 -}}{8 anos ou mais.}
+#' \item{\code{Reg}}{Regiões do Brasil.}
+#'
+#' \item{\code{de0a3}}{Até 3 anos ?? TODO até 3 anos o que?.}
+#'
+#' \item{\code{de4a7}}{4 a 7 anos.}
+#'
+#' \item{\code{de8acima}}{8 anos ou mais.}
+#'
+#' \item{\code{Total}}{TODO.}
+#'
 #' }
-#
-#' 
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 184.
+#' @source BRACARENSE (2009), exemplo página 184.
 #' @examples
-#' 
-#' barplot(BracarensePg184$Total, 
-#'     ylim = c(0, 3), 
-#'     names.arg = BracarensePg184$Reg, 
-#'     main = "Taxa de Fecundidade Por Região", 
-#'     col = rainbow(6))
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg184)
+#' str(BracarensePg184)
+#'
+#' names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+#'
+#' barplot(BracarensePg184$Total,
+#'         ylim = c(0, 3),
+#'         names.arg = BracarensePg184$Reg,
+#'         main = "Taxa de Fecundidade Por Região",
+#'         col = rainbow(6))
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+#'          data = BracarensePg184,
+#'          auto.key = list(columns = 4),
+#'          ylab = "Taxa de fecundidade",
+#'          xlab = "Regiões")
+#'
+NULL

R/BracarensePg78.R

 #' @name BracarensePg78
-#' @title Notas Padronizadas
+#' @title Notas Padronizadas por Matéria
 #' @description Notas padronizadas de um candidato, por matéria.
 #' @format Um \code{data.frame} com 24 linhas e 3 colunas, em que
-#'  \describe{
+#'
+#' \describe{
 #'
 #' \item{\code{Mate}}{Matéria.}
 #
 #' }
-#' 
+#'
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 78.
+#' @source BRACARENSE (2009), exemplo página 78.
 #' @examples
-#' 
-#' medias <- aggregate(Nota ~ Mate,  data = BracarensePg78,
-#'     FUN = function(x) { c(mean = mean(x)) })
-#'     
-#' barplot(medias$Nota, ylim = c(0, 1000), col = rainbow(8), 
-#'      names.arg = medias$Mate, main = "Notas Finais, Por Matéria.")
-#' 
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg78)
+#' str(BracarensePg78)
+#'
+#' BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+#' levels(BracarensePg78$Mate)
+#'
+#' medias <- aggregate(Nota ~ Mate,
+#'                     data = BracarensePg78,
+#'                     FUN = mean)
+#' medias
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' barchart(Nota ~ Mate, data = medias) +
+#'     layer(panel.text(x = x, y = y, labels = y, pos = 3))
+#'
+#' xyplot(Nota ~ Serie,
+#'        groups = Mate,
+#'        data = BracarensePg78,
+#'        type = "o",
+#'        auto.key = list(space = "right",
+#'                        title = "Matéria",
+#'                        cex.title = 1.1))
+#'
+NULL

R/BracarensePg79.R

 #' @name BracarensePg79
 #' @title Peso de Recém Nascidos
-#' @description Peso em gramas de 44 bebês recém nascidos em um período
-#'     de 24 horas em um hospital de Brisbane na Austrália.
-#' @format Um \code{vetor} com 44 entradas.
-#
-#' 
+#' @description Peso, em gramas, de 44 bebês recém nascidos em um
+#'     período de 24 horas em um hospital de Brisbane na Austrália.
+#' @format Um \code{vetor} com 44 valores de peso.
 #' @keywords estatística básica
-#' @source BRACARENSE(2009), atividade 1 pág. 79.
+#' @source BRACARENSE (2009), atividade 1, página 79.
 #' @examples
-#' 
-#' mean(BracarensePg79)
-#' 
-#' boxplot(BracarensePg79, col = "pink", 
-#'     main = "Peso em Gramas de Bebês Recém Nascidos")
-#'     
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg79)
+#' str(BracarensePg79)
+#'
+#' summary(BracarensePg79)
+#'
+#' xlim <- extendrange(BracarensePg79, f = 0.15)
+#'
+#' nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+#'              height = c(1, 3))
+#' par(mar = c(1.1, 4.1, 3.1, 2.1))
+#' boxplot(BracarensePg79,
+#'         horizontal = TRUE,
+#'         col = "green1",
+#'         ylim = xlim,
+#'         axes = FALSE,
+#'         frame = FALSE)
+#' axis(side = 3)
+#' rug(BracarensePg79, side = 3, ticksize = 0.1)
+#' par(mar = c(4.1, 4.1, 1.1, 2.1))
+#' hist(BracarensePg79,
+#'      xlim = xlim,
+#'      main = NULL,
+#'      col = "pink",
+#'      xlab = "Peso de bebês recém nascidos (g)")
+#' abline(v = median(BracarensePg79), col = 4)
+#' rug(BracarensePg79, side = 1)
+#' layout(1)
+#'
+NULL

man/BracarensePg114.Rd

@@ -7,33 +7,66 @@
 
 \describe{
 
-\item{\code{Data}}{Data de Divulgação.}
-\item{\code{PS}}{Paulo Souto}
-\item{\code{JW}}{Jaques Wagner}
-\item{\code{OC}}{Outros Candidatos}
+\item{\code{Data}}{Data de divulgação das pesquisar de inteção de
+    voto ou do resultado final das eleições.}
+
+\item{\code{PS}}{Porcentagem de votos para Paulo Souto.}
+
+\item{\code{JW}}{Porcentagem de votos para Jaques Wagner.}
+
+\item{\code{OC}}{Porcentagem de votos para outros candidatos.}
 
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 114.
+BRACARENSE (2009), exemplo p?gina 114.
 }
 \description{
-Pesquisas de intenção de voto feitas para eleição da 
+Pesquisas de intençõeses de voto feitas para eleição da
     Bahia em 2006, em diferentes datas antes da eleição.
 }
 \examples{
 
+data(BracarensePg114)
+str(BracarensePg114)
+
+# Porque algumas somas passam de 100\%?
+rowSums(BracarensePg114[, -1])
+
+BracarensePg114$Data <- factor(BracarensePg114$Data,
+                               levels = as.character(BracarensePg114$Data))
+
 dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
 
-barplot(dados, 
-     names.arg = c("Paulo Souto", "Paulo Souto", "Jaques Wagner", 
-         "Jaques Wagner"), 
-     col = c("red", "pink", "red", "pink"), 
-     main = "Intenções de Voto em 18/5, 
-     Comparadas Com O Resultado Final da Eleição",
-     ylim = c(0, 80), 
-     legend = c("18/5", "Resultado Oficial"))
-    
+barplot(dados,
+        names.arg = rep(c("Paulo Souto",
+                          "Jaques Wagner"), each = 2),
+        col = rep(c("red", "pink"), times = 2),
+        main = paste0("Intenções de Voto em 18/5\\n",
+                      "Comparadas com o Resultado Final da Eleições"),
+        ylim = c(0, 80),
+        legend = c("18/5", "Resultado Oficial"))
+
+library(lattice)
+library(latticeExtra)
+
+barchart(PS + JW + OC ~ Data, data = BracarensePg114)
+
+barchart(~PS + JW + OC | Data,
+         data = BracarensePg114,
+         as.table = TRUE)
+
+xyplot(PS + JW + OC ~ Data,
+       data = BracarensePg114,
+       xlab = "Datas das pesquisas e resultado final",
+       ylab = "Proporção de votos (\%)",
+       type = "o",
+       pch = 19) +
+    layer(panel.text(x = tapply(x, groups, tail, 1),
+                     y = tapply(y, groups, tail, 1),
+                     labels = levels(groups),
+                     pos = 4, cex = 1.1))
+
 }
-\keyword{básica}
-\keyword{estatística}
+\keyword{b?sica}
+\keyword{estat?stica}
 

man/BracarensePg177.Rd

@@ -2,33 +2,57 @@
 % Please edit documentation in R/BracarensePg177.R
 \name{BracarensePg177}
 \alias{BracarensePg177}
-\title{População Recenseada e Estimada - 2007}
+\title{População Recenseada e Estimada em 2007}
 \format{Um \code{data.frame} com 27 linhas e 3 colunas em que:
 
 \describe{
 
-\item{\code{Reg}}{Grande Região.}
-\item{\code{Est}}{Estado}
-\item{\code{Pop}}{População}
+\item{\code{Reg}}{Região a qual pertence o estado.}
+
+\item{\code{Est}}{Estado do Brasil.}
+
+\item{\code{Pop}}{População do Estado.}
+
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 177.
+BRACARENSE (2009), exemplo página 177.
 }
 \description{
 População recenseada e estimada, segundo as unidades da
-    federação (2007)
+    federação (2007).
 }
 \examples{
 
-dados  <- aggregate(Pop ~ Reg,  data = BracarensePg177,
-                             FUN = function(x) { c(sum = sum(x)) })
+data(BracarensePg177)
+str(BracarensePg177)
+
+dados  <- aggregate(Pop ~ Reg,
+                    data = BracarensePg177,
+                    FUN = sum)
+dados
+
+barplot(dados$Pop/sum(dados$Pop),
+        names.arg = dados$Reg,
+        col = rainbow(5),
+        main = "Porcentagem da População Brasileira por Região")
+
+library(lattice)
+library(latticeExtra)
+
+# Gráfico de pareto da distribuição da população.
+barchart(Pop/sum(Pop) ~ reorder(Est, -Pop),
+         data = BracarensePg177,
+         ylim = c(0, NA),
+         scales = list(x = list(rot = 90)),
+         xlab = "Estados brasileiros",
+         ylab = "Poporção da população total") +
+    layer(panel.text(x = x,
+                     y = y,
+                     labels = sprintf("\%0.2f", y),
+                     cex = 0.8,
+                     adj = c(-0.25, 0.5),
+                     srt = 90))
 
-barplot(dados$Pop/sum(dados$Pop), 
-     ylim = c(0, 0.50), 
-     names.arg = dados$Reg, 
-     col = rainbow(5), 
-     main = "Porcentagem da População Brasileira, por Região.")
-    
 }
 \keyword{básica}
 \keyword{estatística}

man/BracarensePg184.Rd

@@ -2,18 +2,24 @@
 % Please edit documentation in R/BracarensePg184.R
 \name{BracarensePg184}
 \alias{BracarensePg184}
-\title{Taxa de Fecundidade}
+\title{Taxa de Fecundidade TODO melhorar o título}
 \format{Um \code{data.frame} com 6 linhas e 5 colunas em que:
 
 \describe{
 
-\item{\code{Reg}}{Regiões.}
-\item{\code{0 - 3}}{Até 3 anos.}
-\item{\code{4 - 7}}{4 a 7 anos.}
-\item{\code{8 -}}{8 anos ou mais.}
+\item{\code{Reg}}{Regiões do Brasil.}
+
+\item{\code{de0a3}}{Até 3 anos ?? TODO até 3 anos o que?.}
+
+\item{\code{de4a7}}{4 a 7 anos.}
+
+\item{\code{de8acima}}{8 anos ou mais.}
+
+\item{\code{Total}}{TODO.}
+
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 184.
+BRACARENSE (2009), exemplo página 184.
 }
 \description{
 Taxa de fecundidade total por grupos de anos de estudos
@@ -21,12 +27,26 @@ Taxa de fecundidade total por grupos de anos de estudos
 }
 \examples{
 
-barplot(BracarensePg184$Total, 
-    ylim = c(0, 3), 
-    names.arg = BracarensePg184$Reg, 
-    main = "Taxa de Fecundidade Por Região", 
-    col = rainbow(6))
-    
+data(BracarensePg184)
+str(BracarensePg184)
+
+names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
+
+barplot(BracarensePg184$Total,
+        ylim = c(0, 3),
+        names.arg = BracarensePg184$Reg,
+        main = "Taxa de Fecundidade Por Região",
+        col = rainbow(6))
+
+library(lattice)
+library(latticeExtra)
+
+barchart(de0a3 + de4a7 + de8acima + Total~ Reg,
+         data = BracarensePg184,
+         auto.key = list(columns = 4),
+         ylab = "Taxa de fecundidade",
+         xlab = "Regiões")
+
 }
 \keyword{básica}
 \keyword{estatística}

man/BracarensePg78.Rd

@@ -2,27 +2,46 @@
 % Please edit documentation in R/BracarensePg78.R
 \name{BracarensePg78}
 \alias{BracarensePg78}
-\title{Notas Padronizadas}
+\title{Notas Padronizadas por Matéria}
 \format{Um \code{data.frame} com 24 linhas e 3 colunas, em que
- \describe{
+
+\describe{
 
 \item{\code{Mate}}{Matéria.}
 }}
 \source{
-BRACARENSE(2009), exemplo pág. 78.
+BRACARENSE (2009), exemplo página 78.
 }
 \description{
 Notas padronizadas de um candidato, por matéria.
 }
 \examples{
 
-medias <- aggregate(Nota ~ Mate,  data = BracarensePg78,
-    FUN = function(x) { c(mean = mean(x)) })
-    
-barplot(medias$Nota, ylim = c(0, 1000), col = rainbow(8), 
-     names.arg = medias$Mate, main = "Notas Finais, Por Matéria.")
+data(BracarensePg78)
+str(BracarensePg78)
+
+BracarensePg78$Mate <- with(BracarensePg78, reorder(Mate, Nota))
+levels(BracarensePg78$Mate)
+
+medias <- aggregate(Nota ~ Mate,
+                    data = BracarensePg78,
+                    FUN = mean)
+medias
+
+library(lattice)
+library(latticeExtra)
+
+barchart(Nota ~ Mate, data = medias) +
+    layer(panel.text(x = x, y = y, labels = y, pos = 3))
+
+xyplot(Nota ~ Serie,
+       groups = Mate,
+       data = BracarensePg78,
+       type = "o",
+       auto.key = list(space = "right",
+                       title = "Matéria",
+                       cex.title = 1.1))
 
-    
 }
 \keyword{básica}
 \keyword{estatística}

man/BracarensePg79.Rd

@@ -3,21 +3,44 @@
 \name{BracarensePg79}
 \alias{BracarensePg79}
 \title{Peso de Recém Nascidos}
-\format{Um \code{vetor} com 44 entradas.}
+\format{Um \code{vetor} com 44 valores de peso.}
 \source{
-BRACARENSE(2009), atividade 1 pág. 79.
+BRACARENSE (2009), atividade 1, página 79.
 }
 \description{
-Peso em gramas de 44 bebês recém nascidos em um período
-    de 24 horas em um hospital de Brisbane na Austrália.
+Peso, em gramas, de 44 bebês recém nascidos em um
+    período de 24 horas em um hospital de Brisbane na Austrália.
 }
 \examples{
 
-mean(BracarensePg79)
+data(BracarensePg79)
+str(BracarensePg79)
+
+summary(BracarensePg79)
+
+xlim <- extendrange(BracarensePg79, f = 0.15)
+
+nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
+             height = c(1, 3))
+par(mar = c(1.1, 4.1, 3.1, 2.1))
+boxplot(BracarensePg79,
+        horizontal = TRUE,
+        col = "green1",
+        ylim = xlim,
+        axes = FALSE,
+        frame = FALSE)
+axis(side = 3)
+rug(BracarensePg79, side = 3, ticksize = 0.1)
+par(mar = c(4.1, 4.1, 1.1, 2.1))
+hist(BracarensePg79,
+     xlim = xlim,
+     main = NULL,
+     col = "pink",
+     xlab = "Peso de bebês recém nascidos (g)")
+abline(v = median(BracarensePg79), col = 4)
+rug(BracarensePg79, side = 1)
+layout(1)
 
-boxplot(BracarensePg79, col = "pink", 
-    main = "Peso em Gramas de Bebês Recém Nascidos")
-    
 }
 \keyword{básica}
 \keyword{estatística}