## 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