# \donttest{
data("gg2018")
dca = ConnectednessApproach(gg2018, model="VAR",
connectedness="Time",
nlag=1, nfore=10, window.size=200)
ext = ExternalConnectedness(dca, groups=list("US"=c(1,2,3,4), "JP"=c(5,6,7,8)))
# }
Run the code above in your browser using DataLab