How to work with time series

function window extracts time subperiod from start till finish!

plot2(window(season2016,start=c(2017,1)),season2017,"2016","2017","weeks","UAH")