Create so_functions.r