adiciona exemplos e tabela da pg 27

R/BracarensePg27.R

+#' @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

R/BracarensePg41.R

@@ -8,11 +8,7 @@
 #' @source BRACARENSE(2009), Exercício 1, pág. 41.
 #' @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(BracarensePg41, col= rainbow(50))
 #' 
 #' 
 NULL
\ No newline at end of file

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

data-raw/BracarensePg27.txt

-Sexo	Idade	Salrio	Setor
+Sexo	Idade	Salario	Setor
 M	49	1714	oper
 M	48	1701	oper
 M	64	1589	oper

man/BracarensePg27.Rd

+% 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}
+

man/BracarensePg41.Rd

+% 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}
+

man/BracarensePg43.Rd

+% 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}
+

man/BracarensePg44.Rd

+% 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}
+