Update uppgift1Test.R