## ---- echo = false，hide = tri）库（dt）库（dplyr）库（biocStyle）## ---------------------Sig.diff <-Read.csv（“ result/getMethdiff.hypo.probes.simentificant.csv”）sig.diff <- read.csv节.diff $ probe，numflankinggenes = 20）＃10上游和10个dowstream基因hypo.pair <-get.pair（data = mae，group.col =“ definity”，group1 =“ pracior实体肿瘤”，group2 =“固体组织正常“，近属=近属，模式=“无监督”，permu.dir =“ result/permu”，permu.size = 100，＃请设置为100000，以获取重大结果。设置为0.001以获取重要结果。probes = true，＃请参阅preassociation -probebeltering函数filter.percentage = 0.05，filter.tortion = 0.3，dir.out =“结果”，coress = 1，cores = 1，label = 1“ hypo”）## ------------- true，message = false，警告= false --------------------------------------------------------------------------------PAIR％>％datatable（options = list（scrollx = true））＃get.pair自动保存输出文件。＃getpair.hypo.all.pairs.statistic.csv包含所有探针对的统计数据。＃getpair.hypo.pairs.simpixant.csv仅包含与hypo.pair相同的重要探针。dir（路径=“结果”，模式=“ getPair”）