r2dra function

R to DRA