Create extinction_selectivity.R