Change of problem_3.R