09-10-2017
data %>% complete(country, item, month, fill = c("demand" = 0)) %>% group_by(country, item) %>% mutate(demand = ets(demand, "ANN"))