Optimization of generateFasta in peaks-package.R