## ----echo = FALSE,hide=TRUE, message=FALSE, warning=FALSE--------------------- library(ELMER) library(DT) library(dplyr) library(BiocStyle) ## ----eval=TRUE, message=FALSE, warning = FALSE, results = "hide"-------------- # Load results from previous sections mae <- get(load("mae.rda")) pair <- readr::read_csv("result/getPair.hypo.pairs.significant.csv") ## ----results='hide', eval=TRUE,fig.height=5, fig.cap="The schematic plot shows probe colored in blue and the location of nearby 20 genes. The genes significantly linked to the probe were shown in red.", message=FALSE, warning=FALSE---- schematic.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="The schematic plot shows the gene colored in red and all blue colored probes, which are significantly linked to the expression of this gene."---- schematic.plot( pair = pair, data = mae, group.col = "definition", byGene = pair$GeneID[1], save = FALSE )