Add R-script for evaluating adaptability metrics