Create get_r

calculate r