jaymon0703

# Record script start time ----------------------------------------
    t1 <- Sys.time()

# Load required packages ------------------------------------------
    library(quantmod)

# Build the function ----------------------------------------------
    mcblocksim <- function(R, l){
      
# Read price data and build xts object