| 1 |
liveuser |
1 |
#匯入gmodels套件
|
|
|
2 |
library(gmodels)
|
|
|
3 |
|
|
|
4 |
#產生資料標題
|
|
|
5 |
dnnStr=c("性別","學歷")
|
|
|
6 |
|
|
|
7 |
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
|
|
|
8 |
var1=vectorPart
|
|
|
9 |
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
|
|
|
10 |
var1=c(var1,vectorPart)
|
|
|
11 |
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
|
|
|
12 |
var1=c(var1,vectorPart)
|
|
|
13 |
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
|
|
|
14 |
var1=c(var1,vectorPart)
|
|
|
15 |
|
|
|
16 |
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
|
|
|
17 |
var2=vectorPart
|
|
|
18 |
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
|
|
|
19 |
var2=c(var2,vectorPart)
|
|
|
20 |
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
|
|
|
21 |
var2=c(var2,vectorPart)
|
|
|
22 |
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
|
|
|
23 |
var2=c(var2,vectorPart)
|
|
|
24 |
|
|
|
25 |
#交叉分析
|
|
|
26 |
CrossTable(var1,var2,dnn=dnnStr,prop.t=FALSE,prop.c=FALSE,prop.chisq=FALSE,chisq=TRUE,fisher=FALSE)
|