1. 保存为word或txt文件
sink（）：在代码开始前：sink(“输出文件名.txt”)，将结果全部输出到工作文件夹下的名为 "输出文件名.txt" 的文档。这时在R控制台的输出窗口中看不到输出结果，代码结束时用sink()切换回来
library(aqp)
sink("t_1_chisq_test_result.txt") #保存为txt文件
#sink("t_1_chisq_test_result.text") #保存为word文件
t_1 <- read.csv("prepare_chisq_test.csv")
t_1_out <- chisq.test(t_1) #卡方检验
t_1_out
sink()
2.保存为csv文件
#卡方检验事后检验结果保存为csv
library(rcompanion)
out <- pairwiseNominalIndependence(t_1,fisher=F,gtest = F,chisq = T,method="fdr")
out
write.csv(out,"topk_chiaq_test_result.csv")
