File with script

R code