Create heatmap.R