change r test