如何在粗糙集R中设置核心和约简？

Question

我在粗糙集R包中使用quickreduct，我需要还原集和核心。 我怎样才能获得核心和还原集？

   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)