Create R codes