added r_vector