R-script ready