Create heatmap.R

This script will make a heatmap in R from an OTU table