Update Problem 4.R