# NOT RUN {
# }
# NOT RUN {
# Load the libraries
library(MRPC) # MRPC
library(pcalg) # pc
library(bnlearn) # pc.stable, mmpc, mmhc and hc
# For demonstration purposes, only 10 data sets
# are simulated here
# with sample size N = 100 and signal = 1
# Comparison of inference accuracy on
# model 1 (mediation)
Result1 <- CompareMethodsVStructure(N = 100,
signal = 1.0,
'model1',
includeGV = TRUE,
ita = 10)
# Comparison of inference accuracy on
# model 2 (v-structure)
Result2 <- CompareMethodsVStructure(N = 100,
signal = 1.0,
'model2',
includeGV = TRUE,
ita = 10)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab