setwd("/home/qja0428/Dropbox/research/Yoo")

library(bnlearn)

data(learning.test)
write.csv(learning.test, "test_data.csv",row.names = F)

dataset = learning.test[1:101,]

a = hc(dataset, score='bde')
plot(a)



dag = hc(learning.test, score = "bde")