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)
The special gimap_dataset from the `setup_data` function which contains the transformed data
`sample_cor_heatmap` a pheatmap
if (FALSE) {
gimap_dataset <- get_example_data("gimap")
qc_cor_heatmap(gimap_dataset)
}