https://videosashka.com/watch/-cEf6nYHLxA/how-to-create-custom-functions-in-r