subset.ts function

Subsetting a time series