# create data vectors
x <- c(1,2,3,4,5,6,7,8,9,10,11,12)
y <- c(13,14,15,16,17,18,19,20,21,22,23,24)
# creating time series objects
ts_1 <- ts(x, c(2021,10),frequency=12 )
ts_2 <- ts(y, c(2022,10),frequency=12 )
# merge time series
merged_ts <- ts(c(ts_1, ts_2),
start = start(ts_1),
frequency = frequency(ts_1))
# print merged time series
merged_ts