find date intersection
intersect.all(...)
...
a vector of dates
Whit Armstrong
x <- fts() y <- fts() y <- y[1:10,] intersect.all(x,y)