Added 'final step' R script to format data as wide and add some summary statistics