an R script to find primers in sequences