add useful_epi_function.R