testscore<-scoreparameters("bge", DBNdata, DBN=TRUE,
dbnpar=list(samestruct=TRUE, slices=5, b=3))
if (FALSE) {
DBNfit<-learnBN(testscore, algorithm="orderIter",moveprobs=c(0.11,0.84,0.04,0.01))
compareDBNs(DBNfit$DAG,DBNmat, struct="trans", b=3)
}
Run the code above in your browser using DataLab