SF.asFeatureSubset(colNames, decisionTable, type.method = "custom subset",
model = "custom")
## discretization and generation of a reduct cut.values <- D.discretization.RST(wine.data, type.method = "unsupervised.quantiles", nOfIntervals = 3) decision.table <- SF.applyDecTable(wine.data, cut.values) disc.matrix <- BC.discernibility.mat.RST(wine.data) reduct <- FS.one.reduct.computation(disc.matrix, greedy=TRUE) class(reduct) is(reduct$decision.reduct[[1]])
## convertion into a FeatureSubset object reduct <- SF.asFeatureSubset(reduct$decision.reduct[[1]], decision.table, type.method = "greedy reduct from a discernibility matrix", model = reduct$type.model) class(reduct)