adding R wrapper