pad(x, pad.dates) trim(x, trim.dates)
x <- fts(rnorm(5)) pad(x,Sys.time()+60*60*24*200) trim.dts <- dates(x)[c(1,3)] trim(x,trim.dts)
Run the code above in your browser using DataLab