writing-functions-in-r