# NOT RUN {
# Compute how well the model DCMex fits the timeseries DCMex$sim
ts <- dcmGenerate(DCMex, SNR=1, ar=.2, names=c('V1','V2','V3'))
DCMex <- dcmEvidence(DCMex, ts)
DCMex$AIC
DCMex$BIC
# }
Run the code above in your browser using DataLab