>yidong<-read.csv(file.choose()) >attach(yidong)
>mytable<-xtabs(~xl+yys,data=yidong)显示出列联表 >mytable
>chisq.test(mytable)相关性检验（p值>0.05两变量不相关）
因篇幅问题不能全部显示，请点此查看更多更全内容