# NOT RUN {
library(BGVAR)
data(eerData)
model.ssvs.eer<-bgvar(Data=eerData,W=W.trade0012,saves=100,burns=100,plag=1,
prior="SSVS",thin=1,eigen=TRUE)
# Calculates running mean GFEVDs for all variables in the system
GFEVD<-gfevd.decomp(model.ssvs.eer,nhor=24,running=TRUE)
# }
Run the code above in your browser using DataLab