Delete segments.R