# 4.5 - Heatmap plots

# Loading required data for plot

    # Load results from previous sections
    mae <- get(load("mae.rda"))

# Heatmap

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)