This function uses the `cor` function to find correlations between the sample CPM's and then plots a heatmap of these
qc_cor_heatmap(gimap_dataset)
`sample_cor_heatmap` a pheatmap
if (FALSE) { # \dontrun{
gimap_dataset <- get_example_data("gimap")
qc_cor_heatmap(gimap_dataset)
} # }