Create R

R codes