Wirting R Functions