Update useful_epi_functions.R

Fixed simpleCap in useful_epi_functions