Create assigment8.R