# NOT RUN {
x <- fts(index=seq(from=Sys.Date(),by="days",length.out=100),data=1:100)
y <- fts(index=seq(from=Sys.Date(),by="days",length.out=100),data=1:100)
y <- y[1:nrow(y) %% 2==0,]
intersect.all(x,y)
# }
Run the code above in your browser using DataLab