greedyOptCorr.r add select tolence type, select final gene, sample type, May09 2014