add R wrapper for stage 1