Skip to content
Snippets Groups Projects
Commit 7886010f authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

Faz correçoes na documentacao.

parent 1a588971
No related branches found
No related tags found
1 merge request!135Maria133
Pipeline #
#' @name BracarensePg114 #' @name BracarensePg114
#' @title Intenções de Voto #' @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. #' Bahia em 2006, em diferentes datas antes da eleição.
#' @format Um \code{data.frame} com 8 linhas e 4 colunas em que: #' @format Um \code{data.frame} com 8 linhas e 4 colunas em que:
#' #'
#' \describe{ #' \describe{
#' #'
#' \item{\code{Data}}{Data de Divulgação.} #' \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
#' \item{\code{PS}}{Paulo Souto} #' voto ou do resultado final das eleições.}
#' \item{\code{JW}}{Jaques Wagner}
#' \item{\code{OC}}{Outros Candidatos}
#' #'
#' } #' \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 #' @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)]) #' dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
#' #'
#' barplot(dados, #' barplot(dados,
#' names.arg = c("Paulo Souto", "Paulo Souto", "Jaques Wagner", #' names.arg = rep(c("Paulo Souto",
#' "Jaques Wagner"), #' "Jaques Wagner"), each = 2),
#' col = c("red", "pink", "red", "pink"), #' col = rep(c("red", "pink"), times = 2),
#' main = "Intenções de Voto em 18/5, #' main = paste0("Intenções de Voto em 18/5\n",
#' Comparadas Com O Resultado Final da Eleição", #' "Comparadas com o Resultado Final da Eleições"),
#' ylim = c(0, 80), #' ylim = c(0, 80),
#' legend = c("18/5", "Resultado Oficial")) #' 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 NULL
#' @name BracarensePg177 #' @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 #' @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: #' @format Um \code{data.frame} com 27 linhas e 3 colunas em que:
#' #'
#' \describe{ #' \describe{
#' #'
#' \item{\code{Reg}}{Grande Região.} #' \item{\code{Reg}}{Região a qual pertence o estado.}
#' \item{\code{Est}}{Estado} #'
#' \item{\code{Pop}}{População} #' \item{\code{Est}}{Estado do Brasil.}
#' }
#
#' #'
#' \item{\code{Pop}}{População do Estado.}
#'
#' }
#' @keywords estatística básica #' @keywords estatística básica
#' @source BRACARENSE(2009), exemplo pág. 177. #' @source BRACARENSE (2009), exemplo página 177.
#' @examples #' @examples
#' #'
#' dados <- aggregate(Pop ~ Reg, data = BracarensePg177, #' data(BracarensePg177)
#' FUN = function(x) { c(sum = sum(x)) }) #' str(BracarensePg177)
#'
#' dados <- aggregate(Pop ~ Reg,
#' data = BracarensePg177,
#' FUN = sum)
#' dados
#' #'
#' barplot(dados$Pop/sum(dados$Pop), #' barplot(dados$Pop/sum(dados$Pop),
#' ylim = c(0, 0.50),
#' names.arg = dados$Reg, #' names.arg = dados$Reg,
#' col = rainbow(5), #' col = rainbow(5),
#' main = "Porcentagem da População Brasileira, por Região.") #' 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 NULL
#' @name BracarensePg184 #' @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 #' @description Taxa de fecundidade total por grupos de anos de estudos
#' da mulher, por regiões. #' da mulher, por regiões.
#' @format Um \code{data.frame} com 6 linhas e 5 colunas em que: #' @format Um \code{data.frame} com 6 linhas e 5 colunas em que:
#' #'
#' \describe{ #' \describe{
#' #'
#' \item{\code{Reg}}{Regiões.} #' \item{\code{Reg}}{Regiões do Brasil.}
#' \item{\code{0 - 3}}{Até 3 anos.} #'
#' \item{\code{4 - 7}}{4 a 7 anos.} #' \item{\code{de0a3}}{Até 3 anos ?? TODO até 3 anos o que?.}
#' \item{\code{8 -}}{8 anos ou mais.} #'
#' } #' \item{\code{de4a7}}{4 a 7 anos.}
# #'
#' \item{\code{de8acima}}{8 anos ou mais.}
#'
#' \item{\code{Total}}{TODO.}
#' #'
#' }
#' @keywords estatística básica #' @keywords estatística básica
#' @source BRACARENSE(2009), exemplo pág. 184. #' @source BRACARENSE (2009), exemplo página 184.
#' @examples #' @examples
#' #'
#' data(BracarensePg184)
#' str(BracarensePg184)
#'
#' names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
#'
#' barplot(BracarensePg184$Total, #' barplot(BracarensePg184$Total,
#' ylim = c(0, 3), #' ylim = c(0, 3),
#' names.arg = BracarensePg184$Reg, #' names.arg = BracarensePg184$Reg,
#' main = "Taxa de Fecundidade Por Região", #' main = "Taxa de Fecundidade Por Região",
#' col = rainbow(6)) #' 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 NULL
#' @name BracarensePg78 #' @name BracarensePg78
#' @title Notas Padronizadas #' @title Notas Padronizadas por Matéria
#' @description Notas padronizadas de um candidato, 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 #' @format Um \code{data.frame} com 24 linhas e 3 colunas, em que
#'
#' \describe{ #' \describe{
#' #'
#' \item{\code{Mate}}{Matéria.} #' \item{\code{Mate}}{Matéria.}
...@@ -9,14 +10,32 @@ ...@@ -9,14 +10,32 @@
#' } #' }
#' #'
#' @keywords estatística básica #' @keywords estatística básica
#' @source BRACARENSE(2009), exemplo pág. 78. #' @source BRACARENSE (2009), exemplo página 78.
#' @examples #' @examples
#' #'
#' medias <- aggregate(Nota ~ Mate, data = BracarensePg78, #' data(BracarensePg78)
#' FUN = function(x) { c(mean = mean(x)) }) #' 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)
#' #'
#' barplot(medias$Nota, ylim = c(0, 1000), col = rainbow(8), #' barchart(Nota ~ Mate, data = medias) +
#' names.arg = medias$Mate, main = "Notas Finais, Por Matéria.") #' 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 NULL
#' @name BracarensePg79 #' @name BracarensePg79
#' @title Peso de Recém Nascidos #' @title Peso de Recém Nascidos
#' @description Peso em gramas de 44 bebês recém nascidos em um período #' @description Peso, em gramas, de 44 bebês recém nascidos em um
#' de 24 horas em um hospital de Brisbane na Austrália. #' período de 24 horas em um hospital de Brisbane na Austrália.
#' @format Um \code{vetor} com 44 entradas. #' @format Um \code{vetor} com 44 valores de peso.
#
#'
#' @keywords estatística básica #' @keywords estatística básica
#' @source BRACARENSE(2009), atividade 1 pág. 79. #' @source BRACARENSE (2009), atividade 1, página 79.
#' @examples #' @examples
#' #'
#' mean(BracarensePg79) #' data(BracarensePg79)
#' str(BracarensePg79)
#'
#' summary(BracarensePg79)
#'
#' xlim <- extendrange(BracarensePg79, f = 0.15)
#' #'
#' boxplot(BracarensePg79, col = "pink", #' nf <- layout(mat = matrix(c(1, 2), 2, 1, byrow = TRUE),
#' main = "Peso em Gramas de Bebês Recém Nascidos") #' 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 NULL
No preview for this file type
...@@ -7,33 +7,66 @@ ...@@ -7,33 +7,66 @@
\describe{ \describe{
\item{\code{Data}}{Data de Divulgação.} \item{\code{Data}}{Data de divulgação das pesquisar de inteção de
\item{\code{PS}}{Paulo Souto} voto ou do resultado final das eleições.}
\item{\code{JW}}{Jaques Wagner}
\item{\code{OC}}{Outros Candidatos} \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{ \source{
BRACARENSE(2009), exemplo pág. 114. BRACARENSE (2009), exemplo p?gina 114.
} }
\description{ \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. Bahia em 2006, em diferentes datas antes da eleição.
} }
\examples{ \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)]) dados <- c(BracarensePg114$PS[c(1, 8)], BracarensePg114$JW[c(1, 8)])
barplot(dados, barplot(dados,
names.arg = c("Paulo Souto", "Paulo Souto", "Jaques Wagner", names.arg = rep(c("Paulo Souto",
"Jaques Wagner"), "Jaques Wagner"), each = 2),
col = c("red", "pink", "red", "pink"), col = rep(c("red", "pink"), times = 2),
main = "Intenções de Voto em 18/5, main = paste0("Intenções de Voto em 18/5\\n",
Comparadas Com O Resultado Final da Eleição", "Comparadas com o Resultado Final da Eleições"),
ylim = c(0, 80), ylim = c(0, 80),
legend = c("18/5", "Resultado Oficial")) 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{b?sica}
\keyword{estatística} \keyword{estat?stica}
...@@ -2,32 +2,56 @@ ...@@ -2,32 +2,56 @@
% Please edit documentation in R/BracarensePg177.R % Please edit documentation in R/BracarensePg177.R
\name{BracarensePg177} \name{BracarensePg177}
\alias{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: \format{Um \code{data.frame} com 27 linhas e 3 colunas em que:
\describe{ \describe{
\item{\code{Reg}}{Grande Região.} \item{\code{Reg}}{Região a qual pertence o estado.}
\item{\code{Est}}{Estado}
\item{\code{Pop}}{População} \item{\code{Est}}{Estado do Brasil.}
\item{\code{Pop}}{População do Estado.}
}} }}
\source{ \source{
BRACARENSE(2009), exemplo pág. 177. BRACARENSE (2009), exemplo página 177.
} }
\description{ \description{
População recenseada e estimada, segundo as unidades da População recenseada e estimada, segundo as unidades da
federação (2007) federação (2007).
} }
\examples{ \examples{
dados <- aggregate(Pop ~ Reg, data = BracarensePg177, data(BracarensePg177)
FUN = function(x) { c(sum = sum(x)) }) str(BracarensePg177)
dados <- aggregate(Pop ~ Reg,
data = BracarensePg177,
FUN = sum)
dados
barplot(dados$Pop/sum(dados$Pop), barplot(dados$Pop/sum(dados$Pop),
ylim = c(0, 0.50),
names.arg = dados$Reg, names.arg = dados$Reg,
col = rainbow(5), col = rainbow(5),
main = "Porcentagem da População Brasileira, por Região.") 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))
} }
\keyword{básica} \keyword{básica}
......
...@@ -2,18 +2,24 @@ ...@@ -2,18 +2,24 @@
% Please edit documentation in R/BracarensePg184.R % Please edit documentation in R/BracarensePg184.R
\name{BracarensePg184} \name{BracarensePg184}
\alias{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: \format{Um \code{data.frame} com 6 linhas e 5 colunas em que:
\describe{ \describe{
\item{\code{Reg}}{Regiões.} \item{\code{Reg}}{Regiões do Brasil.}
\item{\code{0 - 3}}{Até 3 anos.}
\item{\code{4 - 7}}{4 a 7 anos.} \item{\code{de0a3}}{Até 3 anos ?? TODO até 3 anos o que?.}
\item{\code{8 -}}{8 anos ou mais.}
\item{\code{de4a7}}{4 a 7 anos.}
\item{\code{de8acima}}{8 anos ou mais.}
\item{\code{Total}}{TODO.}
}} }}
\source{ \source{
BRACARENSE(2009), exemplo pág. 184. BRACARENSE (2009), exemplo página 184.
} }
\description{ \description{
Taxa de fecundidade total por grupos de anos de estudos Taxa de fecundidade total por grupos de anos de estudos
...@@ -21,12 +27,26 @@ 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{ \examples{
data(BracarensePg184)
str(BracarensePg184)
names(BracarensePg184)[3:5] <- c("de0a3", "de4a7", "de8acima")
barplot(BracarensePg184$Total, barplot(BracarensePg184$Total,
ylim = c(0, 3), ylim = c(0, 3),
names.arg = BracarensePg184$Reg, names.arg = BracarensePg184$Reg,
main = "Taxa de Fecundidade Por Região", main = "Taxa de Fecundidade Por Região",
col = rainbow(6)) 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{básica}
\keyword{estatística} \keyword{estatística}
......
...@@ -2,26 +2,45 @@ ...@@ -2,26 +2,45 @@
% Please edit documentation in R/BracarensePg78.R % Please edit documentation in R/BracarensePg78.R
\name{BracarensePg78} \name{BracarensePg78}
\alias{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 \format{Um \code{data.frame} com 24 linhas e 3 colunas, em que
\describe{ \describe{
\item{\code{Mate}}{Matéria.} \item{\code{Mate}}{Matéria.}
}} }}
\source{ \source{
BRACARENSE(2009), exemplo pág. 78. BRACARENSE (2009), exemplo página 78.
} }
\description{ \description{
Notas padronizadas de um candidato, por matéria. Notas padronizadas de um candidato, por matéria.
} }
\examples{ \examples{
medias <- aggregate(Nota ~ Mate, data = BracarensePg78, data(BracarensePg78)
FUN = function(x) { c(mean = mean(x)) }) 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)
barplot(medias$Nota, ylim = c(0, 1000), col = rainbow(8), barchart(Nota ~ Mate, data = medias) +
names.arg = medias$Mate, main = "Notas Finais, Por Matéria.") 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{básica}
......
...@@ -3,20 +3,43 @@ ...@@ -3,20 +3,43 @@
\name{BracarensePg79} \name{BracarensePg79}
\alias{BracarensePg79} \alias{BracarensePg79}
\title{Peso de Recém Nascidos} \title{Peso de Recém Nascidos}
\format{Um \code{vetor} com 44 entradas.} \format{Um \code{vetor} com 44 valores de peso.}
\source{ \source{
BRACARENSE(2009), atividade 1 pág. 79. BRACARENSE (2009), atividade 1, página 79.
} }
\description{ \description{
Peso em gramas de 44 bebês recém nascidos em um período Peso, em gramas, de 44 bebês recém nascidos em um
de 24 horas em um hospital de Brisbane na Austrália. período de 24 horas em um hospital de Brisbane na Austrália.
} }
\examples{ \examples{
mean(BracarensePg79) data(BracarensePg79)
str(BracarensePg79)
boxplot(BracarensePg79, col = "pink", summary(BracarensePg79)
main = "Peso em Gramas de Bebês Recém Nascidos")
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)
} }
\keyword{básica} \keyword{básica}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment