added reduce_amplicons.R script