# NOT RUN {
testscore<-scoreparameters("bge", DBNdata, bgnodes=c(1,2,3), DBN=TRUE,
dbnpar=list(slices=5, stationary=TRUE))
# }
# NOT RUN {
DBNfit<-iterativeMCMC(testscore,moveprobs=c(0.11,0.84,0.04,0.01))
compareDBNs(DBNfit$max$DAG,DBNmat,struct="trans",n.dynamic=12,n.static=3)
# }
Run the code above in your browser using DataLab