Update useful_epi_functions.R