bnlearn.R
265 Bytes
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")