Tadge-Analytics

library(tidyverse)
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))

countries <- c("AE", "AF", "AN", "AO", "AR", "AS", "AT", "AU", "BB", "BD", 
               "BE", "BF", "BH", "BM", "BN", "BR", "BY", "CA", "CH", "CL", "CN", 
               "CO", "CR", "CZ", "DE", "DK", "DZ", "EC", "EE", "EG", "ES", "ET", 
               "FI", "FO", "FR", "GA", "GB", "GE", "GH", "GI", "GR", "GT", "HK", 
               "HN", "HR", "HU", "ID", "IE", "IL", "IN", "IR", "IS", "IT", "JM", 
               "JO", "JP", "KE", "KH", "KR", "KW", "KZ", "LA", "LB", "LK", "LT", 
               "LU", "LV", "MA", "MN", "MO", "MT", "MU", "MX", "MY", "NG", "NI",