# \donttest{
data(CM_Factors)
RF_TS <- RiskFactors
N <- 3
JLLinputs <- list(Economies = c("China", "Brazil", "Mexico", "Uruguay"), DomUnit = "China",
WishSigmas = 1, SigmaNonOrtho = NULL, JLLModelType = "JLL original")
JLLPara <- JLL(RF_TS, N, JLLinputs)
# }
Run the code above in your browser using DataLab