FS.all.reducts.computation: A function for computing all decision reducts of a decision...

Description Usage Arguments Value Author(s) See Also Examples

View source: R/FeatureSelection.R

Description

A wrapper function used for generating all decision reducts of a decision system. The reducts are obtained from a discernibility matrix which can be computed using methods based on RST and FRST. Therefore, it should be noted that before calling the function, we need to compute a discernibility matrix using BC.discernibility.mat.RST or BC.discernibility.mat.FRST.

Usage

1
FS.all.reducts.computation(discernibilityMatrix)

Arguments

discernibilityMatrix

an "DiscernibilityMatrix" object representing a discernibility matrix of a decision system.

Value

An object of a class "ReductSet".

Author(s)

Andrzej Janusz

See Also

BC.discernibility.mat.RST, BC.discernibility.mat.FRST.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
########################################################
## Example 1: Generate all reducts and
##            a new decision table using RST
########################################################
data(RoughSetData)
decision.table <- RoughSetData$hiring.dt

## build the decision-relation discernibility matrix
res.2 <- BC.discernibility.mat.RST(decision.table, range.object = NULL)

## generate all reducts
reduct <- FS.all.reducts.computation(res.2)

## generate new decision table
new.decTable <- SF.applyDecTable(decision.table, reduct, control = list(indx.reduct = 1))

##############################################################
## Example 2: Generate all reducts and
##            a new decision table using FRST
##############################################################
## Not run: data(RoughSetData)
decision.table <- RoughSetData$hiring.dt

## build the decision-relation discernibility matrix
control.1 <- list(type.relation = c("crisp"),
                type.aggregation = c("crisp"),
                t.implicator = "lukasiewicz", type.LU = "implicator.tnorm")
res.1 <- BC.discernibility.mat.FRST(decision.table, type.discernibility = "standard.red",
                                    control = control.1)

## generate single reduct
reduct <- FS.all.reducts.computation(res.1)

## generate new decision table
new.decTable <- SF.applyDecTable(decision.table, reduct, control = list(indx.reduct = 1))
## End(Not run)

janusza/RoughSets documentation built on May 31, 2018, 11:11 a.m.