# NOT RUN {
# Generate simulation data
G<-matrix(FALSE,10,10) # groundtruth
G[1,c(4,7,8,10)]<-TRUE
G[2,c(5,7,9,10)]<-TRUE
G[3,c(6,8,9,10)]<-TRUE
TS <- MultipleSimulationVLtimeseries()
out<-multipleVLGrangerFunc(TS)
checkMultipleSimulationVLtimeseries(trueAdjMat=G,adjMat=out$adjMat)
# }
Run the code above in your browser using DataLab