exchanging the r-scripts