R Utility Scripts for polyA_detection project