Create occurrence_compare.R