powered by
create epidemiological calendar
get.epiweek(i.date = as.POSIXct(as.POSIXlt(Sys.Date()), tz = "CET"))