#######################################
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 approximations:
roughset <- BC.LU.approximation.RST(hiring.data, IND.A)
roughset
Run the code above in your browser using DataLab