Create Problem 6.R