参考：http://cse.naro.affrc.go.jp/takezawa/r-tips/r/66.html

（引用ここから）
2 行 2 列の行列を引数にする場合 → matrix(c(20, 15, 16, 9), ncol=2, byrow=T) ：
男女 60 人に喫煙の有無を調べ，男女の喫煙率に差があるかどうかを検定する場合は 2 行 2 列の行列を引数にすればよい．

 x <- matrix(c(14, 8, 4, 17), ncol=2, byrow=T) 
 chisq.test(x)

（引用ここまで）