additional minor change of R-script