Update uppgift4Test.R