# NOT RUN {
N <- 100
xm <- matrix(rnorm(N))
dts <- format(seq(from=Sys.Date(),length.out=N,by="days"),"%Y-%m-%d")
rownames(xm) <- dts
x.from.m <- as.fts(xm)
x.from.df <- as.fts(data.frame(asofdate=dts,my.data=xm))
# }
Run the code above in your browser using DataLab