R scripts for graphing contact counter results