Create get_counts.R