Update adaptive_rejection_sampling_main.R