如何在粗糙集R中得到核心集和约简集？

我在粗糙集R包中使用QuickReducet，我需要约简集和核心。 如何获取核心和还原集

   data(RoughSetData)
   dataset<-RoughSetData$wine.dt

   set.seed(5)
   dt.Shuffled <- dataset[sample(nrow(dataset)),]

   idx<-round(0.8*nrow(dt.Shuffled))
   wine.tra<-SF.asDecisionTable(dt.Shuffled[1:idx,], decision.attr = 14, 
   indx.nominal = 14)
   wine.tst<-SF.asDecisionTable(dt.Shuffled[(idx+1):nrow(dt.Shuffled), -
   ncol(dt.Shuffled)])

   reduct <-FS.feature.subset.computation(d.tra, method= "quickreduct.frst")
   print(reduct)

数据（粗集数据）
数据集