Update assigment8.R