Write R Script