petrography:
QFL <- read.counts("PT.csv",colmap=cm.colors)