R Programming assignment scripts