Create compare_list.R