Subversion Repositories qbpwcf-lib(archive)

#匯入gmodels套件
library(gmodels)

#產生資料標題
dnnStr=c("性別","學歷")

vectorPart=c("M","M","M","M","M","M","M","F","F","F")
var1=vectorPart
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
var1=c(var1,vectorPart)
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
var1=c(var1,vectorPart)
vectorPart=c("M","M","M","M","M","M","M","F","F","F")
var1=c(var1,vectorPart)

vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
var2=vectorPart
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
var2=c(var2,vectorPart)
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
var2=c(var2,vectorPart)
vectorPart=c("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學")
var2=c(var2,vectorPart)

#交叉分析
CrossTable(var1,var2,dnn=dnnStr,prop.t=FALSE,prop.c=FALSE,prop.chisq=FALSE,chisq=TRUE,fisher=FALSE)