bnnames<-bnInfo(simdata,c("b","c"),c("M","T"))
allInteractions<-annotateEdges(bnres3,bnnames,sump=1.2,minp=0.5,minkp=0.9,dblist=simint)
plotNode(allInteractions,"T43",p=0.5)
plotNode(allInteractions,"T43",p=0.5,dbcheck=FALSE)
Run the code above in your browser using DataLab