Create occurrence_freq.R