Create R CODE