### Set up java parameter and load rmcfs package
options(java.parameters = "-Xmx4g")
library(rmcfs)
# create input data
adata <- artificial.data(rnd.features = 10)
showme(adata)
# Parametrize and run MCFS-ID procedure
result <- mcfs(class~., adata, projections = 100, projectionSize = 4,
cutoffPermutations = 3, finalCV = FALSE, finalRuleset = FALSE,
threadsNumber = 2)
# Export and import R result to/from files
path <- tempdir()
export.result(result, path = path, label = "artificial", save.rds = FALSE)
result <- import.result(path = path, label = "artificial")
Run the code above in your browser using DataLab