Update useful_functions_R.r