# NOT RUN {
# create input data
adata <- artificial.data(rnd_features = 10)
showme(adata)
# Parametrize and run MCFS-ID procedure
result <- mcfs(class~., adata, cutoffPermutations = 0, featureFreq = 10,
finalCV = FALSE, finalRuleset = FALSE, threadsNumber = 2)
head(refine.data(adata, result, size = result$cutoff_value))
# }
Run the code above in your browser using DataLab