# Load results from previous sections mae <- get(load("mae.rda"))
Generate a heatmap of paired probes.
pair <- read.csv("result/getPair.hypo.pairs.significant.csv") heatmapPairs(data = mae, group.col = "definition", group1 = "Primary solid Tumor", annotation.col = c("years_smoked","gender"), group2 = "Solid Tissue Normal", pairs = pair, filename = NULL)