Update useful_epi_functions.R

Added function to extract p value from linear regression object.