add first, last time subsetting functions
Like xts has.

eg, something like

ts.first("5W")   # first five weeks of data
ts.first("7D")   # first seven days
ts.last("3W").first("3B") # first 3 biz days of last three weeks
