Sección II

Capítulo 5: Ejercicio 1

Para examinar la edad en que alguien probó por primera vez el tabaco sin humo, use el conjunto de datos de la Encuesta Nacional sobre Uso de Drogas y Salud, 2015, para completar los siguientes ejercicios.

1. Genere una tabla de la edad en que alguien probó por primera vez el tabaco sin humo (smklsstry).

t <- table(NSDUH_2015$smklsstry)
knitr::kable(t)

Var1	Freq
1	5
2	2
3	4
4	5
5	37
6	38
7	41
8	81
9	80
10	186
11	128
12	507
13	518
14	764
15	1000
16	1296
17	768
18	1131
19	516
20	490
21	312
22	216
23	149
24	106
25	199
26	55
27	49
28	56
29	25
30	121
31	13
32	15
33	19
34	18
35	55
36	7
37	6
38	11
39	9
40	28
41	4
42	7
43	4
44	8
45	25
46	6
47	6
48	5
49	5
50	14
52	4
53	3
54	4
55	7
57	3
59	1
60	4
61	1
62	1
65	2
66	1
68	1
70	1
985	90
991	47742
994	81
997	17
998	33

2. Genere una nueva variable que sea idéntica a smklsstry y llámela smklssage.

NSDUH_2015$smklssage <- NSDUH_2015$smklsstry

3. Recodifique smklssage para que los códigos 994, 997 y 998 estén en blanco.

NSDUH_2015$smklssage <- ifelse(NSDUH_2015$smklssage %in% c(994, 997, 998), NA, NSDUH_2015$smklssage)
head(NSDUH_2015$smklssage, 10)

 [1] 991  25 991 991  18 991 991 991 991 991

max(NSDUH_2015$smklssage)

[1] NA

4. Recodifique smklssage para combinar usuarios en las siguientes categorías: never used smokeless tobacco, <10, 10 a 12, 13 a 15, 16 a 18, 19 a 21 y >21.

table(NSDUH_2015$smklssage)

  Never     <10 10 a 12 13 a 15 16 a 18 19 a 21     >21 
      0     293     821    2282    3195    1318   49106