R Programming Assisnment