My Function

I added my function to the R file