myscore<-scoreparameters("bge",Boston)
if (FALSE) {
orderfit<-sampleBN(myscore,algorithm="order")
DAGscores<-getTrace(orderfit,which=0)
DAGtrace<-getTrace(orderfit,which=1)
orderscores<-getTrace(orderfit,which=3)
}
Run the code above in your browser using DataLab