diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R
index f95bc90624b6bdbf694f70f7cf71d03f9f44abff..6fb418ccc91fb69cf376c24ab35cf1ab9c4422d3 100644
--- a/R/BracarensePg27.R
+++ b/R/BracarensePg27.R
@@ -3,22 +3,33 @@
#' @description Relação dos funcionários constando sexo, idade, salário
#' e setor.
#' @format Um \code{data.frame} com 40 linhas e 4 colunas, em que
-#' \describe{
-#'
-#' \item{\code{oper}}{Setor operacional.}
-#' \item{\code{aux adm}}{Auxiliar administrativo.}
-#' \item{\code{tec}}{Setor técnico}
-#' \item{\code{adm}}{Setor Administrativo.}
-#' \item{\code{ger}}{Gerência}
-#'
+#'
+#' \describe{
+#'
+#' \item{\code{Sexo}}{Sexo do trabalhador.}
+#'
+#' \item{\code{Idade}}{Idade do trabalhador, em anos.}
+#'
+#' \item{\code{Salario}}{Salário recebido.}
+#'
+#' \item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
+#' \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
+#' \code{adm} - administrativo, \code{ger} - gerência.}
+#'
#' }
-#'
+#'
#' @keywords estatística básica
-#' @source BRACARENSE(2009), exemplo pág. 27.
+#' @source BRACARENSE (2009), exemplo página 27.
#' @examples
-#'
+#'
+#' data(BracarensePg27)
+#' str(BracarensePg27)
+#'
+#' tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
+#' mosaicplot(tb)
+#'
#' library(lattice)
-#' xyplot(Setor ~ Idade | Sexo, data = BracarensePg27)
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
+#'
+NULL
diff --git a/R/BracarensePg41.R b/R/BracarensePg41.R
index a632c63e87f7845f4ef456c30999a953de8c9180..2655db9fcec6a56e8eea815f289138d1499ee643 100644
--- a/R/BracarensePg41.R
+++ b/R/BracarensePg41.R
@@ -3,12 +3,19 @@
#' @description Os dados a seguir são relativos ao peso, ao nascer (em
#' gramas), de recém nascidos com síndrome de desconforto idiopático
#' grave.
-#' @format Um \code{vetor} com 50 entradas
+#' @format Um \code{vetor} com 50 valores de peso em gramas.
#' @keywords sociometria
-#' @source BRACARENSE(2009), Exercício 1, pág. 41.
+#' @source BRACARENSE (2009), Exercício 1, página 41.
#' @examples
-#'
-#' plot(BracarensePg41, col= rainbow(50))
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg41)
+#' str(BracarensePg41)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg41) + layer(panel.rug(x)),
+#' densityplot(~BracarensePg41, plot.points = "rug"),
+#' ecdfplot(~BracarensePg41), layout = c(NA, 1))
+#'
+NULL
diff --git a/R/BracarensePg43.R b/R/BracarensePg43.R
index c18328e277e2c843912a7192398ccfaa1d640975..dc9f0128cfd116185717aa0660d98f5c318ba567 100644
--- a/R/BracarensePg43.R
+++ b/R/BracarensePg43.R
@@ -1,30 +1,64 @@
#' @name BracarensePg43
#' @title Pessoas Condenadas Por Embriaguez
-#' @description Os dados a seguir foram publicados pela Unidade de
-#' Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
-#' mostra o número de pessoas condenadas por embriaguez nos tribunais
-#' de Tower Bridge e Lambeth, Londres, durante 6 meses, de primeiro
-#' de janeiro a 27 de junho de 1970, classificados segundo idade e sexo.
+#' @description Os dados a seguir foram publicados pela Unidade de
+#' Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
+#' mostra o número de pessoas condenadas por embriaguez nos
+#' tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
+#' primeiro de janeiro a 27 de junho de 1970, classificados segundo
+#' idade e sexo.
#' @format Um \code{data.frame} com 5 linhas e 3 colunas, em que
-#' \describe{
+#'
+#' \describe{
#'
#' \item{\code{NH}}{Número de Homens.}
+#'
#' \item{\code{NM}}{Número de Mulheres.}
-#'
+#'
#' }
-#'
+#'
#' @keywords estatística básica
-#' @source BRACARENSE(2009), Exercício 2, pág. 43.
+#' @source BRACARENSE(2009), Exercício 2, página 43.
#' @examples
-#'
-#' soma <- sum(BracarensePg43$NH)
-#'
-#' dados <- BracarensePg43$NH/soma*100
-#'
-#' barplot(dados, names.arg = BracarensePg43$Idade,
-#' col = "red",
-#' ylim = c(0, 30),
-#' main = "Porcentagem de Homens Condenados por Embriaguez por Idade")
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg43)
+#' str(BracarensePg43)
+#' levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
+#'
+#' tb <- as.matrix(BracarensePg43[, -1])
+#' rownames(tb) <- BracarensePg43[, 1]
+#'
+#' mosaicplot(tb, main = NULL)
+#'
+#' barplot(tb,
+#' beside = TRUE,
+#' ylab = "Número de pessoas condenados por embriaguez")
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' desloc <- function(x, groups, box.ratio, subscripts) {
+#' d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
+#' g <- (as.numeric(groups[subscripts]) - 1)
+#' g <- (g - median(g)) * d
+#' return(as.integer(x[subscripts]) + g)
+#' }
+#'
+#' barchart(tb,
+#' stack = FALSE,
+#' horizontal = FALSE,
+#' ylab = "Número de pessoas condenados por embriaguez") +
+#' layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#' y = y,
+#' label = y,
+#' pos = 3))
+#'
+#' barchart(t(tb),
+#' stack = FALSE,
+#' horizontal = FALSE,
+#' ylab = "Número de pessoas condenados por embriaguez") +
+#' layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+#' y = y,
+#' label = y,
+#' pos = 3))
+#'
+NULL
diff --git a/R/BracarensePg44.R b/R/BracarensePg44.R
index 5a20114df575d2a6b0f9974f74755295f56caa1c..ca28bd338c18e34cc6170027abe97c3e78e7bbbf 100644
--- a/R/BracarensePg44.R
+++ b/R/BracarensePg44.R
@@ -3,12 +3,19 @@
#' @description Os dados a seguir são de altura (em centímetros) de uma
#' amostra de 351 mulheres idosas selecionadas aleatoriamente de uma
#' comunidade para um estudo de osteoporose.
-#' @format Um \code{vetor} com 351 entradas.
+#' @format Um \code{vetor} com 351 valures de altura, em cm.
#' @keywords sociometria
-#' @source BRACARENSE(2009), Exercício 3, pág. 44.
+#' @source BRACARENSE (2009), Exercício 3, página 44.
#' @examples
-#'
-#' plot(BracarensePg44, ylab = "Altura")
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' data(BracarensePg44)
+#' str(BracarensePg44)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' c(histogram(~BracarensePg44) + layer(panel.rug(x)),
+#' densityplot(~BracarensePg44, plot.points = "rug"),
+#' ecdfplot(~BracarensePg44), layout = c(NA, 1))
+#'
+NULL
diff --git a/man/BracarensePg27.Rd b/man/BracarensePg27.Rd
index b1a141d3dcbb0c56f73f0c1a5920a4b859f7580a..8d024bce039b11780051317433b2092faab25f67 100644
--- a/man/BracarensePg27.Rd
+++ b/man/BracarensePg27.Rd
@@ -4,17 +4,22 @@
\alias{BracarensePg27}
\title{Relação dos Funcionários de uma Empresa Imaginária}
\format{Um \code{data.frame} com 40 linhas e 4 colunas, em que
- \describe{
-\item{\code{oper}}{Setor operacional.}
-\item{\code{aux adm}}{Auxiliar administrativo.}
-\item{\code{tec}}{Setor técnico}
-\item{\code{adm}}{Setor Administrativo.}
-\item{\code{ger}}{Gerência}
+\describe{
+
+\item{\code{Sexo}}{Sexo do trabalhador.}
+
+\item{\code{Idade}}{Idade do trabalhador, em anos.}
+
+\item{\code{Salario}}{Salário recebido.}
+
+\item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
+ \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
+ \code{adm} - administrativo, \code{ger} - gerência.}
}}
\source{
-BRACARENSE(2009), exemplo pág. 27.
+BRACARENSE (2009), exemplo página 27.
}
\description{
Relação dos funcionários constando sexo, idade, salário
@@ -22,10 +27,16 @@ Relação dos funcionários constando sexo, idade, salário
}
\examples{
+data(BracarensePg27)
+str(BracarensePg27)
+
+tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
+mosaicplot(tb)
+
library(lattice)
-xyplot(Setor ~ Idade | Sexo, data = BracarensePg27)
-
+xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
+
}
\keyword{básica}
\keyword{estatística}
diff --git a/man/BracarensePg41.Rd b/man/BracarensePg41.Rd
index 53b84598d4d29054b59ce2b0b3fb3f51e45b793a..f35a147cd8b2f8819275b3797d1adad3c5bff736 100644
--- a/man/BracarensePg41.Rd
+++ b/man/BracarensePg41.Rd
@@ -3,9 +3,9 @@
\name{BracarensePg41}
\alias{BracarensePg41}
\title{Peso de Recém Nascidos}
-\format{Um \code{vetor} com 50 entradas}
+\format{Um \code{vetor} com 50 valores de peso em gramas.}
\source{
-BRACARENSE(2009), Exercício 1, pág. 41.
+BRACARENSE (2009), Exercício 1, página 41.
}
\description{
Os dados a seguir são relativos ao peso, ao nascer (em
@@ -14,8 +14,15 @@ Os dados a seguir são relativos ao peso, ao nascer (em
}
\examples{
-plot(BracarensePg41, col= rainbow(50))
+data(BracarensePg41)
+str(BracarensePg41)
+library(lattice)
+library(latticeExtra)
+
+c(histogram(~BracarensePg41) + layer(panel.rug(x)),
+ densityplot(~BracarensePg41, plot.points = "rug"),
+ ecdfplot(~BracarensePg41), layout = c(NA, 1))
}
\keyword{sociometria}
diff --git a/man/BracarensePg43.Rd b/man/BracarensePg43.Rd
index 205222bb5472bed16120bbdc1872a2eb32ac1450..b7d31561ce314a5b4b432386acd02178609b3d58 100644
--- a/man/BracarensePg43.Rd
+++ b/man/BracarensePg43.Rd
@@ -4,34 +4,68 @@
\alias{BracarensePg43}
\title{Pessoas Condenadas Por Embriaguez}
\format{Um \code{data.frame} com 5 linhas e 3 colunas, em que
- \describe{
+
+\describe{
\item{\code{NH}}{Número de Homens.}
+
\item{\code{NM}}{Número de Mulheres.}
}}
\source{
-BRACARENSE(2009), Exercício 2, pág. 43.
+BRACARENSE(2009), Exercício 2, página 43.
}
\description{
-Os dados a seguir foram publicados pela Unidade de
- Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
- mostra o número de pessoas condenadas por embriaguez nos tribunais
- de Tower Bridge e Lambeth, Londres, durante 6 meses, de primeiro
- de janeiro a 27 de junho de 1970, classificados segundo idade e sexo.
+Os dados a seguir foram publicados pela Unidade de
+ Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
+ mostra o número de pessoas condenadas por embriaguez nos
+ tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
+ primeiro de janeiro a 27 de junho de 1970, classificados segundo
+ idade e sexo.
}
\examples{
-soma <- sum(BracarensePg43$NH)
+data(BracarensePg43)
+str(BracarensePg43)
+levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
+
+tb <- as.matrix(BracarensePg43[, -1])
+rownames(tb) <- BracarensePg43[, 1]
+
+mosaicplot(tb, main = NULL)
+
+barplot(tb,
+ beside = TRUE,
+ ylab = "Número de pessoas condenados por embriaguez")
+
+library(lattice)
+library(latticeExtra)
+
+desloc <- function(x, groups, box.ratio, subscripts) {
+ d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
+ g <- (as.numeric(groups[subscripts]) - 1)
+ g <- (g - median(g)) * d
+ return(as.integer(x[subscripts]) + g)
+}
+
+barchart(tb,
+ stack = FALSE,
+ horizontal = FALSE,
+ ylab = "Número de pessoas condenados por embriaguez") +
+ layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+ y = y,
+ label = y,
+ pos = 3))
-dados <- BracarensePg43$NH/soma*100
+barchart(t(tb),
+ stack = FALSE,
+ horizontal = FALSE,
+ ylab = "Número de pessoas condenados por embriaguez") +
+ layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
+ y = y,
+ label = y,
+ pos = 3))
-barplot(dados, names.arg = BracarensePg43$Idade,
- col = "red",
- ylim = c(0, 30),
- main = "Porcentagem de Homens Condenados por Embriaguez por Idade")
-
-
}
\keyword{básica}
\keyword{estatística}
diff --git a/man/BracarensePg44.Rd b/man/BracarensePg44.Rd
index 782bdad0dec667bf32fd183e043cd8c69e7c9b11..3b4bb3998b6666bc2ccca9723f956e33a1e9c0c7 100644
--- a/man/BracarensePg44.Rd
+++ b/man/BracarensePg44.Rd
@@ -3,9 +3,9 @@
\name{BracarensePg44}
\alias{BracarensePg44}
\title{Altura de Mulheres Idosas}
-\format{Um \code{vetor} com 351 entradas.}
+\format{Um \code{vetor} com 351 valures de altura, em cm.}
\source{
-BRACARENSE(2009), Exercício 3, pág. 44.
+BRACARENSE (2009), Exercício 3, página 44.
}
\description{
Os dados a seguir são de altura (em centímetros) de uma
@@ -14,9 +14,16 @@ Os dados a seguir são de altura (em centímetros) de uma
}
\examples{
-plot(BracarensePg44, ylab = "Altura")
-
-
+data(BracarensePg44)
+str(BracarensePg44)
+
+library(lattice)
+library(latticeExtra)
+
+c(histogram(~BracarensePg44) + layer(panel.rug(x)),
+ densityplot(~BracarensePg44, plot.points = "rug"),
+ ecdfplot(~BracarensePg44), layout = c(NA, 1))
+
}
\keyword{sociometria}