R-scripts for the models presented in the paper "Human impact, climate change and species traits determine the timing of Late Quaternary extinctions in Europe"