x <- fts()
y <- fts(data=1:100)
z <- fts(dates=seq.POSIXt(from=as.POSIXct(Sys.time()),by="months",length.out=12))
xx <- x[1:10,]
## intersection of dates is taken for Arith methods
xyp <- x + y
xys <- x - y
xym <- x * y
xyd <- x / y
xyg <- x > y
xyl <- x < y
head(x,5)
tail(y,10)
cxy <- cbind(x,y)
rxy <- rbind(x,y)
print(x)
plot(x)
Run the code above in your browser using DataCamp Workspace