Added R scripts, images and trimdown version of the data