R Programming Assignment