Week8 R Assignment