if (FALSE) ###dontrunbegin
# create input data
adata <- artificial.data(rnd_features = 10)
showme(adata)
# Parametrize and run MCFS-ID procedure
result <- mcfs(class~., adata, cutoffPermutations = 0, featureFreq = 50,
finalCV = FALSE, finalRuleset = FALSE, threadsNumber = 2)
# build interdependencies graph for top 6 features
# and top 12 interdependencies and plot all nodes
gid <- build.idgraph(result, size = 6, size_ID = 12, orphan_nodes = TRUE)
plot(gid, label_dist = 1)
###dontrunend
Run the code above in your browser using DataLab