Update exercise5.r