From 69816edcf062cc93f7fb91f9d0c9c982c61c343c Mon Sep 17 00:00:00 2001
From: Maria <mariaholiveira34@gmail.com>
Date: Mon, 26 Sep 2016 16:49:36 -0300
Subject: [PATCH] adiciona exemplos e tabela da pg 27
---
R/BracarensePg27.R | 24 +++++++++++++++++++++++
R/BracarensePg41.R | 8 ++------
R/BracarensePg44.R | 8 ++------
data-raw/BracarensePg27.txt | 2 +-
data/BracarensePg27.rda | Bin 0 -> 475 bytes
data/BracarensePg41.rda | Bin 0 -> 194 bytes
data/BracarensePg43.rda | Bin 0 -> 240 bytes
data/BracarensePg44.rda | Bin 0 -> 480 bytes
man/BracarensePg27.Rd | 32 ++++++++++++++++++++++++++++++
man/BracarensePg41.Rd | 22 +++++++++++++++++++++
man/BracarensePg43.Rd | 38 ++++++++++++++++++++++++++++++++++++
man/BracarensePg44.Rd | 22 +++++++++++++++++++++
12 files changed, 143 insertions(+), 13 deletions(-)
create mode 100644 R/BracarensePg27.R
create mode 100644 data/BracarensePg27.rda
create mode 100644 data/BracarensePg41.rda
create mode 100644 data/BracarensePg43.rda
create mode 100644 data/BracarensePg44.rda
create mode 100644 man/BracarensePg27.Rd
create mode 100644 man/BracarensePg41.Rd
create mode 100644 man/BracarensePg43.Rd
create mode 100644 man/BracarensePg44.Rd
diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R
new file mode 100644
index 00000000..f95bc906
--- /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 1f592ae7..a632c63e 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 6ba2150f..5a20114d 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 768dc3a5..14356bee 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
GIT binary patch
literal 475
zcmb2|=3oE=w%VZGUd(|4bMNk+J>!RiiQR$ik2ZHm2_E%wVc~Z4Nv`(HYnm{9_6kki
zHAkE-oI7<${)6<9YuDUzM7Mlo?n$4#(=#TldvkHxvomM*R;T9|+l$@f7oO<pB$2`u
zaQet`g>I(}veJD%9_~-Ovdm?p6@~7uW7#HKwk+yq!@(c@zcXhi*Z+*$8()7oIK3iI
z_{56jshUltVWL}CY+QP>&plt=Xw!<PU)3~cYCM(Qknixn%{75Bf?ciAvhO=X@&S|M
zG1gpPiq2jA#@s9;&$z6??wU(uVZyxEv1bJgxOtep*Yq+l+pM1c`SBg=OBU%5<aRJm
zE8Jad^H}=c4=EeA1^149UCV!De!|4fd4XK_su=5<e<%mumVBd_!~JOWgX{z1|DH4d
z@m};n{ZIL#0PS@h5gC(Lyl&O#_&j6B^2RwIx%M;s=PG0RXZ$1ca#W<;j`K<Xg}2YH
znQyw{nQy<_^&K%A^l#+PORRo2d#kCT_8v*I{I&@vbuKTk(dsvgnHa_wtR26iI54O)
zN`GPX&%B%Om!3Jf=8|{j%XNjJ=dur$1*uK7^N2}XQXFvpXz13}@6QwjO-nI(x?q2L
j+KH3%UB1SA@4T~pk=N2sG1dyT{~1!J$G!DtVPF6NhsxvY
literal 0
HcmV?d00001
diff --git a/data/BracarensePg41.rda b/data/BracarensePg41.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ca1e8cb3d29917e718df39ca0af03d90c319d9e9
GIT binary patch
literal 194
zcmb2|=3oE=Hr?}U`41Kf9RJvV|NP_Y!4uDfEHiX85oS5KB>s!RW=^L6jR|Q@35!>)
zS~Nk#bqY_UfUnVeg+1@`w%>lYF0QQTnBgRyo7=pn`M%u7p|?|1!QHDlZMWr%FYR-q
z%;zr^cI(sBf3#vzyXrNIhdtAubSkx}xb5(|#}TBF)TdikFK+W;N)6{0gQHC4H7fON
ztM|`N;R{;O$k|tM`LT<$LFSna6Pw=f_HCT*#FrmZvF^Zw@9e*dmhrGMGB5xDsr6Qy
literal 0
HcmV?d00001
diff --git a/data/BracarensePg43.rda b/data/BracarensePg43.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a8c9694a2f9f1aa3206d2d3cd5213b095a7aff8c
GIT binary patch
literal 240
zcmb2|=3oE=w%7niu0sX_F_W()IST%1kPle0wkcfjO0&|uD&E{zOSP6P3YUL+H2jCc
z!5x{C6RK~#Ig?VJKKZZ_-=7=o3`|qDH3YQq9bC-HS7Pv8tVz}9L-E1y$2C|MFo$gH
zDKp%iy7ZNv=^M?hw_3{1<=f~Bd_5h#)~{`GqQUhu+@id?y&}CjbG58YugulFRZuv2
zj_9!?QRzB6<5(8yw?+PF{di1i>l@+ZujS7(*6cg7y6En+Gk$k&1SsbPO)K&}k(YaM
v+pA@pHcp?vNn1LdDc$s0`H`n~W^!4ApAI;C{k+)!;~#^H!57QTj0_9_j%ja#
literal 0
HcmV?d00001
diff --git a/data/BracarensePg44.rda b/data/BracarensePg44.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fb796b8607af045e4ff19f0bc9cf5598b1d45f0f
GIT binary patch
literal 480
zcmb2|=3oE=w%94Ye#(wKt#ey=JqjeI2=_c=$OwBQ;M5_@z2msYOassV%dPKbUUKYV
z<Lg*4Y2R`)9Utp&tG~a|njLSif8Jlu|4dHS=9@>BZGIr<dw71Q?9IX-^Zr)s*tfH8
z$KLuqdw0w}@BG9>W&NS;9M{;Sn@kTHiNF5vJ0btzss!yvvlCQzcKBM>E0in5Cm8<c
zTh^?7%PfL7|4Xrf=$=C^_MG3i>e;pxZ=IH4R4~(8I=6jV$)f#g;gjF5G*%63xLN3a
z>BWIpbFzHrJ`;<1_v_Xn%M0ymiefme>JJ{Z`&Y28WjFim;Q8-%J$tA9>3qhrcd^Q4
zo%a(oWA;|xW{Izz_Q0$_HDmvRz@4`qzu)^h_V4s}^F&t1-d%fHLdMNFq+nmMY3Ti5
z`7!rrEna##<Ztietk}7`cK`ojxb2awQW@j*hI#i4ifjtyXXRhr?(UzzXwR?fJ$z>8
zHk*|5MIX3d6hE`qdeL5?eH#k*TRl?!wLkaH-D}5eJr3qnc%O|wx0CN~{SmL<yFOd)
zRa@5=(floNZ}<LR$5!vP3ivKulbscPaQ9>1?SAQrkN>NmomJ*)9eH~PfA#NOzh~)w
r4QReRPv^(CFPolhPg}OJaQ_y0);qiA&#HLx_Xmska?@)&Ss54rVyF0F
literal 0
HcmV?d00001
diff --git a/man/BracarensePg27.Rd b/man/BracarensePg27.Rd
new file mode 100644
index 00000000..b1a141d3
--- /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 00000000..53b84598
--- /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 00000000..205222bb
--- /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 00000000..782bdad0
--- /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}
+
--
GitLab