data("ecoli", package = "MoTBFs")
dat <- ecoli[,-c(1,4,5,9)]
# Build DAG
dag <- LearningHC(dat)
# Learn BN parameters
bn = motbf.fit(dag, dat)
# Get sample from bn
sam = sample_motbfs(bn, 50)
Run the code above in your browser using DataLab