as.fts(x)
N <- 100 xm <- matrix(rnorm(N)) dts <- format(seq(from=Sys.time(),length.out=N,by="DSTday"),"%Y-%m-%d") rownames(xm) <- dts x.from.m <- as.fts(xm) x.from.df <- as.fts(as.data.frame(xm))
Run the code above in your browser using DataCamp Workspace