Create R-code