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