data(RoughSetData)
decision.table <- RoughSetData$pima7.dt
## get reduct
reduct.2 <- FS.nearOpt.fvprs.FRST(decision.table)
print(reduct.2)
## get new decision table according to the reduct
new.decTable <- SF.applyDecTable(decision.table, reduct.2)
print(new.decTable)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.