Create Depth_functions.R