Time：11-28
Write a function in R that takes as input an integer
Page link：https//www.codepudding.com/Softwareengineering/207469.html
