View source: R/InstanceSelection.R
IS.FRIS.FRST | R Documentation |
This is a function that implements the fuzzy-rough instance selection (FRIS) proposed by (Jensen and Cornelis, 2010) which is used to perform instance selection.
IS.FRIS.FRST(decision.table, control = list())
decision.table |
a |
control |
a list of other parameters which are
|
FRIS is used to remove training instances that cause conflicts with other instances as determined by the fuzzy positive region.
This algorithm evaluates the degree of membership of each instance to the fuzzy positive region.
If there is a instance less than the threshold, then the instance can be removed.
Additionally, it uses a fuzzy indiscernibility relation R_a
to express the approximate equality between
objects x
and y
on attribute a
in the training set:
R_{a}^{\alpha}(x,y)=max(0, 1 - \alpha \frac{|a(x) - a(y)|}{l(a)})
where parameter \alpha
(\alpha \ge 0
) determines the granularity of R_{a}^{\alpha}
.
Then, the fuzzy B
-indiscernibility relation, fuzzy lower approximation, positive region and degree of dependency are calculated based on
the concept in Introduction-FuzzyRoughSets
.
It should be noted that this function does not give the new decision table directly.
The other additional function called SF.applyDecTable
is used to produce the new decision table based on
the output of this function.
A class "InstanceSelection"
that contains the following components:
indx.objects
: it contains all indexes of objects that are selected.
type.method
: a string representing the type of method. In this case, it is "IS.FRIS"
.
type.task
: a string showing the type of task which is "instance selection"
.
type.model
: a string representing the type of model which is "FRST"
.
Lala Septem Riza
R. Jensen and C. Cornelis, "Fuzzy-rough Instance Selection", Proceedings of the 19th International Conference on Fuzzy Systems (FUZZ-IEEE 2010), p. 1776 - 1782 (2010).
IS.FRPS.FRST
.
#############################################
## Example: Evaluate instances/objects and
## generate new decision table
#############################################
dt.ex1 <- data.frame(c(0.1, 0.5, 0.2, 0.3, 0.2, 0.2, 0.8),
c(0.1, 0.1, 0.4, 0.2, 0.4, 0.4, 0.5), c(0, 0, 0, 0, 1, 1, 1))
colnames(dt.ex1) <- c("a1", "a2", "d")
decision.table <- SF.asDecisionTable(dataset = dt.ex1, decision.attr = 3, indx.nominal = c(3))
## evaluate index of objects
res.1 <- IS.FRIS.FRST(decision.table = decision.table, control =
list(threshold.tau = 0.5, alpha = 0.8,
type.aggregation = c("t.tnorm", "lukasiewicz"),
t.implicator = "lukasiewicz"))
## generate new decision table
new.decTable <- SF.applyDecTable(decision.table, res.1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.