Набор данных во временной ряд

For bi-monthly points of data:
b12=ts(m1[,15],start=2013,end=c(2016,6),frequency=6)

For monthly points of data:
b6=ts(dv,start=2013,end=c(2016,12),frequency=12)

For unfinished last year:
b5=ts(m1[,15],start=2013,end=c(2016,5),frequency=6)

Find trend and variations:
bstl=stl(b5,s.window="periodic")
plot(bstl)