# \donttest{
data(CM_Factors)
Factors <- t(RiskFactors[1:7,])
BRWinputs <- list()
BRWinputs$flag_mean <- TRUE
BRWinputs$gamma <- 0.4
BRWinputs$N_iter <- 1000
BRWinputs$N_burn <- 100
BRWinputs$B <- 10
BRWinputs$check <- 1
BRWinputs$B_check <- 5000
Economies <- "China"
N <- 3
ModelType <- "JPS"
FactorLabels <- NULL
BRWpara <- Bias_Correc_VAR(ModelType, BRWinputs, Factors, N, Economies, FactorLabels)
# }
Run the code above in your browser using DataLab