added the sum read counts by function R script. see inside the script for instructions