Update week9RAssignment_R.R