New R script for EOS course at CEH