Data and R-scripts