Create R Script