updating functions.r