########################################################
data(RoughSetData)
hiring.data <- RoughSetData$hiring.dt
## We select a single attribute for computation of indiscernibility classes:
A <- c(2)
## compute the indiscernibility classes:
IND.A <- BC.IND.relation.RST(hiring.data, feature.set = A)
## compute the lower and upper approximation:
roughset <- BC.LU.approximation.RST(hiring.data, IND.A)
## get the boundary region:
pos.negative = BC.negative.reg.RST(hiring.data, roughset)
pos.negative
Run the code above in your browser using DataLab