add heatmap R script