# \donttest{
data(RiskFacFull)
Factors <- t(RiskFacFull[1:7, ])
BRWinputs <- list(
Cent_Measure = "Mean", 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, Economies, FactorLabels, verbose = FALSE)
# }
Run the code above in your browser using DataLab