version1 Assignment R