###################################################
## Example 1: Evaluate reduct and generate
## new decision table
###################################################
library(RoughSets)
data(RoughSetData)
decision.table <- RoughSetData$hiring.dt
## evaluate single reduct
res.1 <- FS.permutation.heuristic.reduct.RST(decision.table, permutation = NULL)
print(res.1)
## generate new decision table according to the reduct
new.decTable <- SF.applyDecTable(decision.table, res.1)
print(new.decTable)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.