added assignment 1 from R Programming