Update uppgift5Test.R