Achieving Interval Labeling for Time Series Data in R Using Cut() Function