Create ITSwR6-Segments.R