mengke25’s r-function