demo/FS.nearOpt.fvprs.FRST.R

In RoughSets: Data Analysis Using Rough Set and Fuzzy Rough Set Theories

 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)