How To Add Functions In R