Create Problem 4.R