Update plot_mg_heatdend.r

made sure R calls the matR version of the heatmap function