as.ri function

Coerce to ri