got working in R script, need to decide if want counts of duplcates or just prortion