我有个这样的数据
cbr dust smoking expo
1 0 0.20 1 5
2 0 0.25 1 4
3 0 0.25 1 8
4 0 0.25 1 4
5 0 0.25 1 4
6 0 0.25 1 8
7 0 0.25 1 8
8 0 0.25 1 4
9 1 0.25 1 8
10 0 0.29 1 7
11 0 0.29 0 7
12 0 0.29 1 7
13 0 0.30 0 10
14 0 0.30 1 10
15 0 0.30 1 10
16 0 0.31 1 13
17 0 0.31 0 13
18 0 0.31 1 13
19 0 0.31 1 16
20 0 0.31 1 13
21 0 0.31 1 16
22 0 0.31 1 13
23 1 0.33 1 6
24 0 0.33 0 21
25 0 0.33 0 18
26 0 0.33 1 12
27 1 0.33 1 21
28 0 0.33 0 24
29 0 0.33 1 15
30 0 0.33 1 12
（很长，一直到2000多）怎样能对比吸烟人士和不吸烟人士患肺炎的危险？




一个用R的家伙给了我这个
cbrsmk.tbl <- with(dfrm, table(cbr, smoking) )
cbrsmk.tbl
cbrsmk.tbl[2, ]/(cbrsmk.tbl[1, ]+cbrsmk.tbl[2, ])




可是我没有用dfrm也不知道怎么用，所以他告诉我的这个我一点主意都没有该怎么用