wirting r functions