Create cooc_ecography.R