# NOT RUN {
adult_data <- split_data(adult[1:100,], 70)
bn_learn <- gen_bn_learn(adult_data$training_set, "hc")
plot_compared_sdg(target_var = "age",
training_set = adult_data$training_set,
syn_data_names = c("bn_learn"),
generated_data1 = bn_learn$gen_data)
plot_compared_sdg(target_var = "race",
training_set = adult_data$training_set,
syn_data_names = c("bn_learn"),
generated_data1 = bn_learn$gen_data)
# }
Run the code above in your browser using DataLab