## data -
x = as.timeSeries(data(msft.dat))[1:12, ]
## cbind -
x1 <- cbind(x[, "Open"], returns(x[, "Open"]))
colnames(x1) <- c("Open", "Return")
## rbind -
rbind(x[1:3, "Open"], x[10:12, "Open"])
Run the code above in your browser using DataLab