added assignment 1 of R Programming