Update compare_list.R