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