## ---- echo = false，hide = tri）库（dt）库（dplyr）库（biocStyle）## --------------------- ＃负载从前一个部分MAE <-get（load（“ mae.rda”））sig.diff <-red.csv（“ result/getMethdiff.hypo.probes.simporificant.csv”）pair <- read.csv <-（“结果/getPair.hypo.pairs.simigant.csv”）头（Pair）＃具有假定靶基因＃识别富含质量降低甲基化探针＃具有假定靶基因的明显低甲基化探针的降低甲基化探针。reniched.motif < - get.enriched.motif（data = mae，probes = pair $ proce，dir.out =“ result”，label =“ hypo”，min.incivence = 10，lower.or = 1.1）## ---- eval = true，message = false，警告= false ----------------------------------------------名称（富集。主题）＃富集主题头（reniched.motif [names（reniched.motif）[1]]）##在给定集中具有第一个主题的探针。＃get.enriched.motif自动保存输出文件。＃getMotif.hypo.enriched.motifs.rda包含具有富集的图案和带有主题的探针。＃getMotif.hypo.motif.enrichment.csv包含富集的摘要。dir（路径=“结果”，模式=“ getMotif”）＃将自动生成图案富集图。 dir(path = "result", pattern = "motif.enrichment.pdf")