Added heatmap.R