From e099aa7192979071cf6bbd12093af0583ed63fdc Mon Sep 17 00:00:00 2001
From: Maria <mariaholiveira34@gmail.com>
Date: Thu, 22 Sep 2016 18:29:05 -0300
Subject: [PATCH 1/4] Adiciona arquivos txt, e R para pg41-44 sem exemplos
---
R/BracarensePg41.R | 18 ++
R/BracarensePg43.R | 30 +++
R/BracarensePg44.R | 18 ++
data-raw/BracarensePg27.txt | 41 +++++
data-raw/BracarensePg41.txt | 50 +++++
data-raw/BracarensePg43.txt | 6 +
data-raw/BracarensePg44.txt | 351 ++++++++++++++++++++++++++++++++++++
data-raw/BracarensePg78.txt | 10 +
8 files changed, 524 insertions(+)
create mode 100644 R/BracarensePg41.R
create mode 100644 R/BracarensePg43.R
create mode 100644 R/BracarensePg44.R
create mode 100644 data-raw/BracarensePg27.txt
create mode 100644 data-raw/BracarensePg41.txt
create mode 100644 data-raw/BracarensePg43.txt
create mode 100644 data-raw/BracarensePg44.txt
create mode 100644 data-raw/BracarensePg78.txt
diff --git a/R/BracarensePg41.R b/R/BracarensePg41.R
new file mode 100644
index 00000000..1f592ae7
--- /dev/null
+++ b/R/BracarensePg41.R
@@ -0,0 +1,18 @@
+#' @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 entradas
+#' @keywords sociometria
+#' @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")
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/R/BracarensePg43.R b/R/BracarensePg43.R
new file mode 100644
index 00000000..c18328e2
--- /dev/null
+++ b/R/BracarensePg43.R
@@ -0,0 +1,30 @@
+#' @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ág. 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
diff --git a/R/BracarensePg44.R b/R/BracarensePg44.R
new file mode 100644
index 00000000..6ba2150f
--- /dev/null
+++ b/R/BracarensePg44.R
@@ -0,0 +1,18 @@
+#' @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{data.frame} com 351 linhas e 1 coluna
+#' @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")
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/BracarensePg27.txt b/data-raw/BracarensePg27.txt
new file mode 100644
index 00000000..768dc3a5
--- /dev/null
+++ b/data-raw/BracarensePg27.txt
@@ -0,0 +1,41 @@
+Sexo Idade Sal�rio 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 00000000..4e75a362
--- /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 00000000..288904bb
--- /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 00000000..b83a917f
--- /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-raw/BracarensePg78.txt b/data-raw/BracarensePg78.txt
new file mode 100644
index 00000000..65e22c07
--- /dev/null
+++ b/data-raw/BracarensePg78.txt
@@ -0,0 +1,10 @@
+Materia 1S 2S 3S Red
+Portugu�s 544 640 637
+Matematica 604 566 630
+Quimica 634 718 721
+Fisica 544 612 623
+Biologia 480 460 515
+Historia 750 806 823
+Geografia 710 670 735
+Ingles 805 715 805
+Redacao 675
--
GitLab
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 2/4] 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
From 90385a0c15eb59d54c03405487f8268956909a68 Mon Sep 17 00:00:00 2001
From: Maria <mariaholiveira34@gmail.com>
Date: Wed, 28 Sep 2016 15:25:24 -0300
Subject: [PATCH 3/4] deleta tabela extra
---
data-raw/BracarensePg78.txt | 10 ----------
1 file changed, 10 deletions(-)
delete mode 100644 data-raw/BracarensePg78.txt
diff --git a/data-raw/BracarensePg78.txt b/data-raw/BracarensePg78.txt
deleted file mode 100644
index 65e22c07..00000000
--- a/data-raw/BracarensePg78.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-Materia 1S 2S 3S Red
-Portugu�s 544 640 637
-Matematica 604 566 630
-Quimica 634 718 721
-Fisica 544 612 623
-Biologia 480 460 515
-Historia 750 806 823
-Geografia 710 670 735
-Ingles 805 715 805
-Redacao 675
--
GitLab
From 82d4a49de7c323d1566a5ae108477fe113a5b65f Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 2 Nov 2016 11:17:01 -0200
Subject: [PATCH 4/4] =?UTF-8?q?Corre=C3=A7oes=20na=20documentacao.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/BracarensePg27.R | 41 ++++++++++++++---------
R/BracarensePg41.R | 21 ++++++++----
R/BracarensePg43.R | 76 +++++++++++++++++++++++++++++++------------
R/BracarensePg44.R | 21 ++++++++----
man/BracarensePg27.Rd | 29 ++++++++++++-----
man/BracarensePg41.Rd | 13 ++++++--
man/BracarensePg43.Rd | 64 +++++++++++++++++++++++++++---------
man/BracarensePg44.Rd | 17 +++++++---
8 files changed, 200 insertions(+), 82 deletions(-)
diff --git a/R/BracarensePg27.R b/R/BracarensePg27.R
index f95bc906..6fb418cc 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 a632c63e..2655db9f 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 c18328e2..dc9f0128 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 5a20114d..ca28bd33 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 b1a141d3..8d024bce 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 53b84598..f35a147c 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 205222bb..b7d31561 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 782bdad0..3b4bb399 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}
--
GitLab