##Fit a network
data(mouse)
## Not run:
# mouse.cgbn<-fit.gnbp(mouse[,1:5],mouse[,6:19],alpha=0.1)
#
# ##Generate a sequence of evidence for a single node
# evidence<-gen.evidence(mouse.cgbn,node="Tlr12",std=2,length.out=20)
# ## End(Not run)
Run the code above in your browser using DataLab