# NOT RUN {
library(BGVAR)
data(eerData)
model.ssvs <- bgvar(Data=eerData,W=W.trade0012,plag=1,saves=100,burns=100,
prior="SSVS")
res <- residuals(model.ssvs)
# }
# NOT RUN {
resid(model.ssvs)
# }
Run the code above in your browser using DataLab