#############################################################
## Example 1:
#############################################################
data(RoughSetData)
wine.data <- RoughSetData$wine.dt
dim(wine.data)
## selection of an arbitrary attribute subset
attrNames = colnames(wine.data)[1:3]
attrNames
class(attrNames)
## convertion into a FeatureSubset object
reduct <- SF.asFeatureSubset(attrNames, wine.data,
type.method = "greedy reduct from a discernibility matrix")
class(reduct)
reduct
Run the code above in your browser using DataLab