R/filtration_rules.R

In komorowskilab/VisuNet: An interactive tool for network visualization of rule-based models in R

filtration_rules <- function(rules, minAcc, Param, minValue){
    recRulesFiltr <- rules[which(rules$accuracyRHS >= minAcc),]
    if(Param == 'Min Support'){
      recRulesFiltr_f <-recRulesFiltr[which(recRulesFiltr$supportRHS >= minValue),]
    }else{
      recRulesFiltr_f <-recRulesFiltr[which(recRulesFiltr$decisionCoverage >= minValue),]
      }


  return(recRulesFiltr_f)
}