added r script and associated data for class project