Update remove_singletons.r