change r functions