R script and its output