Skip to content
Snippets Groups Projects
Commit e099aa71 authored by Maria's avatar Maria
Browse files

Adiciona arquivos txt, e R para pg41-44 sem exemplos

parent 62bf0d45
No related branches found
No related tags found
1 merge request!133Maria132
#' @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
#' @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
#' @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
Sexo Idade Salrio 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
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
Idade NH NM
0 - 29 185 4
30 - 39 207 13
40 - 49 260 10
50 - 59 180 7
60 - 71 10
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
Materia 1S 2S 3S Red
Portugus 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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment