heavy minerals:
HM <- read.counts("HM.csv",colmap=cm.colors)