Updated identifyPolymorphicRegions.R