Create earthquake_depth.r