Added R prgram to generate plot 3 for project 1