Added R scripts to make plots