library(magrittr)
library(xts)
# Constructing the database for the large model
BM14 = merge(BM14_M, BM14_Q)
BM14[, BM14_Models$log_trans] %<>% log()
BM14[, BM14_Models$freq == "M"] %<>% diff()
BM14[, BM14_Models$freq == "Q"] %<>% diff(3)
# Small Model Database
head(BM14[, BM14_Models$small])
# Medium-Sized Model Database
head(BM14[, BM14_Models$medium])
Run the code above in your browser using DataLab