update of R-script