Create R script b