diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R new file mode 100644 index 0000000000000000000000000000000000000000..f95bc90624b6bdbf694f70f7cf71d03f9f44abff --- /dev/null +++ b/R/BracarensePg27.R @@ -0,0 +1,24 @@ +#' @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{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} +#' +#' } +#' +#' @keywords estatística básica +#' @source BRACARENSE(2009), exemplo pág. 27. +#' @examples +#' +#' library(lattice) +#' xyplot(Setor ~ Idade | Sexo, data = BracarensePg27) +#' +#' +NULL \ No newline at end of file diff --git a/R/BracarensePg41.R b/R/BracarensePg41.R index 1f592ae79f5080b65205f27e9a3e7e144989307c..a632c63e87f7845f4ef456c30999a953de8c9180 100644 --- a/R/BracarensePg41.R +++ b/R/BracarensePg41.R @@ -8,11 +8,7 @@ #' @source BRACARENSE(2009), Exercício 1, pág. 41. #' @examples #' -#' dados <- (SliwianyQd28$ASC)/17559*100 +#' plot(BracarensePg41, col= rainbow(50)) +#' #' -#' barplot(dados[1:3], names.arg = SliwianyQd28$Sit[1:3], ylim = c(0, 60), -#' col = "pink", main = "Porcentagem de alunos aprovados, reprovados -#' e desistentes do total de alunos sem creche") -#' -#' NULL \ No newline at end of file diff --git a/R/BracarensePg44.R b/R/BracarensePg44.R index 6ba2150fe0eae586de1960e1cf913d57e2bd57d5..5a20114df575d2a6b0f9974f74755295f56caa1c 100644 --- a/R/BracarensePg44.R +++ b/R/BracarensePg44.R @@ -3,16 +3,12 @@ #' @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{data.frame} com 351 linhas e 1 coluna +#' @format Um \code{vetor} com 351 entradas. #' @keywords sociometria #' @source BRACARENSE(2009), Exercício 3, pág. 44. #' @examples #' -#' dados <- (SliwianyQd28$ASC)/17559*100 -#' -#' barplot(dados[1:3], names.arg = SliwianyQd28$Sit[1:3], ylim = c(0, 60), -#' col = "pink", main = "Porcentagem de alunos aprovados, reprovados -#' e desistentes do total de alunos sem creche") +#' plot(BracarensePg44, ylab = "Altura") #' #' NULL \ No newline at end of file diff --git a/data-raw/BracarensePg27.txt b/data-raw/BracarensePg27.txt index 768dc3a5f3d896e8b642ce743154898482a854d3..14356bee694b7b83d9b4880c0a1ea5cdcdc7cb77 100644 --- a/data-raw/BracarensePg27.txt +++ b/data-raw/BracarensePg27.txt @@ -1,4 +1,4 @@ -Sexo Idade Sal�rio Setor +Sexo Idade Salario Setor M 49 1714 oper M 48 1701 oper M 64 1589 oper 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..b1a141d3dcbb0c56f73f0c1a5920a4b859f7580a --- /dev/null +++ b/man/BracarensePg27.Rd @@ -0,0 +1,32 @@ +% 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{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} + +}} +\source{ +BRACARENSE(2009), exemplo pág. 27. +} +\description{ +Relação dos funcionários constando sexo, idade, salário + e setor. +} +\examples{ + +library(lattice) +xyplot(Setor ~ Idade | 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..53b84598d4d29054b59ce2b0b3fb3f51e45b793a --- /dev/null +++ b/man/BracarensePg41.Rd @@ -0,0 +1,22 @@ +% 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 entradas} +\source{ +BRACARENSE(2009), Exercício 1, pág. 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{ + +plot(BracarensePg41, col= rainbow(50)) + + +} +\keyword{sociometria} + diff --git a/man/BracarensePg43.Rd b/man/BracarensePg43.Rd new file mode 100644 index 0000000000000000000000000000000000000000..205222bb5472bed16120bbdc1872a2eb32ac1450 --- /dev/null +++ b/man/BracarensePg43.Rd @@ -0,0 +1,38 @@ +% 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ág. 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{ + +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") + + +} +\keyword{básica} +\keyword{estatística} + diff --git a/man/BracarensePg44.Rd b/man/BracarensePg44.Rd new file mode 100644 index 0000000000000000000000000000000000000000..782bdad0dec667bf32fd183e043cd8c69e7c9b11 --- /dev/null +++ b/man/BracarensePg44.Rd @@ -0,0 +1,22 @@ +% 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 entradas.} +\source{ +BRACARENSE(2009), Exercício 3, pág. 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{ + +plot(BracarensePg44, ylab = "Altura") + + +} +\keyword{sociometria} +