diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R new file mode 100644 index 0000000000000000000000000000000000000000..6fb418ccc91fb69cf376c24ab35cf1ab9c4422d3 --- /dev/null +++ b/R/BracarensePg27.R @@ -0,0 +1,35 @@ +#' @name BracarensePg27 +#' @title Relação dos Funcionários de uma Empresa Imaginária +#' @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{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ágina 27. +#' @examples +#' +#' data(BracarensePg27) +#' str(BracarensePg27) +#' +#' tb <- xtabs(~Setor + Sexo, data = BracarensePg27) +#' mosaicplot(tb) +#' +#' library(lattice) +#' +#' xyplot(Idade ~ Setor | Sexo, data = BracarensePg27) +#' +NULL diff --git a/R/BracarensePg41.R b/R/BracarensePg41.R new file mode 100644 index 0000000000000000000000000000000000000000..2655db9fcec6a56e8eea815f289138d1499ee643 --- /dev/null +++ b/R/BracarensePg41.R @@ -0,0 +1,21 @@ +#' @name BracarensePg41 +#' @title Peso de Recém Nascidos +#' @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 valores de peso em gramas. +#' @keywords sociometria +#' @source BRACARENSE (2009), ExercÃcio 1, página 41. +#' @examples +#' +#' 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 new file mode 100644 index 0000000000000000000000000000000000000000..dc9f0128cfd116185717aa0660d98f5c318ba567 --- /dev/null +++ b/R/BracarensePg43.R @@ -0,0 +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. +#' @format Um \code{data.frame} com 5 linhas e 3 colunas, em que +#' +#' \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ágina 43. +#' @examples +#' +#' 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 new file mode 100644 index 0000000000000000000000000000000000000000..ca28bd338c18e34cc6170027abe97c3e78e7bbbf --- /dev/null +++ b/R/BracarensePg44.R @@ -0,0 +1,21 @@ +#' @name BracarensePg44 +#' @title Altura de Mulheres Idosas +#' @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 valures de altura, em cm. +#' @keywords sociometria +#' @source BRACARENSE (2009), ExercÃcio 3, página 44. +#' @examples +#' +#' 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/data-raw/BracarensePg27.txt b/data-raw/BracarensePg27.txt new file mode 100644 index 0000000000000000000000000000000000000000..14356bee694b7b83d9b4880c0a1ea5cdcdc7cb77 --- /dev/null +++ b/data-raw/BracarensePg27.txt @@ -0,0 +1,41 @@ +Sexo Idade Salario Setor +M 49 1714 oper +M 48 1701 oper +M 64 1589 oper +F 37 1418 oper +F 42 1000 aux adm +M 40 3732 tec +F 21 1330 oper +F 33 1307 oper +M 39 1282 oper +F 42 1260 oper +F 39 975 aux adm +M 32 1256 tec +M 22 1185 tec +M 21 3535 oper +F 37 2956 aux adm +F 24 1179 adm +M 28 966 aux adm +M 32 3204 adm +M 31 881 aux adm +F 38 3080 adm +M 23 2872 tec +M 22 826 aux adm +M 46 1010 oper +F 34 708 aux adm +M 47 2960 adm +M 42 2797 tec +F 32 1001 oper +F 29 2315 adm +M 41 5572 ger +M 30 2372 tec +F 51 4829 ger +F 23 1826 adm +M 20 540 oper +F 27 489 oper +F 33 479 oper +F 22 1904 tec +M 41 659 aux adm +F 34 1827 tec +M 24 472 oper +F 20 640 aux adm diff --git a/data-raw/BracarensePg41.txt b/data-raw/BracarensePg41.txt new file mode 100644 index 0000000000000000000000000000000000000000..4e75a362b4c6033c1a0cd41c9387e05d3b14894e --- /dev/null +++ b/data-raw/BracarensePg41.txt @@ -0,0 +1,50 @@ +1030 +1050 +1100 +1130 +1175 +1185 +1225 +1230 +1262 +1295 +1300 +1310 +1410 +1500 +1550 +1575 +1600 +1680 +1715 +1720 +1720 +1750 +1760 +1770 +1820 +1890 +1930 +1940 +2015 +2040 +2090 +2200 +2200 +2270 +2750 +2400 +2440 +2500 +2550 +2560 +2570 +2600 +2700 +2730 +2830 +2950 +3005 +3160 +3400 +3640 diff --git a/data-raw/BracarensePg43.txt b/data-raw/BracarensePg43.txt new file mode 100644 index 0000000000000000000000000000000000000000..288904bb30fe3d3a1aaec1ef4edc614adb4924cf --- /dev/null +++ b/data-raw/BracarensePg43.txt @@ -0,0 +1,6 @@ +Idade NH NM +0 - 29 185 4 +30 - 39 207 13 +40 - 49 260 10 +50 - 59 180 7 +60 - 71 10 diff --git a/data-raw/BracarensePg44.txt b/data-raw/BracarensePg44.txt new file mode 100644 index 0000000000000000000000000000000000000000..b83a917fd336c99a4d52e5640f26225e36dfb458 --- /dev/null +++ b/data-raw/BracarensePg44.txt @@ -0,0 +1,351 @@ +156 +163 +169 +161 +154 +156 +163 +164 +156 +166 +177 +158 +150 +164 +159 +157 +166 +163 +153 +161 +170 +159 +170 +157 +156 +156 +153 +178 +161 +164 +158 +158 +162 +160 +150 +162 +155 +161 +158 +163 +158 +162 +163 +152 +173 +159 +154 +155 +164 +163 +164 +157 +152 +154 +173 +154 +162 +163 +163 +165 +160 +162 +155 +160 +151 +163 +160 +165 +166 +178 +153 +160 +156 +151 +165 +169 +157 +152 +164 +166 +160 +165 +163 +158 +153 +162 +163 +162 +164 +155 +155 +161 +162 +156 +169 +159 +159 +159 +158 +160 +165 +152 +157 +149 +169 +154 +146 +156 +157 +163 +166 +165 +155 +151 +157 +156 +160 +170 +158 +165 +167 +162 +153 +156 +163 +157 +147 +163 +161 +161 +153 +155 +166 +159 +157 +152 +159 +166 +160 +157 +153 +159 +156 +152 +151 +171 +162 +158 +152 +157 +162 +168 +155 +155 +155 +161 +157 +158 +153 +155 +161 +160 +160 +170 +163 +153 +159 +169 +155 +161 +156 +153 +156 +158 +164 +160 +157 +158 +157 +156 +160 +161 +167 +162 +158 +163 +147 +153 +155 +159 +156 +161 +158 +164 +163 +155 +155 +158 +165 +176 +158 +155 +150 +154 +164 +145 +153 +169 +160 +159 +159 +163 +148 +171 +158 +158 +157 +158 +168 +161 +165 +167 +158 +158 +161 +160 +163 +163 +169 +163 +164 +150 +154 +165 +158 +161 +156 +171 +163 +170 +154 +158 +162 +164 +158 +165 +158 +156 +162 +160 +164 +165 +157 +167 +142 +166 +163 +163 +151 +163 +153 +157 +159 +152 +169 +154 +155 +167 +164 +170 +174 +155 +157 +170 +159 +170 +155 +168 +152 +165 +158 +162 +173 +154 +167 +158 +159 +152 +158 +167 +164 +170 +164 +166 +170 +160 +148 +168 +151 +153 +150 +165 +165 +147 +162 +165 +158 +145 +150 +164 +161 +157 +163 +166 +162 +163 +160 +162 +153 +168 +163 +160 +165 +156 +158 +155 +168 +160 +153 +163 +161 +145 +161 +166 +154 +147 +161 +155 +158 +161 +163 +157 +156 +152 +156 +165 +159 +170 +160 +152 +153 diff --git a/data/BracarensePg27.rda b/data/BracarensePg27.rda new file mode 100644 index 0000000000000000000000000000000000000000..f9bb32db2eebaeade263532e664b0a0126ca203b Binary files /dev/null and b/data/BracarensePg27.rda differ diff --git a/data/BracarensePg41.rda b/data/BracarensePg41.rda new file mode 100644 index 0000000000000000000000000000000000000000..ca1e8cb3d29917e718df39ca0af03d90c319d9e9 Binary files /dev/null and b/data/BracarensePg41.rda differ diff --git a/data/BracarensePg43.rda b/data/BracarensePg43.rda new file mode 100644 index 0000000000000000000000000000000000000000..a8c9694a2f9f1aa3206d2d3cd5213b095a7aff8c Binary files /dev/null and b/data/BracarensePg43.rda differ diff --git a/data/BracarensePg44.rda b/data/BracarensePg44.rda new file mode 100644 index 0000000000000000000000000000000000000000..fb796b8607af045e4ff19f0bc9cf5598b1d45f0f Binary files /dev/null and b/data/BracarensePg44.rda differ diff --git a/man/BracarensePg27.Rd b/man/BracarensePg27.Rd new file mode 100644 index 0000000000000000000000000000000000000000..8d024bce039b11780051317433b2092faab25f67 --- /dev/null +++ b/man/BracarensePg27.Rd @@ -0,0 +1,43 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/BracarensePg27.R +\name{BracarensePg27} +\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{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ágina 27. +} +\description{ +Relação dos funcionários constando sexo, idade, salário + e setor. +} +\examples{ + +data(BracarensePg27) +str(BracarensePg27) + +tb <- xtabs(~Setor + Sexo, data = BracarensePg27) +mosaicplot(tb) + +library(lattice) + +xyplot(Idade ~ Setor | Sexo, data = BracarensePg27) + +} +\keyword{básica} +\keyword{estatÃstica} + diff --git a/man/BracarensePg41.Rd b/man/BracarensePg41.Rd new file mode 100644 index 0000000000000000000000000000000000000000..f35a147cd8b2f8819275b3797d1adad3c5bff736 --- /dev/null +++ b/man/BracarensePg41.Rd @@ -0,0 +1,29 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/BracarensePg41.R +\name{BracarensePg41} +\alias{BracarensePg41} +\title{Peso de Recém Nascidos} +\format{Um \code{vetor} com 50 valores de peso em gramas.} +\source{ +BRACARENSE (2009), ExercÃcio 1, página 41. +} +\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. +} +\examples{ + +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 new file mode 100644 index 0000000000000000000000000000000000000000..b7d31561ce314a5b4b432386acd02178609b3d58 --- /dev/null +++ b/man/BracarensePg43.Rd @@ -0,0 +1,72 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/BracarensePg43.R +\name{BracarensePg43} +\alias{BracarensePg43} +\title{Pessoas Condenadas Por Embriaguez} +\format{Um \code{data.frame} com 5 linhas e 3 colunas, em que + +\describe{ + +\item{\code{NH}}{Número de Homens.} + +\item{\code{NM}}{Número de Mulheres.} + +}} +\source{ +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. +} +\examples{ + +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)) + +} +\keyword{básica} +\keyword{estatÃstica} + diff --git a/man/BracarensePg44.Rd b/man/BracarensePg44.Rd new file mode 100644 index 0000000000000000000000000000000000000000..3b4bb3998b6666bc2ccca9723f956e33a1e9c0c7 --- /dev/null +++ b/man/BracarensePg44.Rd @@ -0,0 +1,29 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/BracarensePg44.R +\name{BracarensePg44} +\alias{BracarensePg44} +\title{Altura de Mulheres Idosas} +\format{Um \code{vetor} com 351 valures de altura, em cm.} +\source{ +BRACARENSE (2009), ExercÃcio 3, página 44. +} +\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. +} +\examples{ + +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} +