change r function name