Added My R Function