## Load Microsoft Data Set -
   x <- MSFT[1:12, ]
   x
## Bind Columnwise -
   X <- cbind(x[, "Open"], returns(x[, "Open"]))
   colnames(X) <- c("Open", "Return")
   X
## Bind Rowwise - 
   Y <- rbind(x[1:3, "Open"], x[10:12, "Open"])
   Y
Run the code above in your browser using DataLab