Beach results R-scripts