## ---- echo =FALSE, hide=TRUE, message=FALSE, warning=FALSE, warning=FALSE-------------------- library(ELMER) library(DT) library(dplyr) library(BiocStyle) ## ----eval=TRUE, message=FALSE, warning=FALSE, results= "hide"-------------- #从前面的部分加载结果mae <- get(Load ("mae.rda")) pair <- read.csv("result/ getpair . hypos .pairs. important .csv") ## ----results='hide'， eval=TRUE,fig. csv"height=5, fig.cap="示意图显示了用蓝色标注的探针和附近20个基因的位置。与探针显著相关的基因用红色表示。”，消息=假，警告=假----示意图。Plot (pair = pair, data = mae, group.)col =" definition"， byProbe = pair$Probe[1]， save = FALSE) ## ----results='hide'， eval=TRUE, fig.width=6, fig.height=10, fig.cap="原理图显示了红色标记的基因和所有蓝色标记的探针，这些探针与该基因的表达显著相关。"——示意图。Plot (pair = pair, data = mae, group.)col = "definition"， byGene = pair$GeneID[1]， save = FALSE)