# NOT RUN {
# We want to generate 2 different data sets for truth1 with
# signal = 1, N = 100 and 6 different node orderings. Therefore,
# you will get 2 by 18 output matrix, where first and second row
# are the data 1 and 2 respectively. Column 1:6 is the result of
# MRPC with node order 1, 2, ..., 6, then column 7:12 is for mmhc and
# column 13:18 is for pc.
library(bnlearn) # for mmhc
library(pcalg) # for pc
# Run
Output <- SimulationDemo(N = 100, 'truth1',
signal = 1, n_data = 2,
n_nodeordering = 6)
# }
Run the code above in your browser using DataLab