require(datasets); require(pander); require(descr)
## Loading required package: pander
## Loading required package: descr
data(esoph)
require(knitr, quietly = TRUE, warn.conflicts = FALSE)
kable(table(esoph$agegp, esoph$alcgp),
      caption = "Some sample")
Some sample
0-39g/day 40-79 80-119 120+
25-34 4 4 3 4
35-44 4 4 4 3
45-54 4 4 4 4
55-64 4 4 4 4
65-74 4 3 4 4
75+ 3 4 2 2 
CrossTable(esoph$agegp, esoph$alcgp, digits = 1, prop.r = FALSE, prop.t = FALSE, chisq = FALSE,
           prop.chisq = FALSE)
##    Cell Contents 
## |-------------------------|
## |                       N | 
## |           N / Col Total | 
## |-------------------------|
## 
## ========================================================
##                esoph$alcgp
## esoph$agegp    0-39g/day   40-79   80-119   120+   Total
## --------------------------------------------------------
## 25-34                  4       4        3      4      15
##                      0.2     0.2      0.1    0.2        
## --------------------------------------------------------
## 35-44                  4       4        4      3      15
##                      0.2     0.2      0.2    0.1        
## --------------------------------------------------------
## 45-54                  4       4        4      4      16
##                      0.2     0.2      0.2    0.2        
## --------------------------------------------------------
## 55-64                  4       4        4      4      16
##                      0.2     0.2      0.2    0.2        
## --------------------------------------------------------
## 65-74                  4       3        4      4      15
##                      0.2     0.1      0.2    0.2        
## --------------------------------------------------------
## 75+                    3       4        2      2      11
##                      0.1     0.2      0.1    0.1        
## --------------------------------------------------------
## Total                 23      23       21     21      88
##                      0.3     0.3      0.2    0.2
## ========================================================
pander(CrossTable(esoph$agegp, esoph$alcgp, digits = 1))
## Warning in chisq.test(t, correct = FALSE, ...): Chi-squared approximation
## may be incorrect
  0-39g/day 40-79 80-119 120+ Total
25-34
N
Row(%)
Column(%)		  
4
27%
27%
20%		  
4
27%
17%
17%		  
3
14%
19%
5%		  
4
5%
3%
5%		  
15
17%
35-44
N
Row(%)
Column(%)		  
4
27%
27%
27%		  
4
20%
17%
17%		  
4
19%
14%
5%		  
3
5%
5%
3%		  
15
17%
45-54
N
Row(%)
Column(%)		  
4
25%
25%
25%		  
4
25%
17%
17%		  
4
19%
19%
5%		  
4
5%
5%
5%		  
16
18%
55-64
N
Row(%)
Column(%)		  
4
25%
25%
25%		  
4
25%
17%
17%		  
4
19%
19%
5%		  
4
5%
5%
5%		  
16
18%
65-74
N
Row(%)
Column(%)		  
4
27%
20%
27%		  
3
27%
17%
13%		  
4
19%
19%
5%		  
4
3%
5%
5%		  
15
17%
75+
N
Row(%)
Column(%)		  
3
27%
36%
18%		  
4
18%
13%
17%		  
2
10%
10%
3%		  
2
5%
2%
2%		  
11
12%
Total 23
26%		 23
26%		 21
24%		 21
24%		 88
 
pander(CrossTable(esoph$agegp, esoph$alcgp, digits = 1, prop.c = FALSE, 
                  prop.t = FALSE, chisq = FALSE, prop.chisq = FALSE))
  0-39g/day 40-79 80-119 120+ Total
25-34
N
Row(%)		  
4
27%		  
4
27%		  
3
20%		  
4
27%		  
15
17%
35-44
N
Row(%)		  
4
27%		  
4
27%		  
4
27%		  
3
20%		  
15
17%
45-54
N
Row(%)		  
4
25%		  
4
25%		  
4
25%		  
4
25%		  
16
18%
55-64
N
Row(%)		  
4
25%		  
4
25%		  
4
25%		  
4
25%		  
16
18%
65-74
N
Row(%)		  
4
27%		  
3
20%		  
4
27%		  
4
27%		  
15
17%
75+
N
Row(%)		  
3
27%		  
4
36%		  
2
18%		  
2
18%		  
11
12%
Total 23
26%		 23
26%		 21
24%		 21
24%		 88